[project @ 2000-04-13 14:11:00 by simonmar]

[ghc-hetmet.git] / ghc / driver / ghc-consist.lprl

diff --git a/ghc/driver/ghc-consist.lprl b/ghc/driver/ghc-consist.lprl
index 59d220e..535e7ec 100644 (file)
--- a/ghc/driver/ghc-consist.lprl
+++ b/ghc/driver/ghc-consist.lprl
@@ -7,14 +7,21 @@
 \begin{code}
 sub chk_consistency_info {
     local($executable) = @_;
-
+    
     local($major_version, $minor_version);
     local($phase, $infile, $opts);
 
+    # append .exe if it's not there under cygwin32
+    $executable = "${executable}.exe" if $TargetPlatform eq 'i386-unknown-cygwin32' &&
+                                        $executable !~ /\...*$/ ; 
+
     print STDERR "Checking consistency of: $executable\n" if $Verbose;
 
     &tidy_up_and_die(1, "Panic: no such executable: $executable\n")
-       if ! -x $executable;
+       if ( ! -x $executable ) && ( ! -B $executable );
+    # perl apparently determines whether something is executable
+    # by looking at the file suffix under win32/cygwin32 !?!
+    # Hence, we try binary files if (! -x) fails.
 
     # by this point, consistency strings (with commas) have become
     # local symbols (with .'s)