X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp.h;h=64020020c8f33be7773c8d1c45f718b1645b4d69;hb=619ffc2be66f166b301c5b0d14a8bbba728675bc;hp=442fdc60cae41c26f512966020d9ede946d67c47;hpb=e8c20960f1361f5ece79a169ec3ac2d3421a8427;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp.h b/pp.h
index 442fdc6..6402002 100644
--- a/pp.h
+++ b/pp.h
@@ -58,14 +58,16 @@
 #define RETURNX(x)	return x, PUTBACK, NORMAL
 
 #define POPs		(*sp--)
-#define POPp		(SvPVx(POPs, PL_na))
+#define POPp		(SvPVx(POPs, PL_na))		/* deprecated */
+#define POPpx		(SvPVx(POPs, n_a))
 #define POPn		(SvNVx(POPs))
 #define POPi		((IV)SvIVx(POPs))
 #define POPu		((UV)SvUVx(POPs))
 #define POPl		((long)SvIVx(POPs))
 
 #define TOPs		(*sp)
-#define TOPp		(SvPV(TOPs, PL_na))
+#define TOPp		(SvPV(TOPs, PL_na))		/* deprecated */
+#define TOPpx		(SvPV(TOPs, n_a))
 #define TOPn		(SvNV(TOPs))
 #define TOPi		((IV)SvIV(TOPs))
 #define TOPu		((UV)SvUV(TOPs))
@@ -221,7 +223,7 @@
       croak("Overloaded dereference did not return a reference");	\
   goto am_again;
 
-#define tryAMAGICunDEREF(meth) tryAMAGICunW(meth,setAGAIN,0,)
+#define tryAMAGICunDEREF(meth) tryAMAGICunW(meth,setAGAIN,0,(void)0)
 
 #define opASSIGN (PL_op->op_flags & OPf_STACKED)
 #define SETsv(sv)	STMT_START {					\