This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Abstract all the accesses to cop_arybase (apart from ByteLoader)
[perl5.git] / cop.h
diff --git a/cop.h b/cop.h
index 8ce6b3e..da9fd5b 100644 (file)
--- 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.
  */