2012-02-21 Pedro Alves <palves@redhat.com>

* gdb.base/return-nodebug.exp (do_test): Use with_test_prefix.
This commit is contained in:
Pedro Alves 2012-02-22 00:04:58 +00:00
parent e89877ab98
commit 78afebb483
2 changed files with 22 additions and 21 deletions

View file

@ -1,3 +1,7 @@
2012-02-21 Pedro Alves <palves@redhat.com>
* gdb.base/return-nodebug.exp (do_test): Use with_test_prefix.
2012-02-21 Pedro Alves <palves@redhat.com>
* gdb.trace/unavailable.exp (gdb_collect_globals_test): Use

View file

@ -16,32 +16,29 @@
proc do_test {type} {
set typenospace [string map {{ } -} $type]
global pf_prefix
set old_prefix $pf_prefix
append pf_prefix " $typenospace:"
with_test_prefix "$typenospace" {
if {[runto "func"]} {
# Verify that we do not crash when using "return" from a
# function with no debugging info. Such function has no
# `struct symbol'. It may still have an associated
# `struct minimal_symbol'.
if {[runto "func"]} {
# Verify that we do not crash when using "return" from a function with
# no debugging info. Such function has no `struct symbol'. It may
# still have an associated `struct minimal_symbol'.
gdb_test "return -1" \
"Return value type not available for selected stack frame\\.\r\nPlease use an explicit cast of the value to return\\." \
"return from function with no debug info without a cast"
gdb_test "return -1" \
"Return value type not available for selected stack frame\\.\r\nPlease use an explicit cast of the value to return\\." \
"return from function with no debug info without a cast"
# Cast of the result to the proper width must be done explicitely.
gdb_test "return ($type) -1" "#0 .* main \\(.*" \
"return from function with no debug info with a cast" \
"Make selected stack frame return now\\? \\(y or n\\) " "y"
# Cast of the result to the proper width must be done explicitely.
gdb_test "return ($type) -1" "#0 .* main \\(.*" \
"return from function with no debug info with a cast" \
"Make selected stack frame return now\\? \\(y or n\\) " "y"
gdb_test "advance marker" "marker \\(.*" \
"advance to marker"
gdb_test "advance marker" "marker \\(.*" \
"advance to marker"
# And if it returned the full width of the result.
gdb_test "print /d t" " = -1" "full width of the returned result"
# And if it returned the full width of the result.
gdb_test "print /d t" " = -1" "full width of the returned result"
}
}
set pf_prefix $old_prefix
}
foreach type {{signed char} {short} {int} {long} {long long}} {