diff options
author | Pedro Alves <palves@redhat.com> | 2009-11-21 05:17:41 +0000 |
---|---|---|
committer | Pedro Alves <palves@redhat.com> | 2009-11-21 05:17:41 +0000 |
commit | 8c2fb5deb3f40d81b448d54d7eaa02cde2c6e014 (patch) | |
tree | ad67d183ea45754faebdfda5dc2fe32c2c0e9a36 | |
parent | fdfc5546166e16fb05dff1c357ac89ed6d4c5b14 (diff) | |
download | gdb-8c2fb5deb3f40d81b448d54d7eaa02cde2c6e014.zip gdb-8c2fb5deb3f40d81b448d54d7eaa02cde2c6e014.tar.gz gdb-8c2fb5deb3f40d81b448d54d7eaa02cde2c6e014.tar.bz2 |
* gdb.cp/cplusfuncs.exp (info_func_regexp, print_addr): Don't
assume new `regsub' syntax available.
-rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | 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 6bdf95a..5caae10 100644 --- 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 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'" |