* gdb.opt/clobbered-registers-O2.exp: Use standard_testfile,
prepare_for_testing. * gdb.opt/inline-break.exp: Use standard_testfile, prepare_for_testing. * gdb.opt/inline-bt.exp: Use standard_testfile, prepare_for_testing. * gdb.opt/inline-cmds.exp: Use standard_testfile, prepare_for_testing. * gdb.opt/inline-locals.exp: Use standard_testfile, prepare_for_testing.
This commit is contained in:
Tom Tromey
parent
e2fc92c6c7
commit
efc9d70a28
|
|
@ -1,3 +1,16 @@
|
|||
2012-06-25 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* gdb.opt/clobbered-registers-O2.exp: Use standard_testfile,
|
||||
prepare_for_testing.
|
||||
* gdb.opt/inline-break.exp: Use standard_testfile,
|
||||
prepare_for_testing.
|
||||
* gdb.opt/inline-bt.exp: Use standard_testfile,
|
||||
prepare_for_testing.
|
||||
* gdb.opt/inline-cmds.exp: Use standard_testfile,
|
||||
prepare_for_testing.
|
||||
* gdb.opt/inline-locals.exp: Use standard_testfile,
|
||||
prepare_for_testing.
|
||||
|
||||
2012-06-25 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* gdb.asm/asm-source.exp: Use standard_output_file,
|
||||
|
|
|
|||
|
|
@ -18,9 +18,7 @@
|
|||
# Test displaying call clobbered registers in optimized binaries.
|
||||
# GDB should not show incorrect values.
|
||||
|
||||
set testfile clobbered-registers-O2
|
||||
set srcfile ${testfile}.c
|
||||
set binfile ${objdir}/${subdir}/${testfile}
|
||||
standard_testfile
|
||||
|
||||
# What compiler are we using?
|
||||
#
|
||||
|
|
@ -28,19 +26,11 @@ if [get_compiler_info] {
|
|||
return -1
|
||||
}
|
||||
|
||||
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [concat debug optimize=-O2 nowarnings]] != "" } {
|
||||
untested clobbered-registers-O2.exp
|
||||
return -1
|
||||
if {[prepare_for_testing $testfile.exp $testfile $srcfile \
|
||||
{debug optimize=-O2 nowarnings}]} {
|
||||
return -1
|
||||
}
|
||||
|
||||
# use this to debug:
|
||||
#log_user 1
|
||||
|
||||
gdb_exit
|
||||
gdb_start
|
||||
gdb_reinitialize_dir $srcdir/$subdir
|
||||
gdb_load ${binfile}
|
||||
|
||||
if { ![runto start_sequence] } then {
|
||||
fail "run to start_sequence"
|
||||
return
|
||||
|
|
|
|||
|
|
@ -17,10 +17,9 @@
|
|||
# mirrors this testcase, and should be updated if this testcase is
|
||||
# changed.
|
||||
|
||||
set basename "inline-break"
|
||||
set testfile $basename
|
||||
standard_testfile
|
||||
|
||||
if { [prepare_for_testing $testfile.exp $testfile $testfile.c \
|
||||
if { [prepare_for_testing $testfile.exp $testfile $srcfile \
|
||||
{debug optimize=-O2 additional_flags=-Winline}] } {
|
||||
return -1
|
||||
}
|
||||
|
|
@ -30,7 +29,7 @@ if { [prepare_for_testing $testfile.exp $testfile $testfile.c \
|
|||
# The result should be a single-location breakpoint.
|
||||
#
|
||||
gdb_test "break func1" \
|
||||
"Breakpoint.*at.* file .*$basename\\.c, line.*"
|
||||
"Breakpoint.*at.* file .*$srcfile, line.*"
|
||||
|
||||
#
|
||||
# func2 is a non-static inlined function that is called once.
|
||||
|
|
@ -46,7 +45,7 @@ gdb_test "break func2" \
|
|||
# a single-location breakpoint.
|
||||
#
|
||||
gdb_test "break func3b" \
|
||||
"Breakpoint.*at.* file .*$basename\\.c, line.*"
|
||||
"Breakpoint.*at.* file .*$srcfile, line.*"
|
||||
|
||||
#
|
||||
# func4b is a static inlined function that is called once from
|
||||
|
|
|
|||
|
|
@ -13,25 +13,14 @@
|
|||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
set testfile "inline-bt"
|
||||
set srcfile ${testfile}.c
|
||||
set srcfile2 "inline-markers.c"
|
||||
set fullsrcfile "${srcdir}/${subdir}/${srcfile}"
|
||||
set fullsrcfile2 "${srcdir}/${subdir}/${srcfile2}"
|
||||
set sources [list ${fullsrcfile} ${fullsrcfile2}]
|
||||
set binfile ${objdir}/${subdir}/${testfile}
|
||||
standard_testfile .c inline-markers.c
|
||||
|
||||
if { [gdb_compile ${sources} ${binfile} \
|
||||
executable {debug optimize=-O2 additional_flags=-Winline}] != "" } {
|
||||
untested inline-bt.exp
|
||||
if {[prepare_for_testing $testfile.exp $testfile \
|
||||
[list $srcfile $srcfile2] \
|
||||
{debug optimize=-O2 additional_flags=-Winline}]} {
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
gdb_start
|
||||
gdb_reinitialize_dir $srcdir/$subdir
|
||||
gdb_load ${binfile}
|
||||
|
||||
runto_main
|
||||
|
||||
get_compiler_info
|
||||
|
|
|
|||
|
|
@ -13,25 +13,13 @@
|
|||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
set testfile "inline-cmds"
|
||||
set srcfile "${testfile}.c"
|
||||
set srcfile2 "inline-markers.c"
|
||||
set fullsrcfile "${srcdir}/${subdir}/${srcfile}"
|
||||
set fullsrcfile2 "${srcdir}/${subdir}/${srcfile2}"
|
||||
set sources [list ${fullsrcfile} ${fullsrcfile2}]
|
||||
set binfile ${objdir}/${subdir}/${testfile}
|
||||
standard_testfile .c inline-markers.c
|
||||
|
||||
if { [gdb_compile $sources ${binfile} \
|
||||
executable {debug optimize=-O2}] != "" } {
|
||||
untested inline-cmds.exp
|
||||
if {[prepare_for_testing $testfile.exp $testfile \
|
||||
[list $srcfile $srcfile2] {debug optimize=-O2}]} {
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
gdb_start
|
||||
gdb_reinitialize_dir $srcdir/$subdir
|
||||
gdb_load ${binfile}
|
||||
|
||||
gdb_test_no_output "set listsize 1"
|
||||
|
||||
runto_main
|
||||
|
|
|
|||
|
|
@ -13,25 +13,13 @@
|
|||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
set testfile "inline-locals"
|
||||
set srcfile ${testfile}.c
|
||||
set srcfile2 "inline-markers.c"
|
||||
set fullsrcfile "${srcdir}/${subdir}/${srcfile}"
|
||||
set fullsrcfile2 "${srcdir}/${subdir}/${srcfile2}"
|
||||
set sources [list ${fullsrcfile} ${fullsrcfile2}]
|
||||
set binfile ${objdir}/${subdir}/${testfile}
|
||||
standard_testfile .c inline-markers.c
|
||||
|
||||
if { [gdb_compile ${sources} ${binfile} \
|
||||
executable {debug optimize=-O2}] != "" } {
|
||||
untested inline-locals.exp
|
||||
if {[prepare_for_testing $testfile.exp $testfile \
|
||||
[list $srcfile $srcfile2] {debug optimize=-O2}]} {
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
gdb_start
|
||||
gdb_reinitialize_dir $srcdir/$subdir
|
||||
gdb_load ${binfile}
|
||||
|
||||
runto_main
|
||||
|
||||
get_compiler_info
|
||||
|
|
|
|||
Loading…
Reference in New Issue