[svn:parrot] r40917 - branches/kill_parrot_cont/src/pmc

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Tue Sep  1 23:32:54 2009
New Revision: 40917
URL: https://trac.parrot.org/parrot/changeset/40917

Log:
[kill_parrot_cont] fix a GC bug that was causing a test failure. Courtesy jrtayloriv++

Modified:
   branches/kill_parrot_cont/src/pmc/continuation.pmc

Modified: branches/kill_parrot_cont/src/pmc/continuation.pmc
==============================================================================
--- branches/kill_parrot_cont/src/pmc/continuation.pmc	Tue Sep  1 23:25:59 2009	(r40916)
+++ branches/kill_parrot_cont/src/pmc/continuation.pmc	Tue Sep  1 23:32:54 2009	(r40917)
@@ -100,6 +100,7 @@
         attrs->address   = PARROT_CONTINUATION(values)->address;
         attrs->current_results = attrs->to_ctx->current_results;
 
+        PObj_active_destroy_SET(SELF);
         PObj_custom_mark_destroy_SETALL(SELF);
 
         /* PANIC("don't do that"); */
@@ -159,9 +160,6 @@
 #endif
             if (cc->from_ctx)
                 Parrot_free_context(interp, cc->from_ctx, 1);
-
-            if (cc->to_ctx)
-                Parrot_free_context(interp, cc->to_ctx, 1);
         }
     }
 /*