From 12d79008ef5b97ce1c51668c91d3c4a977fcf9b3 Mon Sep 17 00:00:00 2001 From: Pedro Alves Date: Wed, 17 Feb 2010 22:05:58 +0000 Subject: [PATCH] * gdb.base/charset.exp: Don't assume new `regsub' syntax available. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.base/charset.exp | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 8f42cc655f5..1748549e31a 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-02-17 Pedro Alves + + * gdb.base/charset.exp: Don't assume new `regsub' syntax + available. + 2010-02-16 Daniel Jacobowitz * gdb.xml/tdesc-arch.exp, gdb.xml/tdesc-regs.exp: Rewrite file diff --git a/gdb/testsuite/gdb.base/charset.exp b/gdb/testsuite/gdb.base/charset.exp index 6b6f3b75c06..9820632e964 100644 --- a/gdb/testsuite/gdb.base/charset.exp +++ b/gdb/testsuite/gdb.base/charset.exp @@ -140,7 +140,7 @@ send_gdb "set host-charset\n" gdb_expect { -re "Requires an argument. Valid arguments are (.*)\\.\r\n$gdb_prompt $" { set host_charset_list $expect_out(1,string) - set host_charset_list [regsub -all {, } $host_charset_list {,}] + regsub -all {, } $host_charset_list {,} host_charset_list foreach host_charset [split $host_charset_list ","] { set charsets($host_charset) 1 } @@ -168,7 +168,7 @@ send_gdb "set target-charset\n" gdb_expect { -re "Requires an argument. Valid arguments are (.*)\\.\r\n$gdb_prompt $" { set target_charset_list $expect_out(1,string) - set target_charset_list [regsub -all {, } $target_charset_list {,}] + regsub -all {, } $target_charset_list {,} target_charset_list foreach target_charset [split $target_charset_list ","] { if {! [info exists charsets($target_charset)]} { set charsets($target_charset) 0 -- 2.30.2