From: simonmar <unknown>
Date: Tue, 26 Jul 2005 14:38:42 +0000 (+0000)
Subject: [project @ 2005-07-26 14:38:42 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~307
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=928e00e2a994559bf0eeb56dff22c7a3cf5c68be;p=ghc-hetmet.git

[project @ 2005-07-26 14:38:42 by simonmar]
oops, fix heavy-handed C-k in prev commit
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index cce7f3f..47e4971 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1981,6 +1981,7 @@ loop:
 	    // q is still BLACKHOLE'd.
 	    thunk_selector_depth++;
 	    val = evacuate(p);
+	    thunk_selector_depth--;
 
 	    // Update the THUNK_SELECTOR with an indirection to the
 	    // EVACUATED closure now at p.  Why do this rather than