diff options
author | Reini Urban <rurban@x-ray.at> | 2008-06-09 19:15:41 +0200 |
---|---|---|
committer | Dave Mitchell <davem@fdisolutions.com> | 2008-12-04 23:32:09 +0000 |
commit | 3cc57535f50da99a5e09f8bd2d11c062302f8207 (patch) | |
tree | f3ee30684b0af8412311ac7ced5dd6b55938120b /sv.h | |
parent | c328e2240a007973ffdd89b8eea34b5aba045d1e (diff) | |
download | perl-3cc57535f50da99a5e09f8bd2d11c062302f8207.tar.gz |
Integrate:
[ 34038]
Subject: Re: [PATCH] More COW lvalues
Message-ID: <484D491D.9050704@x-ray.at>
[ 34039]
Strength reduction optimisation seems to spot that a = a + 1; is just
a++; so write it as the former, to keep PERL_DEBUG_COW happy.
p4raw-link: @34039 on //depot/perl: 3a92e6ae8711ddb5b5574745041a3e03a98b1f1c
p4raw-link: @34038 on //depot/perl: 3ec35e0f92217816d70cf483b3b012476ca9b9d7
p4raw-id: //depot/maint-5.10/perl@35014
p4raw-integrated: from //depot/perl@34039 'edit in' regcomp.c
(@34038..)
p4raw-integrated: from //depot/perl@34038 'merge in' sv.h (@34031..)
Diffstat (limited to 'sv.h')
-rw-r--r-- | sv.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1412,7 +1412,7 @@ the scalar's value cannot change unless written to. (((XPV*) SvANY(sv))->xpv_len = (val)); } STMT_END #define SvEND_set(sv, val) \ STMT_START { assert(SvTYPE(sv) >= SVt_PV); \ - (SvCUR(sv) = (val) - SvPVX(sv)); } STMT_END + SvCUR_set(sv, (val) - SvPVX(sv)); } STMT_END #define SvPV_renew(sv,n) \ STMT_START { SvLEN_set(sv, n); \ |