diff options
| author | Tom Hughes <tom@compton.nu> | 1999-04-24 19:11:59 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 03:48:08 +0000 |
| commit | b295d1132eed0f33e5e8fda2cd65ee1297fdabdb (patch) | |
| tree | 2cc2bb16f505a1d5c1a468bdce46a301cdf37e84 /bytecode.h | |
| parent | f2f614a63111e79068118dba78b4ac57891a3382 (diff) | |
| download | perl-b295d1132eed0f33e5e8fda2cd65ee1297fdabdb.tar.gz | |
applied suggested patch, with win32 and PERL_OBJECT additions
Message-ID: <609bdff748.tom@compton.compton.nu>
Subject: ByteLoader patch
p4raw-id: //depot/perl@3356
Diffstat (limited to 'bytecode.h')
| -rw-r--r-- | bytecode.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/bytecode.h b/bytecode.h index 8564aed411..9f4f781b8e 100644 --- a/bytecode.h +++ b/bytecode.h @@ -154,7 +154,10 @@ typedef IV IV64; o->op_ppaddr = PL_ppaddr[arg]; \ } STMT_END #define BSET_op_ppaddr(o, arg) croak("op_ppaddr not yet implemented") -#define BSET_curpad(pad, arg) pad = AvARRAY(arg) +#define BSET_curpad(pad, arg) STMT_START { \ + PL_comppad = (AV *)arg; \ + pad = AvARRAY(arg); \ + } STMT_END #define BSET_OBJ_STORE(obj, ix) \ (I32)ix > PL_bytecode_obj_list_fill ? \ |