diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:15:03 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:15:03 +0000 |
| commit | 1f46671fe24c7155ee64091b71b77dd66909e7a0 (patch) | |
| tree | da9d2099466475b4f291b0e488bcbe2fa4e072d9 /compiler/codeGen | |
| parent | f96e9aa0444de0e673b3c4055c6e43299639bc5b (diff) | |
| download | haskell-1f46671fe24c7155ee64091b71b77dd66909e7a0.tar.gz | |
Added stack checks to the CPS algorithm
This eliminates one of the panics introduced by
the previous patch:
'First pass at implementing info tables for CPS'
The other panic introduced by that patch still remains.
It was due to the need to convert from a
ContinuationInfo to a CmmInfo.
(codeGen/CgInfoTbls.hs:emitClosureCodeAndInfoTable)
(codeGen/CgInfoTbls.hs:emitReturnTarget)
Diffstat (limited to 'compiler/codeGen')
| -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 e3c8a77d58..d40c511327 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 lbl [] blks } + ; emitProc (CmmNonInfo Nothing) lbl [] blks } getCmm :: Code -> FCode Cmm -- Get all the CmmTops (there should be no stmts) |