[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