Remove code that is dead now that we need >= 6.12 to build
[ghc-hetmet.git] / compiler / cmm / CmmInfo.hs
index de6e201..2549453 100644 (file)
@@ -21,10 +21,10 @@ import SMRep
 import ZipCfgCmmRep
 
 import Constants
+import Panic
 import StaticFlags
 import Unique
 import UniqSupply
-import Panic
 
 import Data.Bits
 
@@ -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)