[project @ 1998-04-30 19:44:49 by sof]

[ghc-hetmet.git] / ghc / compiler / nativeGen / MachCode.lhs

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 66f6cf3..b9f66e8 100644 (file)
--- 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]
@@ -1085,6 +1083,7 @@ getRegister (StPrim primop [x, y]) -- dyadic PrimOps
       FloatPowerOp  -> getRegister (StCall SLIT("pow") DoubleRep [promote x, promote y])
                       where promote x = StPrim Float2DoubleOp [x]
       DoublePowerOp -> getRegister (StCall SLIT("pow") DoubleRep [x, y])
+--      _ -> panic "Prim op " ++ (showPrimOp primop) ++ " not handled!"
   where
     imul_div fn x y = getRegister (StCall fn IntRep [x, y])
 
@@ -3160,8 +3159,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)]