Let only the GC in the main thread mark PMCNULL since it's shared bet…

…ween all threads.
parrot · Dec 9, 2011 · 5587496 · 5587496
1 parent f356ba9
commit 5587496
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/gc/gc_gms.c b/src/gc/gc_gms.c
@@ -798,7 +798,8 @@ gc_gms_mark_and_sweep(PARROT_INTERP, UINTVAL flags)
     4. Trace root objects. According to "0. Pre-requirements" we will ignore all
     "old" objects. All relevant objects are moved into "work_list".
     */
-    gc_gms_mark_pmc_header(interp, PMCNULL);
+    if (! interp->thread_data)
+        gc_gms_mark_pmc_header(interp, PMCNULL);
     Parrot_gc_trace_root(interp, NULL, GC_TRACE_FULL);
 
     if (interp->pdb && interp->pdb->debugger)