diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 17:11:35 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 17:11:35 +0000 |
| commit | 7c7104a51d477c18f8950112c4bc22c4800367f3 (patch) | |
| tree | 8daa3abac6c5ba9ba8f71dd3017f54978c4cb74f /compiler/codeGen | |
| parent | 535e1a3538e67701cfedbdb1bffcea4428ccea23 (diff) | |
| download | haskell-7c7104a51d477c18f8950112c4bc22c4800367f3.tar.gz | |
DEBUG removal
Diffstat (limited to 'compiler/codeGen')
| -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 |