diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-09-23 20:11:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-23 19:06:31 +0000 |
| commit | bb4968450a032ce005616de0476d6d89662526ad (patch) | |
| tree | a1c93a931706d08a76c8d0a346a3609a850d15ea /sv.h | |
| parent | 12f8b8018bfcb4b65e8ced6f270de8fb3ab8b984 (diff) | |
| download | perl-bb4968450a032ce005616de0476d6d89662526ad.tar.gz | |
Fix to PERL_DEBUG_COW
Message-ID: <20050923181109.GA1350@mccoy.peters.homeunix.org>
p4raw-id: //depot/perl@25590
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -887,11 +887,6 @@ in gv.h: */ # define SvLEN(sv) ((XPV*) SvANY(sv))->xpv_len # define SvEND(sv) ((sv)->sv_u.svu_pv + ((XPV*)SvANY(sv))->xpv_cur) -/* Given that these two are new, there can't be any existing code using them - * as LVALUEs */ -#define SvPVX_mutable(sv) (0 + (sv)->sv_u.svu_pv) -#define SvPVX_const(sv) ((const char*)(0 + (sv)->sv_u.svu_pv)) - # ifdef DEBUGGING # define SvMAGIC(sv) (*(assert(SvTYPE(sv) >= SVt_PVMG), &((XPVMG*) SvANY(sv))->xmg_magic)) # define SvSTASH(sv) (*(assert(SvTYPE(sv) >= SVt_PVMG), &((XPVMG*) SvANY(sv))->xmg_stash)) @@ -901,6 +896,11 @@ in gv.h: */ # endif #endif +/* Given that these two are new, there can't be any existing code using them + * as LVALUEs */ +#define SvPVX_mutable(sv) (0 + (sv)->sv_u.svu_pv) +#define SvPVX_const(sv) ((const char*)(0 + (sv)->sv_u.svu_pv)) + #define SvIVXx(sv) SvIVX(sv) #define SvUVXx(sv) SvUVX(sv) #define SvNVXx(sv) SvNVX(sv) |