diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-04-19 20:55:24 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-19 20:55:24 +0000 |
| commit | 7ae8ee9e2dc5b5e2978d561e17a946dd34408c4f (patch) | |
| tree | 21ee723db632600965757bfd0b4a069a152e5b06 /sv.h | |
| parent | 62703e7218aceb3f5d30f70a2307dd02e5eb8c63 (diff) | |
| download | perl-7ae8ee9e2dc5b5e2978d561e17a946dd34408c4f.tar.gz | |
Restore SvEND_set
p4raw-id: //depot/perl@24253
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -818,6 +818,9 @@ in gv.h: */ #define SvLEN_set(sv, val) \ STMT_START { assert(SvTYPE(sv) >= SVt_PV); \ (((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 #define SvPV_renew(sv,n) \ STMT_START { SvLEN_set(sv, n); \ |