Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Annotate non-SHIM PMC arguments in generated PMC C code

  • Loading branch information...
commit 48f56a3545447fa982c8b598e0bcdf08f1eee609 1 parent 37ce94f
@petdance petdance authored
Showing with 1 addition and 2 deletions.
  1. +1 −2  lib/Parrot/Pmc2c/Method.pm
View
3  lib/Parrot/Pmc2c/Method.pm
@@ -256,8 +256,7 @@ sub decl {
$newl = "\n";
$semi = '';
}
- my $pmcarg = 'PMC *_self';
- $pmcarg = "SHIM($pmcarg)" if $self->pmc_unused;
+ my $pmcarg = $self->pmc_unused ? 'SHIM(PMC *_self)' : 'ARGMOD(PMC *_self)';
return <<"EOC";
static $decs $ret${newl}Parrot_${pmcname}_$meth(PARROT_INTERP, $pmcarg$args)$semi
Please sign in to comment.
Something went wrong with that request. Please try again.