diff options
| author | Pedro Alves <palves@redhat.com> | 2010-02-17 22:05:58 +0000 |
|---|---|---|
| committer | Pedro Alves <palves@redhat.com> | 2010-02-17 22:05:58 +0000 |
| commit | 12d79008ef5b97ce1c51668c91d3c4a977fcf9b3 (patch) | |
| tree | 378275626d696122a1f3f026c604d09df8458ae4 /gdb | |
| parent | 012836ea499d870d8d52a6b4dea3c9b3e8eb85c9 (diff) | |
| download | gdb-12d79008ef5b97ce1c51668c91d3c4a977fcf9b3.zip gdb-12d79008ef5b97ce1c51668c91d3c4a977fcf9b3.tar.gz gdb-12d79008ef5b97ce1c51668c91d3c4a977fcf9b3.tar.bz2 | |
* gdb.base/charset.exp: Don't assume new `regsub' syntax
available.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 8f42cc6..1748549 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-02-17 Pedro Alves <pedro@codesourcery.com> + + * gdb.base/charset.exp: Don't assume new `regsub' syntax + available. + 2010-02-16 Daniel Jacobowitz <dan@codesourcery.com> * 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 6b6f3b7..9820632 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 |