From: sewardj <unknown>
Date: Fri, 9 Feb 2001 10:33:22 +0000 (+0000)
Subject: [project @ 2001-02-09 10:33:22 by sewardj]
X-Git-Tag: Approximately_9120_patches~2703
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1f813d58e63c4b71480c0da05d2a95da4ec0c46a;p=ghc-hetmet.git

[project @ 2001-02-09 10:33:22 by sewardj]
Un-break updateWithIndirection when -DDEBUG (don't zero slop words
beyond end of indirection node in the case of THUNK_SELECTOR) ??
---

diff --git a/ghc/rts/Storage.h b/ghc/rts/Storage.h
index 4f4be78..fcaca04 100644
--- a/ghc/rts/Storage.h
+++ b/ghc/rts/Storage.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Storage.h,v 1.26 2001/02/08 14:36:21 simonmar Exp $
+ * $Id: Storage.h,v 1.27 2001/02/09 10:33:22 sewardj Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -185,8 +185,10 @@ recordOldToNewPtrs(StgMutClosure *p)
           StgInfoTable *inf = get_itbl(p1);				\
 	  nat np = inf->layout.payload.ptrs,				\
 	      nw = inf->layout.payload.nptrs, i;			\
-	  for (i = np; i < np + nw; i++) {				\
-	     ((StgClosure *)p1)->payload[i] = 0;			\
+          if (inf->type != THUNK_SELECTOR) {                            \
+             for (i = np; i < np + nw; i++) {				\
+	        ((StgClosure *)p1)->payload[i] = 0;			\
+             }                                                          \
           }								\
         }								\
         ACQUIRE_LOCK(&sm_mutex);					\