X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FMkZipCfg.hs;h=d098bb620fe38684d6cd19ba8e4ac0ffef2cce2c;hb=cd437edc8792e5dbcfaa6a6b9948364e9d9d08f3;hp=a0dcf11e8ae6e706091c91acd62bb7114ca6898d;hpb=f33b7c7044e8f007aff400633ef01fe91d2fb567;p=ghc-hetmet.git

diff --git a/compiler/cmm/MkZipCfg.hs b/compiler/cmm/MkZipCfg.hs
index a0dcf11..d098bb6 100644
--- a/compiler/cmm/MkZipCfg.hs
+++ b/compiler/cmm/MkZipCfg.hs
@@ -350,5 +350,14 @@ Emitting a Branch at this point is fine:
        goto L1; L2: ...stuff... 
 -}
 
+
+-- | The string argument to 'freshBlockId' was originally helpful in debugging
+-- the Quick C-- compiler, so I have kept it here even though at present it is
+-- thrown away at this spot---there's no reason a BlockId couldn't one day carry
+-- a string.  
+
+freshBlockId :: String -> UniqSM BlockId
+freshBlockId _ = do { u <- getUniqueUs; return $ BlockId u }
+
 _unused :: FS.FastString
 _unused = undefined