X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=cop.h;h=238c677bb4d8393513c50ba4e9cf8fa523fcf81a;hb=cc49e20bd7575d1d37e92731860d63daa4d52ecc;hp=ea846ab58b9c3e2908fa9f61e968ce484a1dec2e;hpb=625a29bd030689ee3f060be950e2f2ffc93c94c9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/cop.h b/cop.h
index ea846ab..238c677 100644
--- a/cop.h
+++ b/cop.h
@@ -20,6 +20,14 @@ struct cop {
 
 #define Nullcop Null(COP*)
 
+#define CopFILEGV(c)		(c)->cop_filegv
+#define CopFILEGV_set(c,gv)	((c)->cop_filegv = gv)
+#define CopFILESV(c)		(CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
+#define CopFILEAV(c)		(CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
+#define CopFILE(c)		(CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
+#define CopLINE(c)		((c)->cop_line)
+#define CopLINE_set(c,l)	((c)->cop_line = (l))
+
 /*
  * Here we have some enormously heavy (or at least ponderous) wizardry.
  */