[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