From db42a91b5f07e0c034ca36f95641fa6a46044ab1 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 13 Sep 2004 17:18:27 +0000
Subject: [PATCH] [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
---
 ghc/rts/GC.c |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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;
 			    }
 			}
 		    }
-- 
1.7.10.4