From 5be700fd21cf4049747b86fe2d3e0a3da13615d2 Mon Sep 17 00:00:00 2001
From: Per Bothner <per@bothner.com>
Date: Fri, 1 Dec 1995 22:50:47 +0000
Subject: [PATCH] Ooops.  Fix to work with new scheme (where runtest invokes
 the compiler).

---
 gdb/testsuite/gdb.chill/pr-8405.exp | 14 +++++++++-----
 1 file 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
-- 
2.7.4