From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 13 Apr 2011 10:27:20 +0000 (+0100)
Subject: fix a bug introduced in 1fb38442d3a55ac92795aa6c5ed4df82011df724,
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6a6b16df28a0a38ac93a51767fcd743d04097ac5;p=ghc-hetmet.git

fix a bug introduced in 1fb38442d3a55ac92795aa6c5ed4df82011df724,
symptom was 2047(threaded2) was crashing.
---

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index d0dd44d..05bc8f2 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -643,8 +643,12 @@ GarbageCollect (rtsBool force_major_gc,
   // zero the scavenged static object list 
   if (major_gc) {
       nat i;
-      for (i = 0; i < n_gc_threads; i++) {
-          zero_static_object_list(gc_threads[i]->scavenged_static_objects);
+      if (n_gc_threads == 1) {
+          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);
+          }
       }
   }