summaryrefslogtreecommitdiff
path: root/regen
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2011-01-09 11:45:00 +0000
committerNicholas Clark <nick@ccl4.org>2011-01-09 11:59:28 +0000
commitdbe23faf03015412d408a0b54662009b941989a6 (patch)
tree120e567c6cf2638b08e90992c22fda2c71c2c4d9 /regen
parent981b7185ef2472d1c02fc44a48e3319544ae0baf (diff)
downloadperl-dbe23faf03015412d408a0b54662009b941989a6.tar.gz
Remove commented-out code from regen/opcode.pl
Diffstat (limited to 'regen')
-rwxr-xr-xregen/opcode.pl13
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;