[svn:parrot] r44784 - branches/pcc_hackathon_6Mar10/lib/Parrot/Pmc2c

[chromatic at svn.parrot.org]

Author: chromatic
Date: Tue Mar  9 02:02:46 2010
New Revision: 44784
URL: https://trac.parrot.org/parrot/changeset/44784

Log:
[lib] Made PCCMETHODs clear their invocant before returning, so as to avoid
unshifting the invocant onto their list of return values.

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

Modified: branches/pcc_hackathon_6Mar10/lib/Parrot/Pmc2c/PCCMETHOD.pm
==============================================================================
--- branches/pcc_hackathon_6Mar10/lib/Parrot/Pmc2c/PCCMETHOD.pm	Tue Mar  9 00:30:51 2010	(r44783)
+++ branches/pcc_hackathon_6Mar10/lib/Parrot/Pmc2c/PCCMETHOD.pm	Tue Mar  9 02:02:46 2010	(r44784)
@@ -258,6 +258,7 @@
     /*BEGIN RETURN $returns */
 END
         $e->emit( <<"END", __FILE__, __LINE__ + 1 );
+    interp->current_object = PMCNULL;
     Parrot_pcc_build_call_from_c_args(interp, _call_object, "$returns_signature",
             $returns_varargs);
     return;