X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FGC.c;fp=rts%2Fsm%2FGC.c;h=05bc8f22fb9e325488f9f97ecc9a983f2f5914ad;hp=d0dd44dd8aa0d0976a243c344330f34b955af1cb;hb=6a6b16df28a0a38ac93a51767fcd743d04097ac5;hpb=243c304273a1254418aeacf4d81cadb2d59945ad

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);
+          }
       }
   }