Replace usage of GvSTASH for storing the stash of C<our> with

OURSTASH. Set the stash with OURSTASH_SET.

p4raw-id: //depot/perl@27306

1 files changed, 7 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index 5474074ed9..9e5ae2b2ca 100644
--- a/sv.h
+++ b/sv.h
@@ -937,6 +937,13 @@ in gv.h: */
 	((SvFLAGS(sv) & (SVpad_NAME|SVpad_OUR)) == (SVpad_NAME|SVpad_OUR))
 #define SvPAD_OUR_on(sv)	(SvFLAGS(sv) |= SVpad_NAME|SVpad_OUR)
 
+#define OURSTASH(sv)	(SvPAD_OUR(sv) ? GvSTASH(sv) : NULL)
+#define OURSTASH_set(sv, st)			\
+        STMT_START {				\
+	    assert(SvTYPE(sv) == SVt_PVGV);	\
+	    GvSTASH(sv) = st;			\
+	} STMT_END
+
 #ifdef PERL_DEBUG_COW
 #define SvRV(sv) (0 + (sv)->sv_u.svu_rv)
 #else