From c7e3cba25cbb0c50e27ca1df4ef71cf3556a492c Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 24 May 2011 14:28:46 +0100 Subject: [PATCH] Fix +RTS -G1 (by deleting code, yay!) (#5026) --- rts/sm/GC.c | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/rts/sm/GC.c b/rts/sm/GC.c index 3036140..fb73180 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -408,16 +408,6 @@ GarbageCollect (rtsBool force_major_gc, // NO MORE EVACUATION AFTER THIS POINT! - // Two-space collector: free the old to-space. - // g0->old_blocks is the old nursery - // g0->blocks is to-space from the previous GC - if (RtsFlags.GcFlags.generations == 1) { - if (g0->blocks != NULL) { - freeChain(g0->blocks); - g0->blocks = NULL; - } - } - // Finally: compact or sweep the oldest generation. if (major_gc && oldest_gen->mark) { if (oldest_gen->compact) -- 1.7.10.4