projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4ea89bd
)
Fix +RTS -G1 (by deleting code, yay!) (#5026)
author
Simon Marlow
<marlowsd@gmail.com>
Tue, 24 May 2011 13:28:46 +0000
(14:28 +0100)
committer
Simon Marlow
<marlowsd@gmail.com>
Tue, 24 May 2011 14:25:42 +0000
(15:25 +0100)
rts/sm/GC.c
patch
|
blob
|
history
diff --git
a/rts/sm/GC.c
b/rts/sm/GC.c
index
3036140
..
fb73180
100644
(file)
--- 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!
// 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)
// Finally: compact or sweep the oldest generation.
if (major_gc && oldest_gen->mark) {
if (oldest_gen->compact)