diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-07-03 21:44:13 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-07-03 21:44:13 +0000 |
| commit | 1f8efd5d6214c490ef4942134abf5de9f468d29c (patch) | |
| tree | 59453bd516eba174ebeba10e0a44af236d3103bd /compiler/codeGen/CgMonad.lhs | |
| parent | 55f8b001f06d0a2a1e9b0e84cbaa5f2f109270df (diff) | |
| download | haskell-1f8efd5d6214c490ef4942134abf5de9f468d29c.tar.gz | |
Added support for update frames to the CPS pass
(This required a bit of refactoring of CmmInfo.)
Diffstat (limited to 'compiler/codeGen/CgMonad.lhs')
| -rw-r--r-- | compiler/codeGen/CgMonad.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgMonad.lhs b/compiler/codeGen/CgMonad.lhs index d40c511327..688591292c 100644 --- a/compiler/codeGen/CgMonad.lhs +++ b/compiler/codeGen/CgMonad.lhs @@ -745,7 +745,7 @@ emitSimpleProc :: CLabel -> Code -> Code emitSimpleProc lbl code = do { stmts <- getCgStmts code ; blks <- cgStmtsToBlocks stmts - ; emitProc (CmmNonInfo Nothing) lbl [] blks } + ; emitProc (CmmInfo Nothing Nothing CmmNonInfoTable) lbl [] blks } getCmm :: Code -> FCode Cmm -- Get all the CmmTops (there should be no stmts) |