diff options
author | Per Bothner <per@bothner.com> | 1995-12-01 22:50:47 +0000 |
---|---|---|
committer | Per Bothner <per@bothner.com> | 1995-12-01 22:50:47 +0000 |
commit | 5be700fd21cf4049747b86fe2d3e0a3da13615d2 (patch) | |
tree | 414fdbc917c83a0315f782e0e69e768db7a3b626 /gdb/testsuite/gdb.chill | |
parent | 67e69d7e9edb13adbe267028b993c8dc9dcc8273 (diff) | |
download | gdb-5be700fd21cf4049747b86fe2d3e0a3da13615d2.zip gdb-5be700fd21cf4049747b86fe2d3e0a3da13615d2.tar.gz gdb-5be700fd21cf4049747b86fe2d3e0a3da13615d2.tar.bz2 |
Ooops. Fix to work with new scheme (where runtest invokes the compiler).
Diffstat (limited to 'gdb/testsuite/gdb.chill')
-rw-r--r-- | gdb/testsuite/gdb.chill/pr-8405.exp | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-8405.exp b/gdb/testsuite/gdb.chill/pr-8405.exp index 4557969..55dda7d 100644 --- a/gdb/testsuite/gdb.chill/pr-8405.exp +++ b/gdb/testsuite/gdb.chill/pr-8405.exp @@ -33,8 +33,7 @@ proc do_tests {} { gdb_exit gdb_start - gdb_reinitialize_dir $srcdir/$subdir - gdb_load $objdir/$subdir/$binfile + gdb_load $binfile send "set language chill\n" ; expect -re "$prompt $" send "set var \$i:=xx\n" ; expect -re "$prompt $" @@ -45,12 +44,17 @@ proc do_tests {} { # haven't tried to compile one, or the compilation failed for some reason. # In either case, just notify the user and skip the tests in this file. -set binfile "pr-8405.exe" -set srcfile $binfile.ch +set testfile "pr-8405" +set srcfile ${srcdir}/$subdir/${testfile}.ch +set binfile ${objdir}/${subdir}/${testfile}.exe +if { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } { + perror "Couldn't compile ${srcfile}" + return -1 +} if [skip_chill_tests] then { continue } -if ![file exists $objdir/$subdir/$binfile] then { +if ![file exists $binfile] then { warning "$binfile does not exist; tests suppressed." 0 } else { do_tests |