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

[svn:parrot] r35855 - trunk/src

From:
chromatic
Date:
January 21, 2009 00:18
Subject:
[svn:parrot] r35855 - trunk/src
Message ID:
20090121081841.2A99CCB9AE@x12.develooper.com
Author: chromatic
Date: Wed Jan 21 00:18:39 2009
New Revision: 35855

Modified:
   trunk/src/sub.c

Log:
[GC] Worked around a spurious segfault-inducing problem in the GC where STRINGs
sometimes get the "Hey, I'm a PMC!" flag set.  Somehow r35847 didn't quite do
the trick.  This does.  Whiteknight and I will track this down -- but no time
before the release.

Modified: trunk/src/sub.c
==============================================================================
--- trunk/src/sub.c	(original)
+++ trunk/src/sub.c	Wed Jan 21 00:18:39 2009
@@ -118,6 +118,9 @@
     for (i = 0; i < ctx->n_regs_used[REGNO_STR]; ++i) {
         obj = (PObj *)CTX_REG_STR(ctx, i);
         if (obj) {
+            /* work around a mysterious segfault-inducing problem we haven't
+             * yet tracked down */
+            PObj_flag_CLEAR(is_PMC, 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