Permalink
Browse files

Annotate non-SHIM PMC arguments in generated PMC C code

  • Loading branch information...
1 parent 37ce94f commit 48f56a3545447fa982c8b598e0bcdf08f1eee609 @petdance petdance committed Apr 17, 2011
Showing with 1 addition and 2 deletions.
  1. +1 −2 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

0 comments on commit 48f56a3

Please sign in to comment.