[svn:parrot] r45817 - trunk/lib/Parrot/Pmc2c

petdance at svn.parrot.org petdance at svn.parrot.org
Tue Apr 20 05:47:09 UTC 2010


Author: petdance
Date: Tue Apr 20 05:47:08 2010
New Revision: 45817
URL: https://trac.parrot.org/parrot/changeset/45817

Log:
Consting the _call_object arg in the generated code. Removed an unused Perl method.

Modified:
   trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm

Modified: trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm	Tue Apr 20 05:35:15 2010	(r45816)
+++ trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm	Tue Apr 20 05:47:08 2010	(r45817)
@@ -414,7 +414,7 @@
     $e->emit( <<"END", __FILE__, __LINE__ + 1 );
     PMC * const _ctx         = CURRENT_CONTEXT(interp);
     PMC * const _ccont       = Parrot_pcc_get_continuation(interp, _ctx);
-    PMC * _call_object       = Parrot_pcc_get_signature(interp, _ctx);
+    PMC * const _call_object = Parrot_pcc_get_signature(interp, _ctx);
     PMC * _ret_object        = PMCNULL;
 
     { /* BEGIN PARMS SCOPE */
@@ -428,11 +428,11 @@
             $params_varargs);
 END
     }
-    $e->emit( <<"END", __FILE__, __LINE__ + 1 );
+    $e->emit( <<'END', __FILE__, __LINE__ + 1 );
     { /* BEGIN PMETHOD BODY */
 END
 
-    $e_post->emit( <<"END", __FILE__, __LINE__ + 1 );
+    $e_post->emit( <<'END', __FILE__, __LINE__ + 1 );
 
     } /* END PMETHOD BODY */
     } /* END PARAMS SCOPE */
@@ -450,10 +450,6 @@
     return 1;
 }
 
-sub isquoted {
-    1;
-}
-
 sub rewrite_pccinvoke {
     my ( $method, $pmc ) = @_;
     my $body             = $method->body;


More information about the parrot-commits mailing list