X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmMonad.hs;h=c1f743dc56be1bab244d7c56c661ac1300c8f3ba;hb=785e4ab34b25c6f023183d6fabf5e74b27b416f9;hp=2249a463df45dab1568352185e856d9354814209;hpb=e6243a818496aad82b6f47511d3bd9bc800f747d;p=ghc-hetmet.git

diff --git a/compiler/codeGen/StgCmmMonad.hs b/compiler/codeGen/StgCmmMonad.hs
index 2249a46..c1f743d 100644
--- a/compiler/codeGen/StgCmmMonad.hs
+++ b/compiler/codeGen/StgCmmMonad.hs
@@ -209,12 +209,10 @@ data Sequel
   | AssignTo 
 	[LocalReg]	-- Put result(s) in these regs and fall through
 			-- 	NB: no void arguments here
-	C_SRT		-- Here are the statics live in the continuation
-			-- E.g.  case (case x# of 0# -> a; DEFAULT -> b) of {
-			-- 	    r -> <blah>
-			-- When compiling the nested case, remember to put the
-			-- result in r, and fall through  
-
+        Bool            -- Should we adjust the heap pointer back to recover
+                        -- space that's unused on this path?
+                        -- We need to do this only if the expression may
+                        -- allocate (e.g. it's a foreign call or allocating primOp)
 
 initCgInfoDown :: DynFlags -> Module -> CgInfoDownwards
 initCgInfoDown dflags mod