From: sof <unknown>
Date: Wed, 21 Jan 1998 18:02:54 +0000 (+0000)
Subject: [project @ 1998-01-21 18:02:54 by sof]
X-Git-Tag: Approx_2487_patches~1076
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e93bcb7eee4f58f7202a7cc35aabecdbe1273182;p=ghc-hetmet.git

[project @ 1998-01-21 18:02:54 by sof]
Removed duplicate getRegister clause
---

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 66f6cf3..48412e9 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -501,8 +501,6 @@ getRegister leaf
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if i386_TARGET_ARCH
 
-getRegister (StReg (StixTemp u pk)) = returnUs (Fixed pk (UnmappedReg u pk) id)
-
 getRegister (StDouble 0.0)
   = let
     	code dst = mkSeqInstrs [FLDZ]
@@ -3160,8 +3158,7 @@ coerceFP2Int x
     	src  = registerName register tmp
     	pk   = registerRep register
 
-    	code__2 dst = let
-		      in code . mkSeqInstrs [
+    	code__2 dst = code . mkSeqInstrs [
     	                        FRNDINT,
     	                        FIST L (AddrBaseIndex (Just ebx) Nothing (ImmInt OFFSET_R1)),
     	                        MOV L (OpAddr (AddrBaseIndex (Just ebx) Nothing (ImmInt OFFSET_R1))) (OpReg dst)]