X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FcodeGen%2FStgCmmLayout.hs;fp=compiler%2FcodeGen%2FStgCmmLayout.hs;h=21e55ee074ded1985908b3a7b9db0dcab008f31c;hb=e21c922fcdd1dac193bd8ff5670787daa3c21a12;hp=3b69061426219a1097efdf16b46165e55d6d972a;hpb=2d367f855c3556166d24cf538d5c34d0ff596a2f;p=ghc-hetmet.git

diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs
index 3b69061..21e55ee 100644
--- a/compiler/codeGen/StgCmmLayout.hs
+++ b/compiler/codeGen/StgCmmLayout.hs
@@ -400,7 +400,7 @@ mkLiveness name size bits
   = let
         small_bits = case bits of 
 			[]  -> 0
-			[b] -> fromIntegral b
+                        [b] -> b
 			_   -> panic "livenessToAddrMode"
     in
     return (smallLiveness size small_bits)