From: simonpj <unknown>
Date: Mon, 26 Nov 2001 10:27:14 +0000 (+0000)
Subject: [project @ 2001-11-26 10:27:14 by simonpj]
X-Git-Tag: Approximately_9120_patches~524
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=eb06b89fd426c89bf20813ccc614bd8c8be29adb;p=ghc-hetmet.git

[project @ 2001-11-26 10:27:14 by simonpj]
Comments only
---

diff --git a/ghc/compiler/stgSyn/StgSyn.lhs b/ghc/compiler/stgSyn/StgSyn.lhs
index 2de6d62..7fd945a 100644
--- a/ghc/compiler/stgSyn/StgSyn.lhs
+++ b/ghc/compiler/stgSyn/StgSyn.lhs
@@ -210,11 +210,11 @@ This has the same boxed/unboxed business as Core case expressions.
 	(GenStgExpr bndr occ)
 			-- the thing to examine
 
-	(GenStgLiveVars occ) -- Live vars of whole case
-			-- expression; i.e., those which mustn't be
-			-- overwritten
+	(GenStgLiveVars occ) -- Live vars of whole case expression, 
+			-- plus everything that happens after the case
+			-- i.e., those which mustn't be overwritten
 
-	(GenStgLiveVars occ) -- Live vars of RHSs;
+	(GenStgLiveVars occ) -- Live vars of RHSs (plus what happens afterwards)
 			-- i.e., those which must be saved before eval.
 			--
 			-- note that an alt's constructor's