Initial 3-way merge from (5.001m, thr1m, 5.003) plus fixups.
[perl.git] / opcode.pl
index fddf646..19b94a9 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -81,13 +81,13 @@ END
 # Emit function declarations.
 
 for (sort keys %ckname) {
-    print "OP *\t", &tab(3,$_),"_((OP* op));\n";
+    print "OP *\t", &tab(3,$_),"_((OP* o));\n";
 }
 
 print "\n";
 
 for (@ops) {
-    print "OP *\t", &tab(3, "pp_\L$_"), "_((void));\n";
+    print "OP *\t", &tab(3, "pp_\L$_"), "_((ARGSproto));\n";
 }
 
 # Emit ppcode switch array.