diff options
Diffstat (limited to 'compiler/codeGen/CgStackery.lhs')
| -rw-r--r-- | compiler/codeGen/CgStackery.lhs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/compiler/codeGen/CgStackery.lhs b/compiler/codeGen/CgStackery.lhs index 7b1d98605e..4196997f7a 100644 --- a/compiler/codeGen/CgStackery.lhs +++ b/compiler/codeGen/CgStackery.lhs @@ -41,6 +41,8 @@ import Util import FastString import OrdList import Outputable + +import Control.Monad \end{code} %************************************************************************ @@ -275,12 +277,10 @@ pushUpdateFrame :: CmmExpr -> Code -> Code pushUpdateFrame updatee code = do { -#ifdef DEBUG - EndOfBlockInfo _ sequel <- getEndOfBlockInfo ; - ASSERT(case sequel of { OnStack -> True; _ -> False}) -#endif - - allocStackTop (fixedHdrSize + + when debugIsOn $ do + { EndOfBlockInfo _ sequel <- getEndOfBlockInfo ; + ; MASSERT(case sequel of { OnStack -> True; _ -> False}) } + ; allocStackTop (fixedHdrSize + sIZEOF_StgUpdateFrame_NoHdr `quot` wORD_SIZE) ; vsp <- getVirtSp ; setStackFrame vsp |