From e93bcb7eee4f58f7202a7cc35aabecdbe1273182 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 21 Jan 1998 18:02:54 +0000
Subject: [PATCH] [project @ 1998-01-21 18:02:54 by sof] Removed duplicate
 getRegister clause

---
 ghc/compiler/nativeGen/MachCode.lhs |    5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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)]
-- 
1.7.10.4