* gdb.cp/cplusfuncs.exp (info_func_regexp, print_addr): Don't

	assume new `regsub' syntax available.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 6bdf95aa4093171fbf281324c6d14d33dc2a99a6..5caae10dbd7318cc0442d40baaf62feecca155b6 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-11-21  Pedro Alves  <pedro@codesourcery.com>
+
+       * gdb.cp/cplusfuncs.exp (info_func_regexp, print_addr): Don't
+       assume new `regsub' syntax available.
+
 2009-11-20  Jan Kratochvil  <jan.kratochvil@redhat.com>
 
        * gdb.base/watchpoint-hw-hit-once.exp,

diff --git a/gdb/testsuite/gdb.cp/cplusfuncs.exp b/gdb/testsuite/gdb.cp/cplusfuncs.exp
index 607dceb74b45be92fa83e04b0a690572ed522268..092c0ff9cd72599f42406e4f43bf2453f69e788e 100644 (file)
--- a/gdb/testsuite/gdb.cp/cplusfuncs.exp
+++ b/gdb/testsuite/gdb.cp/cplusfuncs.exp
@@ -241,7 +241,7 @@ proc info_func_regexp { name demangled } {
     global gdb_prompt
 
     send_gdb "info function $name\n"
-    set demangled [regsub {\\\(void\\\)} $demangled {\(\)}]
+    regsub {\\\(void\\\)} $demangled {\(\)} demangled
     gdb_expect {
        -re ".*File .*:\r\n(class |)$demangled\r\n.*$gdb_prompt $" {
            pass "info function for \"$name\""
@@ -328,7 +328,7 @@ proc print_addr_2_kfail { name good bad bugid } {
 #
 
 proc print_addr { name } {
-    set expected [regsub {\(void\)} $name {()}]
+    regsub {\(void\)} $name {()} expected
     if {[string first "::" $name] == -1} {
        # C function -- must be qutoed
        set name "'$name'"