diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-29 03:00:21 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-29 03:00:21 +0000 |
| commit | 7934575e193741c310ddb7f01d6d07c9981c3d29 (patch) | |
| tree | 9b9135ad0559f0da22a2bb159f0a38bb81777f07 /bytecode.pl | |
| parent | a1f333424726116552fec059c74f91eae67b2820 (diff) | |
| download | perl-7934575e193741c310ddb7f01d6d07c9981c3d29.tar.gz | |
usurp GVOP slot for new PADOP (one small step to making optree
shareable across interpreters)
p4raw-id: //depot/perl@4484
Diffstat (limited to 'bytecode.pl')
| -rw-r--r-- | bytecode.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bytecode.pl b/bytecode.pl index 7d9b223f7c..63fc738389 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -9,7 +9,7 @@ my %alias_to = ( U8 => [qw(char)], ); -my @optype= qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP GVOP PVOP LOOP COP); +my @optype= qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP PADOP 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). @@ -393,7 +393,7 @@ pregcomp PL_op pvcontents x op_pmflags cPMOP->op_pmflags U16 op_pmpermflags cPMOP->op_pmpermflags U16 op_sv cSVOP->op_sv svindex -op_gv *(SV**)&cGVOP->op_gv svindex +op_padix cPADOP->op_padix PADOFFSET op_pv cPVOP->op_pv pvcontents op_pv_tr cPVOP->op_pv op_tr_array op_redoop cLOOP->op_redoop opindex |