diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-01-09 11:45:00 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-01-09 11:59:28 +0000 |
commit | dbe23faf03015412d408a0b54662009b941989a6 (patch) | |
tree | 120e567c6cf2638b08e90992c22fda2c71c2c4d9 /regen | |
parent | 981b7185ef2472d1c02fc44a48e3319544ae0baf (diff) | |
download | perl-dbe23faf03015412d408a0b54662009b941989a6.tar.gz |
Remove commented-out code from regen/opcode.pl
Diffstat (limited to 'regen')
-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; |