From: Pedro Alves <palves@redhat.com>
Date: Wed, 17 Feb 2010 22:05:58 +0000 (+0000)
Subject:         * gdb.base/charset.exp: Don't assume new `regsub' syntax
X-Git-Tag: gdb_7_1-2010-02-18-branchpoint~15
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=12d79008ef5b97ce1c51668c91d3c4a977fcf9b3;p=external%2Fbinutils.git

    * gdb.base/charset.exp: Don't assume new `regsub' syntax
	available.
---

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