Abstract the specific use of SvCUR in GVs for detecting variables on

both sides of an assignment using GvASSIGN_GENERATION() and
GvASSIGN_GENERATION_set().

p4raw-id: //depot/perl@27327

1 files changed, 5 insertions, 0 deletions

diff --git a/gv.h b/gv.h
index 3e2bc90d9a..81a42cfb2b 100644
--- a/gv.h
+++ b/gv.h
@@ -63,6 +63,11 @@ struct gp {
 #  define GvNAMELEN(gv)	(GvXPVGV(gv)->xgv_namelen)
 #endif
 
+#define	GvASSIGN_GENERATION(gv)		(0 + ((XPV*) SvANY(gv))->xpv_cur)
+#define	GvASSIGN_GENERATION_set(gv,val)			\
+	STMT_START { assert(SvTYPE(gv) == SVt_PVGV);	\
+		(((XPV*) SvANY(gv))->xpv_cur = (val)); } STMT_END
+
 /*
 =head1 GV Functions