From 011d6f96b6bbaf1aa651c96ccbee0d21d16c2146 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 13 Dec 2011 13:03:23 +0000 Subject: Fix for a bug in +RTS -qi (crash in zero_static_object_list) --- rts/sm/GC.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'rts/sm') diff --git a/rts/sm/GC.c b/rts/sm/GC.c index 993de51bf8..aeadf6f42f 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -651,7 +651,9 @@ GarbageCollect (rtsBool force_major_gc, zero_static_object_list(gct->scavenged_static_objects); } else { for (i = 0; i < n_gc_threads; i++) { - zero_static_object_list(gc_threads[i]->scavenged_static_objects); + if (!gc_threads[i]->idle) { + zero_static_object_list(gc_threads[i]->scavenged_static_objects); + } } } } -- cgit v1.2.1