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 /ext/ByteLoader | |
| 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 'ext/ByteLoader')
| -rw-r--r-- | ext/ByteLoader/byterun.c | 10 | ||||
| -rw-r--r-- | ext/ByteLoader/byterun.h | 4 |
2 files changed, 7 insertions, 7 deletions
diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index 60dc98d3cc..19b79ac3f1 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -34,7 +34,7 @@ static int optype_size[] = { sizeof(LISTOP), sizeof(PMOP), sizeof(SVOP), - sizeof(GVOP), + sizeof(PADOP), sizeof(PVOP), sizeof(LOOP), sizeof(COP) @@ -779,11 +779,11 @@ byterun(pTHXo_ struct bytestream bs) cSVOP->op_sv = arg; break; } - case INSN_OP_GV: /* 102 */ + case INSN_OP_PADIX: /* 102 */ { - svindex arg; - BGET_svindex(arg); - *(SV**)&cGVOP->op_gv = arg; + PADOFFSET arg; + BGET_U32(arg); + cPADOP->op_padix = arg; break; } case INSN_OP_PV: /* 103 */ diff --git a/ext/ByteLoader/byterun.h b/ext/ByteLoader/byterun.h index 3b8f77642c..d8f6c0e155 100644 --- a/ext/ByteLoader/byterun.h +++ b/ext/ByteLoader/byterun.h @@ -118,7 +118,7 @@ enum { INSN_OP_PMFLAGS, /* 99 */ INSN_OP_PMPERMFLAGS, /* 100 */ INSN_OP_SV, /* 101 */ - INSN_OP_GV, /* 102 */ + INSN_OP_PADIX, /* 102 */ INSN_OP_PV, /* 103 */ INSN_OP_PV_TR, /* 104 */ INSN_OP_REDOOP, /* 105 */ @@ -145,7 +145,7 @@ enum { OPt_LISTOP, /* 4 */ OPt_PMOP, /* 5 */ OPt_SVOP, /* 6 */ - OPt_GVOP, /* 7 */ + OPt_PADOP, /* 7 */ OPt_PVOP, /* 8 */ OPt_LOOP, /* 9 */ OPt_COP /* 10 */ |