Remove commented-out code from regen/opcode.pl
authorNicholas Clark <nick@ccl4.org>
Sun, 9 Jan 2011 11:45:00 +0000 (11:45 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 9 Jan 2011 11:59:28 +0000 (11:59 +0000)
regen/opcode.pl

index 6e1ad22..783db68 100755 (executable)
@@ -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;