Abstract the pad code's overloaded use of SvNVX and SvIVX into

4 macros COP_SEQ_RANGE_LOW, COP_SEQ_RANGE_HIGH, PARENT_PAD_INDEX
and PARENT_FAKELEX_FLAGS

p4raw-id: //depot/perl@29629

1 files changed, 9 insertions, 1 deletions

diff --git a/pad.h b/pad.h
index 26d4e7a75b..d057211914 100644
--- a/pad.h
+++ b/pad.h
@@ -30,7 +30,15 @@ typedef U64TYPE PADOFFSET;
 #   endif
 #endif
 #define NOT_IN_PAD ((PADOFFSET) -1)
- 
+
+/* B.xs needs these for the benefit of B::Deparse */ 
+/* Low range end is exclusive (valid from the cop seq after this one) */
+#define COP_SEQ_RANGE_LOW(sv)			U_32(SvNVX(sv))
+/* High range end is inclusive (valid up to this cop seq) */
+#define COP_SEQ_RANGE_HIGH(sv)			U_32(SvUVX(sv))
+
+#define PARENT_PAD_INDEX(sv)			U_32(SvNVX(sv))
+#define PARENT_FAKELEX_FLAGS(sv)		U_32(SvUVX(sv))
 
 /* flags for the pad_new() function */