From: sof <unknown>
Date: Mon, 13 Sep 2004 17:18:27 +0000 (+0000)
Subject: [project @ 2004-09-13 17:18:27 by sof]
X-Git-Tag: Initial_conversion_from_CVS_complete~1604
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=db42a91b5f07e0c034ca36f95641fa6a46044ab1;p=ghc-hetmet.git

[project @ 2004-09-13 17:18:27 by sof]
threadSqueezeStack(): with DEBUG, zero out entire payload when
blackholing. Required now that LOOKS_LIKE_INFO_PTR() isn't 100%
precise.

Merge to STABLE
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index d00ea3c..735b051 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -16,7 +16,6 @@
 #include "Updates.h"
 #include "Stats.h"
 #include "Schedule.h"
-#include "SchedAPI.h"		// for ReverCAFs prototype
 #include "Sanity.h"
 #include "BlockAlloc.h"
 #include "MBlock.h"
@@ -4190,8 +4189,8 @@ threadSqueezeStack(StgTSO *tso)
 			 * same size as a BLACKHOLE in any case.
 			 */
 			if (bh_info->type != THUNK_SELECTOR) {
-			    for (i = np; i < np + nw; i++) {
-				((StgClosure *)bh)->payload[i] = 0;
+			    for (i = 0; i < np + nw; i++) {
+				((StgClosure *)bh)->payload[i] = INVALID_OBJECT;
 			    }
 			}
 		    }