From: simonmar <unknown>
Date: Wed, 16 Jun 1999 09:59:16 +0000 (+0000)
Subject: [project @ 1999-06-16 09:59:16 by simonmar]
X-Git-Tag: Approximately_9120_patches~6118
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=07e4037d236474478e9a39a8a0e82cbb3c66e7ba;p=ghc-hetmet.git

[project @ 1999-06-16 09:59:16 by simonmar]
Urk, more fixes.  This thing *really* needs to be taken out and shot.
---

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index 6b04bb0..fedb756 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -908,7 +908,9 @@ sub setupBuildFlags {
       $BuildTag = '_t';
 
   } elsif ( $UNREGing eq 'u' ) {
-      $BuildTag = '_u';
+      if ($GhcWithRegisterised eq 'YES') {
+	 $BuildTag = '_u';
+      }
   }
 \end{code}
 
@@ -939,8 +941,6 @@ Decide what the consistency-checking options are in force for this run:
 
        if ($CompilingPrelude) {
          $HiSuffix_prelude = "$HiSuffix" if $CompilingPrelude;
-       } elsif ($BuildTag eq '_u' && $GhcWithRegisterised eq 'NO') {
-	 $HiSuffix_prelude = 'hi';
        } else {
          local($Tag) = "${BuildTag}";