diff options
| author | Stephen McCamant <smcc@mit.edu> | 1999-06-25 08:38:44 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-07 08:07:49 +0000 |
| commit | 1a67a97c0300941ac67bfb1dd421467b8c59e21c (patch) | |
| tree | 6af0288c91ab32f5ab3c8f6aabdca7d3b00e0e3e /opcode.pl | |
| parent | c4be5b273ea01a42f8bea870c9703dc3eaa652b6 (diff) | |
| download | perl-1a67a97c0300941ac67bfb1dd421467b8c59e21c.tar.gz | |
Eliminate CONDOPs
Message-ID: <14193.25034.113373.245377@alias-2.pr.mcs.net>
p4raw-id: //depot/perl@3637
Diffstat (limited to 'opcode.pl')
| -rwxr-xr-x | opcode.pl | 25 |
1 files changed, 12 insertions, 13 deletions
@@ -166,17 +166,16 @@ END '1', 1, # unop '2', 2, # binop '|', 3, # logop - '?', 4, # condop - '@', 5, # listop - '/', 6, # pmop - '$', 7, # svop - '*', 8, # gvop - '"', 9, # pvop_or_svop - '{', 10, # loop - ';', 11, # cop - '%', 12, # baseop_or_unop - '-', 13, # filestatop - '}', 14, # loopexop + '@', 4, # listop + '/', 5, # pmop + '$', 6, # svop + '*', 7, # gvop + '"', 8, # pvop_or_svop + '{', 9, # loop + ';', 10, # cop + '%', 11, # baseop_or_unop + '-', 12, # filestatop + '}', 13, # loopexop ); for (@ops) { @@ -521,7 +520,7 @@ mapwhile map iterator ck_null dt| # Range stuff. -range flipflop ck_null ? S S +range flipflop ck_null | S S flip range (or flip) ck_null 1 S S flop range (or flop) ck_null 1 @@ -530,7 +529,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 -cond_expr conditional expression ck_null d? +cond_expr conditional expression ck_null d| andassign logical and assignment ck_null s| orassign logical or assignment ck_null s| |