diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-05-06 11:07:39 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-05-06 11:07:39 +0000 |
| commit | 45881ab5b0b2572993372b9428d3e9f86fc42254 (patch) | |
| tree | 9ea545df278c4734c4acc2412244977401631ec8 /rts/sm | |
| parent | c279f61e3762b137c035ca0bae960415a8916f03 (diff) | |
| download | haskell-45881ab5b0b2572993372b9428d3e9f86fc42254.tar.gz | |
Fix +RTS -G1
Diffstat (limited to 'rts/sm')
| -rw-r--r-- | rts/sm/Storage.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index c2a191170d..34cdab16ca 100644 --- a/rts/sm/Storage.c +++ b/rts/sm/Storage.c @@ -290,7 +290,9 @@ newCAF(StgRegTable *reg, StgClosure* caf) { // Put this CAF on the mutable list for the old generation. ((StgIndStatic *)caf)->saved_info = NULL; - recordMutableCap(caf, regTableToCapability(reg), oldest_gen->no); + if (oldest_gen->no != 0) { + recordMutableCap(caf, regTableToCapability(reg), oldest_gen->no); + } } } |