X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmInfo.hs;h=254945328828be70251b3aafcababc1960ad20a5;hb=e21c922fcdd1dac193bd8ff5670787daa3c21a12;hp=c608372c6491f0c59fed067427676e0214fca362;hpb=2d367f855c3556166d24cf538d5c34d0ff596a2f;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmInfo.hs b/compiler/cmm/CmmInfo.hs
index c608372..2549453 100644
--- a/compiler/cmm/CmmInfo.hs
+++ b/compiler/cmm/CmmInfo.hs
@@ -245,7 +245,7 @@ mkLiveness uniq live =
 
     small_bitmap = case bitmap of 
 		   []  -> 0
-		   [b] -> fromIntegral b
+                   [b] -> b
 		   _   -> panic "mkLiveness"
     small_liveness =
         fromIntegral (length bits) .|. (small_bitmap `shiftL` bITMAP_BITS_SHIFT)