[svn:parrot] r43035 - branches/context_unify3/lib/Parrot/Pmc2c

[bacek at svn.parrot.org]

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

Log:
Remove redundant _call_object from PCCMETHOD.pm

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

Modified: branches/context_unify3/lib/Parrot/Pmc2c/PCCMETHOD.pm
==============================================================================
--- branches/context_unify3/lib/Parrot/Pmc2c/PCCMETHOD.pm	Mon Dec 14 11:31:47 2009	(r43034)
+++ branches/context_unify3/lib/Parrot/Pmc2c/PCCMETHOD.pm	Mon Dec 14 12:38:37 2009	(r43035)
@@ -258,7 +258,7 @@
     /*BEGIN RETURN $returns */
 END
         $e->emit( <<"END", __FILE__, __LINE__ + 1 );
-    Parrot_pcc_fill_returns_from_c_args(interp, _call_object, "$returns_signature",
+    Parrot_pcc_fill_returns_from_c_args(interp, _ctx, "$returns_signature",
             $returns_varargs);
     return;
     /*END RETURN $returns */
@@ -414,7 +414,6 @@
     $e->emit( <<"END", __FILE__, __LINE__ + 1 );
     PMC * const _ctx         = CURRENT_CONTEXT(interp);
     PMC * const _ccont       = Parrot_pcc_get_continuation(interp, _ctx);
-    PMC * const _call_object = Parrot_pcc_get_signature(interp, _ctx);
 
     Parrot_pcc_set_signature(interp, _ctx, NULL);
 
@@ -425,7 +424,7 @@
 END
     if ($params_signature) {
         $e->emit( <<"END", __FILE__, __LINE__ + 1 );
-        Parrot_pcc_fill_params_from_c_args(interp, _call_object, "$params_signature",
+        Parrot_pcc_fill_params_from_c_args(interp, _ctx, "$params_signature",
             $params_varargs);
 END
     }