X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmInfo.hs;h=254945328828be70251b3aafcababc1960ad20a5;hb=9a82b1ffa35fa4c3927c66a1037a37d436cf6aac;hp=734896adc847fdc20e45d144fa1f56bdcb696ace;hpb=31a9d04804d9cacda35695c5397590516b964964;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmInfo.hs b/compiler/cmm/CmmInfo.hs
index 734896a..2549453 100644
--- a/compiler/cmm/CmmInfo.hs
+++ b/compiler/cmm/CmmInfo.hs
@@ -58,7 +58,7 @@ cmmToRawCmm cmm = do
 --	<normal forward rest of StgInfoTable>
 --	<forward variable part>
 --
---	See includes/InfoTables.h
+--	See includes/rts/storage/InfoTables.h
 --
 -- For return-points these are as follows
 --
@@ -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)