[llvm-commits] CVS: reopt/test/TTFTestHarness.pl

[Brian Gaeke]

Changes in directory reopt/test:

TTFTestHarness.pl updated: 1.1 -> 1.2
---
Log message:

Look for ttftest in user's /home/vadve/gaeke/llvm_seraph/tools/Debug:/home/vadve/shared/localtools/sparc/bin:/home/vadve/gaeke/bin:/usr/dcs/software/supported/bin:/home/vadve/gaeke/programs/sun4u/bin:/usr/dcs/software/unsupported/bin:/usr/dcs/software/evaluation/bin:/usr/dcs/software/licensed/bin:/usr/local/bin:/usr/dcs/applications/purify/bin:/usr/dcs/applications/matlabr12/bin:/usr/dcs/applications/matlab5/bin:/usr/dcs/software/old/bin:/usr/dcs/applications/StarOffice/bin:/usr/bin:/sbin:/usr/sbin:/usr/ccs/bin:/usr/ccs/lib:/opt/SUNWspro/bin:/usr/dt/bin:/usr/openwin/bin:/usr/ucb:/etc:/usr/etc, in addition to the usual place.


---
Diffs of the changes:  (+9 -1)

Index: reopt/test/TTFTestHarness.pl
diff -u reopt/test/TTFTestHarness.pl:1.1 reopt/test/TTFTestHarness.pl:1.2
--- reopt/test/TTFTestHarness.pl:1.1	Fri Jul  9 01:14:32 2004
+++ reopt/test/TTFTestHarness.pl	Wed Aug  4 00:28:04 2004
@@ -1,6 +1,14 @@
 #!/usr/bin/perl
 
-$TTFTEST = "../Debug/ttftest";
+print "looking for ttftest\n";
+if ( -x "../Debug/ttftest" ) { $TTFTEST = "../Debug/ttftest"; }
+else {
+        print "looking in path dirs\n";
+    foreach my $dir ( split ( /:/, $ENV{'PATH'} ) ) {
+        print "looking in $dir\n";
+        if ( -x "$dir/ttftest" ) { $TTFTEST = "$dir/ttftest"; last; }
+    }
+}
 die "can't find ttftest" unless -x $TTFTEST;
 
 sub assembleBytecode {