[pmc2c] WIP - Making Parrot_CallContext_class_init static again. GH p…

…arrot#1083
ZYROz · Jul 31, 2014 · c2e0eb4 · c2e0eb4
1 parent a036b40
commit c2e0eb4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Parrot/Pmc2c/Method.pm b/lib/Parrot/Pmc2c/Method.pm
@@ -337,7 +337,7 @@ sub decl {
     }
     my $interp = $self->interp_unused ? 'SHIM_INTERP' : 'PARROT_INTERP';
     my $pmcarg = $self->pmc_unused ? 'SHIM(PMC *_self)' : 'ARGMOD(PMC *_self)';
-    my $static = $pmcname eq 'CallContext' ? "" : "static";
+    my $static = (($pmcname eq 'CallContext') and not($meth eq 'class_init'))? "" : "static";
 
     return <<"EOC";
 $static $decs $ret${newl}Parrot_${pmcname}_$meth($interp, $pmcarg$args)$semi