From 928e00e2a994559bf0eeb56dff22c7a3cf5c68be Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 26 Jul 2005 14:38:42 +0000 Subject: [PATCH] [project @ 2005-07-26 14:38:42 by simonmar] oops, fix heavy-handed C-k in prev commit --- ghc/rts/GC.c | 1 + 1 file changed, 1 insertion(+) 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 -- 1.7.10.4