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 /bytecode.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 'bytecode.pl')
| -rw-r--r-- | bytecode.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/bytecode.pl b/bytecode.pl index 4d318ff4fa..dfd16aa249 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -9,7 +9,7 @@ my %alias_to = ( U8 => [qw(char)], ); -my @optype= qw(OP UNOP BINOP LOGOP CONDOP LISTOP PMOP SVOP GVOP PVOP LOOP COP); +my @optype= qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP GVOP PVOP LOOP COP); # Nullsv *must* come first in the following so that the condition # ($$sv == 0) can continue to be used to test (sv == Nullsv). @@ -383,8 +383,6 @@ op_private PL_op->op_private U8 op_first cUNOP->op_first opindex op_last cBINOP->op_last opindex op_other cLOGOP->op_other opindex -op_true cCONDOP->op_true opindex -op_false cCONDOP->op_false opindex op_children cLISTOP->op_children U32 op_pmreplroot cPMOP->op_pmreplroot opindex op_pmreplrootgv *(SV**)&cPMOP->op_pmreplroot svindex |