[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