Abstract all the accesses to cop_arybase (apart from ByteLoader)

p4raw-id: //depot/perl@27671

1 files changed, 5 insertions, 0 deletions

diff --git a/cop.h b/cop.h
index 8ce6b3ebae..da9fd5b689 100644
--- a/cop.h
+++ b/cop.h
@@ -229,6 +229,11 @@ struct cop {
 #  define OutCopFILE(c) CopFILE(c)
 #endif
 
+/* CopARYBASE is likely to be removed soon.  */
+#define CopARYBASE(c)		((c)->cop_arybase)
+#define CopARYBASE_get(c)	((c)->cop_arybase + 0)
+#define CopARYBASE_set(c, b)	STMT_START { (c)->cop_arybase = (b); } STMT_END
+
 /*
  * Here we have some enormously heavy (or at least ponderous) wizardry.
  */