This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Two one-liner LOGOP tweaks
authorStephen McCamant <smcc@mit.edu>
Thu, 29 Jul 1999 14:08:50 +0000 (09:08 -0500)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 1 Aug 1999 20:31:32 +0000 (20:31 +0000)
Message-ID: <14240.42690.292893.605292@alias-2.pr.mcs.net>

p4raw-id: //depot/perl@3853

op.c
opcode.h
opcode.pl

diff --git a/op.c b/op.c
index 8b47448..e7250f1 100644 (file)
--- a/op.c
+++ b/op.c
@@ -5779,6 +5779,8 @@ Perl_peep(pTHX_ register OP *o)
        case OP_GREPWHILE:
        case OP_AND:
        case OP_OR:
+       case OP_ANDASSIGN:
+       case OP_ORASSIGN:
        case OP_COND_EXPR:
        case OP_RANGE:
            o->op_seq = PL_op_seqmax++;
index 7d9bd81..d9ec0d5 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1965,7 +1965,7 @@ EXT U32 PL_opargs[] = {
        0x00000200,     /* flop */
        0x00000600,     /* and */
        0x00000600,     /* or */
-       0x00022606,     /* xor */
+       0x00022406,     /* xor */
        0x00000640,     /* cond_expr */
        0x00000604,     /* andassign */
        0x00000604,     /* orassign */
index 62683d7..6e56a10 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -530,7 +530,7 @@ flop                range (or flop)         ck_null         1
 
 and            logical and             ck_null         |       
 or             logical or              ck_null         |       
-xor            logical xor             ck_null         fs|     S S     
+xor            logical xor             ck_null         fs2     S S     
 cond_expr      conditional expression  ck_null         d|      
 andassign      logical and assignment  ck_null         s|      
 orassign       logical or assignment   ck_null         s|