X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FUpdates.h;h=abca78817d6b4b1cce225aeb8b3ff72e21eb1eea;hb=afdbaf48894b74eee5b6cc5c17c477d9e517f389;hp=2456f12b5823f5f8eafa004644b64245eda74640;hpb=73566e25d75588185b0581722406da5c48965c51;p=ghc-hetmet.git

diff --git a/rts/Updates.h b/rts/Updates.h
index 2456f12..abca788 100644
--- a/rts/Updates.h
+++ b/rts/Updates.h
@@ -233,6 +233,10 @@ FILL_SLOP(StgClosure *p)
     switch (inf->type) {
     case BLACKHOLE:
     case CAF_BLACKHOLE:
+	goto no_slop;
+	// we already filled in the slop when we overwrote the thunk
+	// with BLACKHOLE, and also an evacuated BLACKHOLE is only the
+	// size of an IND.
     case THUNK_SELECTOR:
 	sz = sizeofW(StgSelector) - sizeofW(StgThunkHeader);
 	break;
@@ -249,6 +253,8 @@ FILL_SLOP(StgClosure *p)
     for (i = 0; i < sz; i++) {
 	((StgThunk *)p)->payload[i] = 0;
     }
+no_slop:
+    ;
 }
 
 #endif /* CMINUSMINUS */