[svn:parrot] r41473 - branches/pcc_arg_unify_2_0/lib/Parrot/Pmc2c

bacek at svn.parrot.org bacek at svn.parrot.org
Fri Sep 25 10:08:52 UTC 2009


Author: bacek
Date: Fri Sep 25 10:08:42 2009
New Revision: 41473
URL: https://trac.parrot.org/parrot/changeset/41473

Log:
Fix access of Context fields in PCCMETHOD.pm

Modified:
   branches/pcc_arg_unify_2_0/lib/Parrot/Pmc2c/PCCMETHOD.pm

Modified: branches/pcc_arg_unify_2_0/lib/Parrot/Pmc2c/PCCMETHOD.pm
==============================================================================
--- branches/pcc_arg_unify_2_0/lib/Parrot/Pmc2c/PCCMETHOD.pm	Fri Sep 25 09:17:31 2009	(r41472)
+++ branches/pcc_arg_unify_2_0/lib/Parrot/Pmc2c/PCCMETHOD.pm	Fri Sep 25 10:08:42 2009	(r41473)
@@ -400,14 +400,14 @@
     rewrite_pccinvoke( $self, $pmc );
 
     $e->emit( <<"END", __FILE__, __LINE__ + 1 );
-    PMC *_caller_ct, *_ctx, *_ccont, *_call_object;
+    PMC *_caller_ctx, *_ctx, *_ccont, *_call_object;
 
-    _ctx = PARROT_CONTEXT(interp);
+    _ctx = CURRENT_CONTEXT(interp);
     _ccont = Parrot_pcc_get_continuation(interp, _ctx);
 
-    _caller_ctx = _ctx->caller_ctx;
-    _call_object = _ctx->current_sig;
-    _ctx->current_sig = NULL;
+    _caller_ctx = Parrot_pcc_get_caller_ctx(interp, _ctx);
+    _call_object = Parrot_pcc_get_current_sig(interp, _ctx);
+    Parrot_pcc_set_current_sig(interp, _ctx, NULL);
 
     { /* BEGIN PARMS SCOPE */
 END


More information about the parrot-commits mailing list