* gdb.cp/cplusfuncs.exp (info_func_regexp, print_addr): Don't
authorPedro Alves <palves@redhat.com>
Sat, 21 Nov 2009 05:17:41 +0000 (05:17 +0000)
committerPedro Alves <palves@redhat.com>
Sat, 21 Nov 2009 05:17:41 +0000 (05:17 +0000)
assume new `regsub' syntax available.

gdb/testsuite/ChangeLog
gdb/testsuite/gdb.cp/cplusfuncs.exp

index 6bdf95a..5caae10 100644 (file)
@@ -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,
index 607dceb..092c0ff 100644 (file)
@@ -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'"