Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c7e3cba25cbb0c50e27ca1df4ef71cf3556a492c >--------------------------------------------------------------- commit c7e3cba25cbb0c50e27ca1df4ef71cf3556a492c Author: Simon Marlow <[email protected]> Date: Tue May 24 14:28:46 2011 +0100 Fix +RTS -G1 (by deleting code, yay!) (#5026) >--------------------------------------------------------------- rts/sm/GC.c | 10 ---------- 1 files changed, 0 insertions(+), 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) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
