[svn:parrot] r40914 - in branches/context_pmc3: src/pmc t/pmc

bacek at svn.parrot.org bacek at svn.parrot.org
Tue Sep 1 21:53:58 UTC 2009


Author: bacek
Date: Tue Sep  1 21:53:57 2009
New Revision: 40914
URL: https://trac.parrot.org/parrot/changeset/40914

Log:
[cage] Don't mark non-initialised Context. darbelo++

Modified:
   branches/context_pmc3/src/pmc/context.pmc
   branches/context_pmc3/t/pmc/context.t

Modified: branches/context_pmc3/src/pmc/context.pmc
==============================================================================
--- branches/context_pmc3/src/pmc/context.pmc	Tue Sep  1 20:41:08 2009	(r40913)
+++ branches/context_pmc3/src/pmc/context.pmc	Tue Sep  1 21:53:57 2009	(r40914)
@@ -56,6 +56,10 @@
         PObj *obj;
         int   i;
 
+        /* If Context wasn't initialised just return */
+        if (!ctx)
+            return;
+
         obj = (PObj *)ctx->caller_ctx;
         if (obj)
             Parrot_gc_mark_PObj_alive(interp, obj);

Modified: branches/context_pmc3/t/pmc/context.t
==============================================================================
--- branches/context_pmc3/t/pmc/context.t	Tue Sep  1 20:41:08 2009	(r40913)
+++ branches/context_pmc3/t/pmc/context.t	Tue Sep  1 21:53:57 2009	(r40914)
@@ -24,6 +24,7 @@
     plan(1)
 
     $P0 = new ['Context']
+    sweep 1
     ok(1, 'Instantiated .Context')
 .end
 


More information about the parrot-commits mailing list