Ooops. Fix to work with new scheme (where runtest invokes the compiler).

diff --git a/gdb/testsuite/gdb.chill/pr-8405.exp b/gdb/testsuite/gdb.chill/pr-8405.exp
index 45579699626500dfe98e5a421bdd0757bec1c036..55dda7deb8ac5e6d41fab41e917d89d6c7d06777 100644 (file)
--- 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