First pass at implementing info tables for CPS

[ghc-hetmet.git] / compiler / codeGen / CgCallConv.hs

diff --git a/compiler/codeGen/CgCallConv.hs b/compiler/codeGen/CgCallConv.hs
index 9f2c1bc..b0fab89 100644 (file)
--- a/compiler/codeGen/CgCallConv.hs
+++ b/compiler/codeGen/CgCallConv.hs
@@ -51,6 +51,7 @@ import Util
 import StaticFlags
 import FastString
 import Outputable
+import Unique
 
 import Data.Bits
 
@@ -135,7 +136,7 @@ stdPattern other = Nothing
 mkLiveness :: Name -> Int -> Bitmap -> FCode Liveness
 mkLiveness name size bits
   | size > mAX_SMALL_BITMAP_SIZE               -- Bitmap does not fit in one word
-  = do { let lbl = mkBitmapLabel name
+  = do { let lbl = mkBitmapLabel (getUnique name)
        ; emitRODataLits lbl ( mkWordCLit (fromIntegral size)
                             : map mkWordCLit bits)
        ; return (BigLiveness lbl) }
@@ -290,7 +291,7 @@ getSequelAmode
 -- There are four kinds of things on the stack:
 --
 --     - pointer variables (bound in the environment)
---     - non-pointer variables (boudn in the environment)
+--     - non-pointer variables (bound in the environment)
 --     - free slots (recorded in the stack free list)
 --     - non-pointer data slots (recorded in the stack free list)
 --