Skip to content
This repository
Browse code

Annotate non-SHIM PMC arguments in generated PMC C code

  • Loading branch information...
commit 48f56a3545447fa982c8b598e0bcdf08f1eee609 1 parent 37ce94f
Andy Lester authored April 16, 2011

Showing 1 changed file with 1 addition and 2 deletions. Show diff stats Hide diff stats

  1. 3  lib/Parrot/Pmc2c/Method.pm
3  lib/Parrot/Pmc2c/Method.pm
@@ -256,8 +256,7 @@ sub decl {
256 256
         $newl   = "\n";
257 257
         $semi   = '';
258 258
     }
259  
-    my $pmcarg = 'PMC *_self';
260  
-    $pmcarg    = "SHIM($pmcarg)" if $self->pmc_unused;
  259
+    my $pmcarg = $self->pmc_unused ? 'SHIM(PMC *_self)' : 'ARGMOD(PMC *_self)';
261 260
 
262 261
     return <<"EOC";
263 262
 static $decs $ret${newl}Parrot_${pmcname}_$meth(PARROT_INTERP, $pmcarg$args)$semi

0 notes on commit 48f56a3

Please sign in to comment.
Something went wrong with that request. Please try again.