Abstract all the accesses to cop_arybase (apart from ByteLoader)

p4raw-id: //depot/perl@27671

1 files changed, 10 insertions, 0 deletions

diff --git a/scope.h b/scope.h
index 74ab22b367..50fd752e7c 100644
--- a/scope.h
+++ b/scope.h
@@ -49,6 +49,7 @@
 #define SAVEt_BOOL		38
 #define SAVEt_SET_SVFLAGS	39
 #define SAVEt_SAVESWITCHSTACK	40
+#define SAVEt_COP_ARYBASE	41
 
 #ifndef SCOPE_SAVES_SIGNAL_MASK
 #define SCOPE_SAVES_SIGNAL_MASK 0
@@ -180,6 +181,15 @@ Closing bracket on a callback.  See C<ENTER> and L<perlcall>.
 	PL_curstackinfo->si_stack = (t);		\
     } STMT_END
 
+#define SAVECOPARYBASE(c) \
+    STMT_START {					\
+	SSCHECK(3);					\
+	SSPUSHINT(CopARYBASE_get(c));			\
+	SSPUSHPTR(c);					\
+	SSPUSHINT(SAVEt_COP_ARYBASE);			\
+    } STMT_END
+
+
 #ifdef USE_ITHREADS
 #  define SAVECOPSTASH(c)	SAVEPPTR(CopSTASHPV(c))
 #  define SAVECOPSTASH_FREE(c)	SAVESHAREDPV(CopSTASHPV(c))