espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-20 01:50:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gdb.pascal/integers.exp: Use standard_testfile, clean_restart.

Browse Source 
* gdb.pascal/hello.exp: Use standard_testfile, clean_restart.
	* gdb.pascal/gdb11492.exp: Use standard_testfile, clean_restart.
	* gdb.pascal/floats.exp: Use standard_testfile, clean_restart.
This commit is contained in:
Tom Tromey
2012-06-25 20:43:40 +00:00
parent f91e3dc1b6
commit 17b776263f
5 changed files with 20 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2012-06-25 Tom Tromey <tromey@redhat.com>
* gdb.pascal/integers.exp: Use standard_testfile, clean_restart.
* gdb.pascal/hello.exp: Use standard_testfile, clean_restart.
* gdb.pascal/gdb11492.exp: Use standard_testfile, clean_restart.
* gdb.pascal/floats.exp: Use standard_testfile, clean_restart.
2012-06-25 Tom Tromey <tromey@redhat.com> 2012-06-25 Tom Tromey <tromey@redhat.com>
* gdb.linespec/ls-errs.exp: Use standard_testfile. * gdb.linespec/ls-errs.exp: Use standard_testfile.

13
gdb/testsuite/gdb.pascal/floats.exp
View File

@ -15,18 +15,15 @@
load_lib "pascal.exp" load_lib "pascal.exp"
set testfile "floats" standard_testfile .pas
set srcfile ${testfile}.pas
set binfile ${objdir}/${subdir}/${testfile}$EXEEXT
if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } { if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } {
return -1 untested $testfile.exp
return -1
} }
gdb_exit clean_restart ${testfile}
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
set bp_location2 [gdb_get_line_number "set breakpoint 2 here"] set bp_location2 [gdb_get_line_number "set breakpoint 2 here"]

12
gdb/testsuite/gdb.pascal/gdb11492.exp
View File

@ -15,18 +15,14 @@
load_lib "pascal.exp" load_lib "pascal.exp"
set testfile "gdb11492" standard_testfile .pas
set srcfile ${testfile}.pas
set binfile ${objdir}/${subdir}/${testfile}$EXEEXT
if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } { if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } {
return -1 untested $testfile.exp
return -1
} }
gdb_exit clean_restart ${testfile}
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
if { [gdb_breakpoint ${srcfile}:${bp_location1}] } { if { [gdb_breakpoint ${srcfile}:${bp_location1}] } {

9
gdb/testsuite/gdb.pascal/hello.exp
View File

@ -15,18 +15,13 @@
load_lib "pascal.exp" load_lib "pascal.exp"
set testfile "hello" standard_testfile .pas
set srcfile ${testfile}.pas
set binfile ${objdir}/${subdir}/${testfile}${EXEEXT}
if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } { if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } {
return -1 return -1
} }
gdb_exit clean_restart ${testfile}
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
set bp_location2 [gdb_get_line_number "set breakpoint 2 here"] set bp_location2 [gdb_get_line_number "set breakpoint 2 here"]

9
gdb/testsuite/gdb.pascal/integers.exp
View File

@ -15,18 +15,13 @@
load_lib "pascal.exp" load_lib "pascal.exp"
set testfile "integers" standard_testfile .pas
set srcfile ${testfile}.pas
set binfile ${objdir}/${subdir}/${testfile}$EXEEXT
if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } { if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } {
return -1 return -1
} }
gdb_exit clean_restart ${testfile}
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
set bp_location2 [gdb_get_line_number "set breakpoint 2 here"] set bp_location2 [gdb_get_line_number "set breakpoint 2 here"]