From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 19 Apr 2005 20:55:24 +0000 (+0000)
Subject: Restore SvEND_set
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ae8ee9e2dc5b5e2978d561e17a946dd34408c4f;p=p5sagit%2Fp5-mst-13.2.git

Restore SvEND_set

p4raw-id: //depot/perl@24253
---

diff --git a/sv.h b/sv.h
index d1cb725..940355e 100644
--- a/sv.h
+++ b/sv.h
@@ -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); \