From 07e4037d236474478e9a39a8a0e82cbb3c66e7ba Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 16 Jun 1999 09:59:16 +0000
Subject: [PATCH] [project @ 1999-06-16 09:59:16 by simonmar] Urk, more fixes.
  This thing *really* needs to be taken out and shot.

---
 ghc/driver/ghc.lprl |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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}";
   
-- 
1.7.10.4