From 8c2fb5deb3f40d81b448d54d7eaa02cde2c6e014 Mon Sep 17 00:00:00 2001 From: Pedro Alves Date: Sat, 21 Nov 2009 05:17:41 +0000 Subject: * gdb.cp/cplusfuncs.exp (info_func_regexp, print_addr): Don't assume new `regsub' syntax available. --- gdb/testsuite/gdb.cp/cplusfuncs.exp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gdb/testsuite/gdb.cp') diff --git a/gdb/testsuite/gdb.cp/cplusfuncs.exp b/gdb/testsuite/gdb.cp/cplusfuncs.exp index 607dceb..092c0ff 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'" -- cgit v1.1