Replace direct flags tests & manipulations for SVpad_TYPED and

SVpad_OUR with macros SvPAD_TYPED(), SvPAD_OUR() etc, to abstract
away the flags bits acutally used to store this information.

p4raw-id: //depot/perl@27294

1 files changed, 8 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index 93a0d00602..8f31c21343 100644
--- a/sv.h
+++ b/sv.h
@@ -928,6 +928,14 @@ in gv.h: */
 #define SvREPADTMP_off(sv)	(SvFLAGS(sv) &= ~SVf_FAKE)
 #endif
 
+#define SvPAD_TYPED(sv)		(SvFLAGS(sv) & SVpad_TYPED)
+#define SvPAD_TYPED_on(sv)	(SvFLAGS(sv) |= SVpad_TYPED)
+#define SvPAD_TYPED_off(sv)	(SvFLAGS(sv) &= ~SVpad_TYPED)
+
+#define SvPAD_OUR(sv)		(SvFLAGS(sv) & SVpad_OUR)
+#define SvPAD_OUR_on(sv)	(SvFLAGS(sv) |= SVpad_OUR)
+#define SvPAD_OUR_off(sv)	(SvFLAGS(sv) &= ~SVpad_OUR)
+
 #ifdef PERL_DEBUG_COW
 #define SvRV(sv) (0 + (sv)->sv_u.svu_rv)
 #else