* gdb.base/charset.exp: Don't assume new `regsub' syntax
available.
This commit is contained in:
parent
012836ea49
commit
12d79008ef
2 changed files with 7 additions and 2 deletions
|
@ -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>
|
2010-02-16 Daniel Jacobowitz <dan@codesourcery.com>
|
||||||
|
|
||||||
* gdb.xml/tdesc-arch.exp, gdb.xml/tdesc-regs.exp: Rewrite file
|
* gdb.xml/tdesc-arch.exp, gdb.xml/tdesc-regs.exp: Rewrite file
|
||||||
|
|
|
@ -140,7 +140,7 @@ send_gdb "set host-charset\n"
|
||||||
gdb_expect {
|
gdb_expect {
|
||||||
-re "Requires an argument. Valid arguments are (.*)\\.\r\n$gdb_prompt $" {
|
-re "Requires an argument. Valid arguments are (.*)\\.\r\n$gdb_prompt $" {
|
||||||
set host_charset_list $expect_out(1,string)
|
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 ","] {
|
foreach host_charset [split $host_charset_list ","] {
|
||||||
set charsets($host_charset) 1
|
set charsets($host_charset) 1
|
||||||
}
|
}
|
||||||
|
@ -168,7 +168,7 @@ send_gdb "set target-charset\n"
|
||||||
gdb_expect {
|
gdb_expect {
|
||||||
-re "Requires an argument. Valid arguments are (.*)\\.\r\n$gdb_prompt $" {
|
-re "Requires an argument. Valid arguments are (.*)\\.\r\n$gdb_prompt $" {
|
||||||
set target_charset_list $expect_out(1,string)
|
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 ","] {
|
foreach target_charset [split $target_charset_list ","] {
|
||||||
if {! [info exists charsets($target_charset)]} {
|
if {! [info exists charsets($target_charset)]} {
|
||||||
set charsets($target_charset) 0
|
set charsets($target_charset) 0
|
||||||
|
|
Loading…
Reference in a new issue