diff options
-rwxr-xr-x | regen/opcode.pl | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/regen/opcode.pl b/regen/opcode.pl index 6e1ad225d9..783db68f57 100755 --- a/regen/opcode.pl +++ b/regen/opcode.pl @@ -173,7 +173,6 @@ END my $i = 0; for (@ops) { - # print $on "\t", &tab(3,"OP_\U$_,"), "/* ", $i++, " */\n"; print $on "\t", &tab(3,"OP_\U$_"), " = ", $i++, ",\n"; } print $on "\t", &tab(3,"OP_max"), "\n"; @@ -226,18 +225,6 @@ END_EXTERN_C #endif /* !PERL_GLOBAL_STRUCT_INIT */ END -# Emit function declarations. - -#for (sort keys %ckname) { -# print "OP *\t", &tab(3,$_),"(pTHX_ OP* o);\n"; -#} -# -#print "\n"; -# -#for (@ops) { -# print "OP *\t", &tab(3, "pp_$_"), "(pTHX);\n"; -#} - # Emit ppcode switch array. print <<END; |