diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-05-24 14:28:46 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-05-24 15:25:42 +0100 |
| commit | c7e3cba25cbb0c50e27ca1df4ef71cf3556a492c (patch) | |
| tree | bdf0d2c52e44a095ade9bdc5d8cde9976eacbfec /rts/sm | |
| parent | 4ea89bd48653951748f70b7ba0302877244f9353 (diff) | |
| download | haskell-c7e3cba25cbb0c50e27ca1df4ef71cf3556a492c.tar.gz | |
Fix +RTS -G1 (by deleting code, yay!) (#5026)
Diffstat (limited to 'rts/sm')
| -rw-r--r-- | 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 30361401cc..fb73180d0f 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) |