diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-02 10:41:30 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-02 10:41:30 +0000 |
| commit | 0791085825e06feaaac4987cfea56ad1aa801a7e (patch) | |
| tree | 71345bc36caaba3feb3b1e05931f39036a1ea4d7 /ext | |
| parent | fc15ae8fb67c31ee845fb33ce00b1c24c4c1a908 (diff) | |
| download | perl-0791085825e06feaaac4987cfea56ad1aa801a7e.tar.gz | |
Convert ByteLoader to use CopARYBASE_set().
p4raw-id: //depot/perl@27674
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 1 | ||||
| -rw-r--r-- | ext/ByteLoader/byterun.c | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index 7a6b485d18..13f851040e 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -348,6 +348,7 @@ typedef char *pvindex; name, strlen(name), cv, 0)) #define BSET_xhv_name(hv, name) hv_name_set((HV*)hv, name, strlen(name), 0) +#define BSET_cop_arybase(c, b) CopARYBASE_set(c, b) /* NOTE: the bytecode header only sanity-checks the bytecode. If a script cares about * what version of Perl it's being called under, it should do a 'use 5.006_001' or diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index 7c62351946..8c8279819d 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -964,7 +964,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) { I32 arg; BGET_I32(arg); - cCOP->cop_arybase = arg; + BSET_cop_arybase(cCOP, arg); break; } case INSN_COP_LINE: /* 129 */ |