diff options
| author | Artur Bergman <sky@nanisky.com> | 2004-02-29 22:04:53 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-03 22:15:42 +0000 |
| commit | 781fdd31c45ee21aa9675df3050b620715e9208d (patch) | |
| tree | 1968f252b888d93bbbe53c163e6de60044d846e1 /sv.h | |
| parent | b08cf34e02b6d68e83a46f7566341e6914ff1a2e (diff) | |
| download | perl-781fdd31c45ee21aa9675df3050b620715e9208d.tar.gz | |
simplify sv.h
Message-Id: <4D3C272C-6B03-11D8-B799-000A95A2734C@nanisky.com>
p4raw-id: //depot/perl@22428
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -749,22 +749,22 @@ and leaves the UTF-8 status as it was. (void) SvIV(sv); } STMT_END #define SvIV_set(sv, val) \ STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \ - (((XPVIV*) SvANY(sv))->xiv_iv = val); } STMT_END + (SvIVX(sv) = (val)); } STMT_END #define SvNV_set(sv, val) \ STMT_START { assert(SvTYPE(sv) == SVt_NV || SvTYPE(sv) >= SVt_PVNV); \ - (((XPVNV*) SvANY(sv))->xnv_nv = val); } STMT_END + (SvNVX(sv) = (val)); } STMT_END #define SvPV_set(sv, val) \ STMT_START { assert(SvTYPE(sv) >= SVt_PV); \ - (((XPV*) SvANY(sv))->xpv_pv = val); } STMT_END + (SvPVX(sv) = (val)); } STMT_END #define SvCUR_set(sv, val) \ STMT_START { assert(SvTYPE(sv) >= SVt_PV); \ - (((XPV*) SvANY(sv))->xpv_cur = val); } STMT_END + (SvCUR(sv) = (val)); } STMT_END #define SvLEN_set(sv, val) \ STMT_START { assert(SvTYPE(sv) >= SVt_PV); \ - (((XPV*) SvANY(sv))->xpv_len = val); } STMT_END + (SvLEN(sv) = (val)); } STMT_END #define SvEND_set(sv, val) \ STMT_START { assert(SvTYPE(sv) >= SVt_PV); \ - (((XPV*) SvANY(sv))->xpv_cur = val - SvPVX(sv)); } STMT_END + (SvCUR(sv) = (val) - SvPVX(sv)); } STMT_END #define BmRARE(sv) ((XPVBM*) SvANY(sv))->xbm_rare #define BmUSEFUL(sv) ((XPVBM*) SvANY(sv))->xbm_useful |