From 45881ab5b0b2572993372b9428d3e9f86fc42254 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 6 May 2010 11:07:39 +0000 Subject: [PATCH] Fix +RTS -G1 --- rts/sm/Storage.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index c2a1911..34cdab1 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); + } } } -- 1.7.10.4