diff options
| author | Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> | 2010-05-03 16:40:54 +0000 |
|---|---|---|
| committer | Rainer Orth <ro@gcc.gnu.org> | 2010-05-03 16:40:54 +0000 |
| commit | d5ece0a1f59fd71e156bc58c8423eb7ea8d16480 (patch) | |
| tree | 18c4d20be0718748467fe8219ead9030e05d5a8f | |
| parent | e6693cfa844724b9638ba35ebadc295eb8ef1b3c (diff) | |
| download | gcc-d5ece0a1f59fd71e156bc58c8423eb7ea8d16480.zip gcc-d5ece0a1f59fd71e156bc58c8423eb7ea8d16480.tar.gz gcc-d5ece0a1f59fd71e156bc58c8423eb7ea8d16480.tar.bz2 | |
run_acats (which): New function.
* ada/acats/run_acats (which): New function.
(host_gnatchop, host_gnatmake): Use it.
From-SVN: r158994
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rwxr-xr-x | gcc/testsuite/ada/acats/run_acats | 19 |
2 files changed, 22 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 019661e..fb25dc4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-05-03 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> + + * ada/acats/run_acats (which): New function. + (host_gnatchop, host_gnatmake): Use it. + 2010-05-03 Richard Guenther <rguenther@suse.de> PR tree-optimization/43971 diff --git a/gcc/testsuite/ada/acats/run_acats b/gcc/testsuite/ada/acats/run_acats index 3c3d8990..c389e64 100755 --- a/gcc/testsuite/ada/acats/run_acats +++ b/gcc/testsuite/ada/acats/run_acats @@ -5,10 +5,25 @@ if [ "$testdir" = "" ]; then exit 1 fi +# Provide which replacement. +# +# type -p is missing from Solaris 2 /bin/sh and /bin/ksh (ksh88), but both +# ksh93 and bash have it. +# type output format differs between ksh88 and ksh93, so avoid it if +# type -p is present. +# Fall back to whence which ksh88 and ksh93 provide, but bash does not. + +which () { + type -p $* 2>/dev/null && return 0 + type $* 2>/dev/null | awk '{print $3}' && return 0 + whence $* 2>/dev/null && return 0 + return 1 +} + # 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}'` +host_gnatchop=`which gnatchop` +host_gnatmake=`which gnatmake` ROOT=`${PWDCMD-pwd}` BASE=`cd $ROOT/../../..; ${PWDCMD-pwd}` |