X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FnativeGen%2FMachCode.lhs;h=f27e603678b73f3b352191385494e7b20b105d06;hb=276ff6e87d324d8ec5a436acd84ec46829c5c54b;hp=fef35969e21c2b9b2f5f7d22baf720151657b04f;hpb=b9f1b9ef8bfd4d6202fe8a2dab43a8ad1165397f;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index fef3596..f27e603 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -671,13 +671,6 @@ getRegister (StPrim primop [x]) -- unary PrimOps
       Double2IntOp -> coerceFP2Int x
       Int2DoubleOp -> coerceInt2FP DoubleRep x
 
-      IntToInt8Op    -> extendIntCode Int8Rep   IntRep  x
-      IntToInt16Op   -> extendIntCode Int16Rep  IntRep  x
-      IntToInt32Op   -> getRegister x
-      WordToWord8Op  -> extendIntCode Word8Rep  WordRep x
-      WordToWord16Op -> extendIntCode Word16Rep WordRep x
-      WordToWord32Op -> getRegister x
-
       other_op ->
 	getRegister (StCall fn cCallConv DoubleRep [x])
        where
@@ -3264,20 +3257,6 @@ coerceFP2Int x
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if i386_TARGET_ARCH
 
-extendIntCode :: PrimRep -> PrimRep -> StixTree -> NatM Register
-extendIntCode pks pkd x
-  = coerceIntCode pks x		`thenNat` \ register ->
-    getNewRegNCG pks		`thenNat` \ reg ->
-    let
-    	code = registerCode register reg
-    	src  = registerName register reg
-        opc  = case pkd of IntRep -> MOVSxL ; WordRep -> MOVZxL
-        sz   = primRepToSize pks
-        code__2 dst = code `snocOL` opc sz (OpReg src) (OpReg dst)
-    in
-    returnNat (Any pkd code__2)
-
-------------
 coerceInt2FP pk x
   = getRegister x		`thenNat` \ register ->
     getNewRegNCG IntRep		`thenNat` \ reg ->