[svn:parrot] r35847 - trunk/src

Author: chromatic
Date: Tue Jan 20 16:25:58 2009
New Revision: 35847

Modified:
   trunk/src/sub.c

Log:
[GC] Worked around an intermitted GC bug where contents of STRING registers
sometimes have the "Hey, I'm a PMC!" flag set.  Hilarity ensues, in the form of
crashy crashy.  I don't know the cause yet, but this should clear up
once-in-a-while crashes in pobject_lives.

Modified: trunk/src/sub.c
==============================================================================
--- trunk/src/sub.c	(original)
+++ trunk/src/sub.c	Tue Jan 20 16:25:58 2009
@@ -117,8 +117,10 @@
 
     for (i = 0; i < ctx->n_regs_used[REGNO_STR]; ++i) {
         obj = (PObj *)CTX_REG_STR(ctx, i);
-        if (obj)
+        if (obj) {
+            PObj_is_string_SET(obj);
             pobject_lives(interp, obj);
+        }
     }
 }