This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove bogus PL_optype_size
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 28 Jun 1999 18:50:52 +0000 (18:50 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 28 Jun 1999 18:50:52 +0000 (18:50 +0000)
p4raw-id: //depot/perl@3560

bytecode.pl
ext/ByteLoader/byterun.h

index e12acbb..030d1ea 100644 (file)
@@ -232,20 +232,6 @@ for ($i = 0; $i < @optype - 1; $i++) {
     printf BYTERUN_H "    OPt_%s,\t\t/* %d */\n", $optype[$i], $i;
 }
 printf BYTERUN_H "    OPt_%s\t\t/* %d */\n};\n\n", $optype[$i], $i;
-print BYTERUN_H <<'EOT';
-EXT int PL_optype_size[]
-#ifdef DOINIT
-= {
-EOT
-for ($i = 0; $i < @optype - 1; $i++) {
-    printf BYTERUN_H "    sizeof(%s),\n", $optype[$i], $i;
-}
-printf BYTERUN_H "    sizeof(%s)\n}\n", $optype[$i], $i;
-print BYTERUN_H <<'EOT';
-#endif /* DOINIT */
-;
-
-EOT
 
 print BYTERUN_H <<'EOT';
 EXT void byterun(pTHXo_ struct bytestream bs);
index 3a0381f..6bc03af 100644 (file)
@@ -154,25 +154,6 @@ enum {
     OPt_COP            /* 11 */
 };
 
-EXT int PL_optype_size[]
-#ifdef DOINIT
-= {
-    sizeof(OP),
-    sizeof(UNOP),
-    sizeof(BINOP),
-    sizeof(LOGOP),
-    sizeof(CONDOP),
-    sizeof(LISTOP),
-    sizeof(PMOP),
-    sizeof(SVOP),
-    sizeof(GVOP),
-    sizeof(PVOP),
-    sizeof(LOOP),
-    sizeof(COP)
-}
-#endif /* DOINIT */
-;
-
 EXT void byterun(pTHXo_ struct bytestream bs);
 
 #define INIT_SPECIALSV_LIST STMT_START { \