perl 5.0 alpha 4

[editor's note: the sparc executables have not been included, and
emacs backup files have been removed.  This was reconstructed from a
tarball found on the September 1994 InfoMagic CD; the date of this is
approximate]

1 files changed, 9 insertions, 9 deletions

diff --git a/pp.h b/pp.h
index 570633f19d..d6a1c4c77f 100644
--- a/pp.h
+++ b/pp.h
@@ -20,7 +20,7 @@
  **********************************************************/
 
 #define ARGS
-#define ARGSproto
+#define ARGSproto void
 #define dARGS
 #define PP(s) OP* s(ARGS) dARGS
 
@@ -70,16 +70,16 @@
 #define RETURNX(x)	return x, PUTBACK, NORMAL
 
 #define POPs		(*sp--)
-#define POPp		(SvPVnx(POPs))
-#define POPn		(SvNVnx(POPs))
-#define POPi		((int)SvIVnx(POPs))
-#define POPl		((long)SvIVnx(POPs))
+#define POPp		(SvPVx(POPs, na))
+#define POPn		(SvNVx(POPs))
+#define POPi		((int)SvIVx(POPs))
+#define POPl		((long)SvIVx(POPs))
 
 #define TOPs		(*sp)
-#define TOPp		(SvPVn(TOPs))
-#define TOPn		(SvNVn(TOPs))
-#define TOPi		((int)SvIVn(TOPs))
-#define TOPl		((long)SvIVn(TOPs))
+#define TOPp		(SvPV(TOPs, na))
+#define TOPn		(SvNV(TOPs))
+#define TOPi		((int)SvIV(TOPs))
+#define TOPl		((long)SvIV(TOPs))
 
 /* Go to some pains in the rare event that we must extend the stack. */
 #define EXTEND(p,n)	do { if (stack_max - p < (n)) {		  	    \