develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35847 - trunk/src

From:
chromatic
Date:
January 20, 2009 16:26
Subject:
[svn:parrot] r35847 - trunk/src
Message ID:
20090121002559.6BF2FCB9AE@x12.develooper.com
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);
+        }
     }
 }
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About