[svn:parrot] r43114 - branches/context_unify3/src/call

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Dec 16 21:25:12 2009
New Revision: 43114
URL: https://trac.parrot.org/parrot/changeset/43114

Log:
Put workaround into init_context to avoid reinitilising Coro context.

Modified:
   branches/context_unify3/src/call/context.c

Modified: branches/context_unify3/src/call/context.c
==============================================================================
--- branches/context_unify3/src/call/context.c	Wed Dec 16 20:52:23 2009	(r43113)
+++ branches/context_unify3/src/call/context.c	Wed Dec 16 21:25:12 2009	(r43114)
@@ -308,6 +308,13 @@
 
     PARROT_ASSERT(!PMC_IS_NULL(pmcctx) || !"Can't initialise Null CallContext");
 
+    /* 
+     * FIXME Invoking corotine shouldn't initialise context. So just
+     * check ctx->current_sub. If it's not null return from here
+     */
+    if (!PMC_IS_NULL(ctx->current_sub))
+        return;
+
     ctx->current_results   = NULL;
     ctx->results_signature = NULL;
     ctx->lex_pad           = PMCNULL;