Add and use seqBitmap when constructing SRTs

[ghc-hetmet.git] / compiler / simplStg / SRT.lhs

diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs
index 57c638d..5618cb1 100644 (file)
--- a/compiler/simplStg/SRT.lhs
+++ b/compiler/simplStg/SRT.lhs
@@ -25,7 +25,7 @@ import Id             ( Id )
 import VarSet
 import VarEnv
 import Maybes          ( orElse, expectJust )
 import VarSet
 import VarEnv
 import Maybes          ( orElse, expectJust )

-import Bitmap          ( intsToBitmap )
+import Bitmap

 
 #ifdef DEBUG
 import Outputable
 
 #ifdef DEBUG
 import Outputable

@@ -157,7 +157,7 @@ srtAlt table (con,args,used,rhs)
 constructSRT :: IdEnv Int -> SRT -> SRT
 constructSRT table (SRTEntries entries)
  | isEmptyVarSet entries = NoSRT
 constructSRT :: IdEnv Int -> SRT -> SRT
 constructSRT table (SRTEntries entries)
  | isEmptyVarSet entries = NoSRT

- | otherwise  = SRT offset len bitmap
+ | otherwise  = seqBitmap bitmap $ SRT offset len bitmap

   where
     ints = map (expectJust "constructSRT" . lookupVarEnv table) 
                (varSetElems entries)
   where
     ints = map (expectJust "constructSRT" . lookupVarEnv table) 
                (varSetElems entries)