This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove OA_RETINTEGER, unused since 2002 (commit e7311069df54baa6)
[perl5.git] / opcode.pl
index 1b8c688..e90c929 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -348,8 +348,8 @@ my %opflags = (
     'f' =>   2,                # fold constants
     's' =>   4,                # always produces scalar
     't' =>   8,                # needs target scalar
-    'T' =>   8 | 256,  # ... which may be lexical
-    'i' =>  16,                # always produces integer
+    'T' =>   8 | 16,   # ... which may be lexical
+    'i' =>   0,                # always produces integer (unused since e7311069)
     'I' =>  32,                # has corresponding int op
     'd' =>  64,                # danger, unknown side effects
     'u' => 128,                # defaults to $_
@@ -358,8 +358,8 @@ my %opflags = (
 my %OP_IS_SOCKET;
 my %OP_IS_FILETEST;
 my %OP_IS_FT_ACCESS;
-my $OCSHIFT = 9;
-my $OASHIFT = 13;
+my $OCSHIFT = 8;
+my $OASHIFT = 12;
 
 for my $op (@ops) {
     my $argsum = 0;