diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/misc.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/misc.exp | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp index 9f3d725..306b061 100644 --- a/gdb/testsuite/gdb.chill/misc.exp +++ b/gdb/testsuite/gdb.chill/misc.exp @@ -25,8 +25,15 @@ if $tracelevel then { strace $tracelevel } -set prms_id 0 -set bug_id 0 +if [skip_chill_tests] then { continue } + +set testfile "misc" +set srcfile ${srcdir}/$subdir/${testfile}.ch +set binfile ${objdir}/${subdir}/${testfile}.exe +if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } { + perror "Couldn't compile ${srcfile}" + return -1 +} # Set the current language to chill. This counts as a test. If it # fails, then we skip the other tests. @@ -35,12 +42,8 @@ proc set_lang_chill {} { global prompt global binfile objdir subdir - if ![file exists $objdir/$subdir/$binfile] then { - warning "$binfile does not exist; tests suppressed." 0 - return 1 - } - verbose "loading file '$objdir/$subdir/$binfile'" - gdb_load $objdir/$subdir/$binfile + verbose "loading file '$binfile'" + gdb_load $binfile send "set language chill\n" expect { @@ -52,11 +55,10 @@ proc set_lang_chill {} { "set language to \"chill\""] } -# Start with a fresh gdb. - -set binfile "misc.exe" +set prms_id 0 +set bug_id 0 -if [skip_chill_tests] then { continue } +# Start with a fresh gdb. gdb_exit gdb_start |