From 53b8fe3ef6f8a38d2047a29031ad918908e8b702 Mon Sep 17 00:00:00 2001
From: Eric Botcazou <ebotcazou@libertysurf.fr>
Date: Thu, 8 Jan 2004 16:19:36 +0100
Subject: [PATCH] run_acats: Treat 'gnatchop' the same way as 'gnatmake'.

	* ada/acats/run_acats: Treat 'gnatchop' the same way
	as 'gnatmake'.  Export GCC_DRIVER.
	* ada/acats/run_all.sh: Add target_gnatchop.  Use
	'host_gnatchop' and 'target_gnatchop' instead of 'gnatshop'.

From-SVN: r75551
---
 gcc/testsuite/ChangeLog            |  7 +++++++
 gcc/testsuite/ada/acats/run_acats  | 17 ++++++++++++++++-
 gcc/testsuite/ada/acats/run_all.sh | 10 +++++++---
 3 files changed, 30 insertions(+), 4 deletions(-)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bedd6da40ca..e61a65482f1 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2004-01-08  Eric Botcazou  <ebotcazou@libertysurf.fr>
+
+	* ada/acats/run_acats: Treat 'gnatchop' the same way
+	as 'gnatmake'.  Export GCC_DRIVER.
+	* ada/acats/run_all.sh: Add target_gnatchop.  Use
+	'host_gnatchop' and 'target_gnatchop' instead of 'gnatshop'.
+
 2004-01-08  Giovanni Bajo  <giovannibajo@gcc.gnu.org>
 
 	PR c++/12573
diff --git a/gcc/testsuite/ada/acats/run_acats b/gcc/testsuite/ada/acats/run_acats
index e61191d46c4..24d87853e13 100755
--- a/gcc/testsuite/ada/acats/run_acats
+++ b/gcc/testsuite/ada/acats/run_acats
@@ -7,6 +7,7 @@ fi
 
 # Set up environment to use the Ada compiler from the object tree
 
+host_gnatchop=`type gnatchop | awk '{print $3}'`
 host_gnatmake=`type gnatmake | awk '{print $3}'`
 ROOT=`${PWDCMD-pwd}`
 BASE=`cd $ROOT/../../..; ${PWDCMD-pwd}`
@@ -20,13 +21,27 @@ if [ ! -d $ADA_INCLUDE_PATH ]; then
    exit 1
 fi
 
+if [ ! -f $BASE/gnatchop ]; then
+   echo gnattools missing, exiting.
+   exit 1
+fi
+
 if [ ! -f $BASE/gnatmake ]; then
    echo gnattools missing, exiting.
    exit 1
 fi
 
+GCC_DRIVER="$BASE/xgcc"
 GCC="$BASE/xgcc -B$BASE/"
-export PATH ADA_INCLUDE_PATH ADA_OBJECTS_PATH GCC
+export PATH ADA_INCLUDE_PATH ADA_OBJECTS_PATH GCC_DRIVER GCC
+
+echo '#!/bin/sh' > host_gnatchop
+echo PATH=`dirname $host_gnatchop`:'$PATH' >> host_gnatchop
+echo unset ADA_INCLUDE_PATH ADA_OBJECTS_PATH GCC_EXEC_PREFIX >> host_gnatchop
+echo export PATH >> host_gnatchop
+echo exec $host_gnatchop '"$@"' >> host_gnatchop
+
+chmod +x host_gnatchop
 
 echo '#!/bin/sh' > host_gnatmake
 echo PATH=`dirname $host_gnatmake`:'$PATH' >> host_gnatmake
diff --git a/gcc/testsuite/ada/acats/run_all.sh b/gcc/testsuite/ada/acats/run_all.sh
index f6b1cb4a084..4d8862c1e9a 100755
--- a/gcc/testsuite/ada/acats/run_all.sh
+++ b/gcc/testsuite/ada/acats/run_all.sh
@@ -47,6 +47,10 @@ if [ "$dir" = "$testdir" ]; then
   exit 1
 fi
 
+target_gnatchop () {
+  gnatchop --GCC="$GCC_DRIVER" $*
+}
+
 target_gnatmake () {
   gnatmake --GCC="$GCC" $gnatflags $gccflags $* -largs $EXTERNAL_OBJECTS --GCC="$GCC"
 }
@@ -101,7 +105,7 @@ mkdir -p $dir/run
 cp -pr $testdir/tests $dir/
 
 for i in $dir/support/*.ada $dir/support/*.a; do 
-   gnatchop $i >> $dir/acats.log 2>&1
+   host_gnatchop $i >> $dir/acats.log 2>&1
 done
 
 # These tools are used to preprocess some ACATS sources
@@ -139,7 +143,7 @@ if [ $? -ne 0 ]; then
    exit 1
 fi
 
-gnatchop *.adt >> $dir/acats.log 2>&1
+target_gnatchop *.adt >> $dir/acats.log 2>&1
 
 target_gnatmake -c -gnato -gnatE *.ads > /dev/null 2>&1
 target_gnatmake -c -gnato -gnatE *.adb
@@ -188,7 +192,7 @@ for chapter in $chapters; do
       test=$dir/tests/$chapter/$i
       mkdir $test
       cd $test
-      gnatchop -c -w `ls ${test}*.a ${test}*.ada ${test}*.adt ${test}*.am ${test}*.dep 2> /dev/null` >> $dir/acats.log 2>&1
+      target_gnatchop -c -w `ls ${test}*.a ${test}*.ada ${test}*.adt ${test}*.am ${test}*.dep 2> /dev/null` >> $dir/acats.log 2>&1
       ls ${i}?.adb > ${i}.lst 2> /dev/null
       ls ${i}*m.adb >> ${i}.lst 2> /dev/null
       ls ${i}.adb >> ${i}.lst 2> /dev/null
-- 
2.30.2