From: Per Bothner <per@bothner.com>
Date: Fri, 1 Dec 1995 22:50:47 +0000 (+0000)
Subject: Ooops.  Fix to work with new scheme (where runtest invokes the compiler).
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5be700fd21cf4049747b86fe2d3e0a3da13615d2;p=binutils-gdb.git

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 45579699626..55dda7deb8a 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