diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-15 20:10:30 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-15 20:10:30 +0000 |
| commit | cd437edc8792e5dbcfaa6a6b9948364e9d9d08f3 (patch) | |
| tree | 3faffa8e98db3d5046d7f619b3a12ccfb75bca5b /compiler/codeGen | |
| parent | 6cc7a2957040c2d751a14c3776cf144152be4dd0 (diff) | |
| download | haskell-cd437edc8792e5dbcfaa6a6b9948364e9d9d08f3.tar.gz | |
get freshBlockId out of ZipCfg and bury it in MkZipCfg where it belongs
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CgMonad.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/CgMonad.lhs b/compiler/codeGen/CgMonad.lhs index 55110c1977..6a26e668f1 100644 --- a/compiler/codeGen/CgMonad.lhs +++ b/compiler/codeGen/CgMonad.lhs @@ -712,8 +712,8 @@ labelC :: BlockId -> Code labelC id = emitCgStmt (CgLabel id) newLabelC :: FCode BlockId -newLabelC = do { us <- newUniqSupply - ; return $ initUs_ us (freshBlockId "LabelC") } +newLabelC = do { u <- newUnique + ; return $ BlockId u } checkedAbsC :: CmmStmt -> Code -- Emit code, eliminating no-ops |