FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* return-nodebug.c: Don't include stdio.h.

Browse source 
(init): Delete.
	(func): Delete definition and provide extern declaration.
	(t): New.
	(main): Don't call printf.  Call func and store its result in t.
	* return-nodebug1.c: New.
	* return-nodebug.exp: Don't expect stdio output.  Instead, print
	the global variable t.  Drop printf formatters and cast types from
	foreach loop.  Don't use prepare_for_testing.  Compile
	return-nodebug.c and return-nodebug1.c in separate steps.  Don't
	define FORMAT or CAST.
This commit is contained in:
Pedro Alves 2009-03-18 15:36:01 +00:00
parent 42e5fcbf34
commit 51272cf2e9
4 changed files with 70 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

44
gdb/testsuite/gdb.base/return-nodebug.exp
View file

@ -34,28 +34,44 @@ proc do_test {type} {
"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"
# And if it returned the full width of the result.
gdb_test "adv marker" "\r\nresult=-1\r\n.* in marker \\(.*" \
"full width of the returned result"
gdb_test "print /d t" " = -1" "full width of the returned result"
}
set pf_prefix $old_prefix
}
foreach case {{{signed char} %d (int)} \
{{short} %d (int)} \
{{int} %d} \
{{long} %ld} \
{{long long} %lld}} {
set type [lindex $case 0]
set format [lindex $case 1]
set cast [lindex $case 2]
foreach type {{signed char} {short} {int} {long} {long long}} {
set typeesc [string map {{ } {\ }} $type]
set typenospace [string map {{ } -} $type]
if {[prepare_for_testing return-nodebug.exp "return-nodebug-$typenospace" "return-nodebug.c" \
[list "additional_flags=-DFORMAT=\"$format\" -DTYPE=$typeesc -DCAST=$cast"]] == 0} {
do_test $type
set testfile "return-nodebug"
set srcfile ${testfile}.c
set srcfile1 ${testfile}1.c
set binfile ${objdir}/${subdir}/${testfile}-${typenospace}
set additional_flags "additional_flags=-DTYPE=$typeesc"
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object [list debug $additional_flags]] != "" } {
continue
}
# This one is compiled without debug info.
if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object [list $additional_flags]] != "" } {
continue
}
if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug}] != "" } {
continue
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
do_test $type
}