Commit 7c7104a5 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

DEBUG removal

parent 535e1a35
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment