[svn:parrot] r43046 - branches/context_unify3/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Dec 14 12:44:37 2009
New Revision: 43046
URL: https://trac.parrot.org/parrot/changeset/43046

Log:
Resurrect Sub.invoke's set of parent context to grand-parent.

Modified:
   branches/context_unify3/src/pmc/sub.pmc

Modified: branches/context_unify3/src/pmc/sub.pmc
==============================================================================
--- branches/context_unify3/src/pmc/sub.pmc	Mon Dec 14 12:44:17 2009	(r43045)
+++ branches/context_unify3/src/pmc/sub.pmc	Mon Dec 14 12:44:37 2009	(r43046)
@@ -478,8 +478,10 @@
                 Parrot_pcc_dec_recursion_depth(INTERP, context);
 
                 PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;
-                //Parrot_pcc_set_caller_ctx(interp, context,
-                //        Parrot_pcc_get_caller_ctx(interp, caller_ctx));
+                /* Weird code to set parent to grand-parent */
+                Parrot_pcc_set_caller_ctx(interp, context,
+                        Parrot_pcc_get_caller_ctx(interp,
+                                Parrot_pcc_get_caller_ctx(interp, context)));
             }
         }