diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-12 00:51:08 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-12 00:51:08 +0000 |
| commit | 01f988be05578e1f4609174755be9d7b61543c58 (patch) | |
| tree | 7ebcceb4314c8b249ec6cc249e699dc385acd199 /bytecode.h | |
| parent | 3bd495df69b982704c59fc1ecbed71e5112e7da0 (diff) | |
| download | perl-01f988be05578e1f4609174755be9d7b61543c58.tar.gz | |
[asperl] added AS patch#12 with minor changes
p4raw-id: //depot/asperl@806
Diffstat (limited to 'bytecode.h')
| -rw-r--r-- | bytecode.h | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/bytecode.h b/bytecode.h index e86c146505..92c124dc06 100644 --- a/bytecode.h +++ b/bytecode.h @@ -108,11 +108,13 @@ EXT I32 obj_list_fill INIT(-1); arg = atof(str); \ } STMT_END -#define BGET_objindex(arg) STMT_START { \ - U32 ix; \ - BGET_U32(ix); \ - arg = obj_list[ix]; \ +#define BGET_objindex(arg, type) STMT_START { \ + U32 ix; \ + BGET_U32(ix); \ + arg = (type)obj_list[ix]; \ } STMT_END +#define BGET_svindex(arg) BGET_objindex(arg, svindex) +#define BGET_opindex(arg) BGET_objindex(arg, opindex) #define BSET_ldspecsv(sv, arg) sv = specialsv_list[arg] |