diff options
| author | simonpj <unknown> | 2004-12-08 14:32:34 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2004-12-08 14:32:34 +0000 |
| commit | 7504acab79c4ac75159337c50050c254d83e5184 (patch) | |
| tree | d9248732bb4c61be5ec7126f6600f2466b1cc458 /ghc/compiler/codeGen/CodeGen.lhs | |
| parent | c418e72f39aee1510267d5c96fd4d7227cd455d9 (diff) | |
| download | haskell-7504acab79c4ac75159337c50050c254d83e5184.tar.gz | |
[project @ 2004-12-08 14:32:28 by simonpj]
Comments and asserts only
Diffstat (limited to 'ghc/compiler/codeGen/CodeGen.lhs')
| -rw-r--r-- | ghc/compiler/codeGen/CodeGen.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs index 056fb1ef50..608ff92671 100644 --- a/ghc/compiler/codeGen/CodeGen.lhs +++ b/ghc/compiler/codeGen/CodeGen.lhs @@ -295,7 +295,7 @@ cgTopBinding dflags (StgRec pairs, srts) ; bndrs' <- mapFCs maybeExternaliseId bndrs ; let pairs' = zip bndrs' rhss ; mapM_ (mkSRT dflags bndrs') srts - ; new_binds <- fixC (\ new_binds -> do + ; _new_binds <- fixC (\ new_binds -> do { addBindsC new_binds ; mapFCs ( \ (b,e) -> cgTopRhs b e ) pairs' }) ; nopC } |