From 8c2fb5deb3f40d81b448d54d7eaa02cde2c6e014 Mon Sep 17 00:00:00 2001 From: Pedro Alves Date: Sat, 21 Nov 2009 05:17:41 +0000 Subject: [PATCH] * gdb.cp/cplusfuncs.exp (info_func_regexp, print_addr): Don't assume new `regsub' syntax available. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.cp/cplusfuncs.exp | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 6bdf95aa409..5caae10dbd7 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-11-21 Pedro Alves + + * gdb.cp/cplusfuncs.exp (info_func_regexp, print_addr): Don't + assume new `regsub' syntax available. + 2009-11-20 Jan Kratochvil * gdb.base/watchpoint-hw-hit-once.exp, diff --git a/gdb/testsuite/gdb.cp/cplusfuncs.exp b/gdb/testsuite/gdb.cp/cplusfuncs.exp index 607dceb74b4..092c0ff9cd7 100644 --- 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'" -- 2.30.2