diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-04-20 01:27:20 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-20 13:51:54 +0000 |
| commit | 87a1ef3dbc71790d3dec7643306775e0d1e4768a (patch) | |
| tree | 2c16cb1d368f45d3771e5d57065ec0d7f74dc419 /ext | |
| parent | bd4b1eb5b0b53616d16d03ba8f6aedf325adfa1d (diff) | |
| download | perl-87a1ef3dbc71790d3dec7643306775e0d1e4768a.tar.gz | |
Refactoring to Sv*_set() macros - patch #6
Message-ID: <20050420112720.GA31042@mccoy.peters.homeunix.org>
Date: Wed, 20 Apr 2005 06:27:20 -0500
p4raw-id: //depot/perl@24260
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index 0224625c20..11e7f5fb4e 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -126,12 +126,19 @@ typedef char *pvindex; #define BSET_mg_namex(mg, arg) \ (mg->mg_ptr = (char*)SvREFCNT_inc((SV*)arg), \ mg->mg_len = HEf_SVKEY) +#define BSET_xmg_stash(sv, arg) SvSTASH_set(sv, arg) #define BSET_sv_upgrade(sv, arg) (void)SvUPGRADE(sv, arg) +#define BSET_xrv(sv, arg) SvRV_set(sv, arg) #define BSET_xpv(sv) do { \ SvPV_set(sv, bstate->bs_pv.xpv_pv); \ SvCUR_set(sv, bstate->bs_pv.xpv_cur); \ SvLEN_set(sv, bstate->bs_pv.xpv_len); \ } while (0) +#define BSET_xpv_cur(sv, arg) SvCUR_set(sv, arg) +#define BSET_xpv_len(sv, arg) SvLEN_set(sv, arg) +#define BSET_xiv(sv, arg) SvIV_set(sv, arg) +#define BSET_xnv(sv, arg) SvNV_set(sv, arg) + #define BSET_av_extend(sv, arg) av_extend((AV*)sv, arg) #define BSET_av_push(sv, arg) av_push((AV*)sv, arg) |