summaryrefslogtreecommitdiff
path: root/pp.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-08-13 22:48:40 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-08-13 22:48:40 +0000
commitd9b3e12dc6d5d94bcf6692f9359e377c8a7dcdd6 (patch)
tree02fd6a0afe5f8a45764e5d35e16752db82d3a937 /pp.h
parentcc4466b7484b22db3b089a085bc005d7a5460bed (diff)
downloadperl-d9b3e12dc6d5d94bcf6692f9359e377c8a7dcdd6.tar.gz
Jumbo Configure and large file support update.
Remove a lot of unneeded 64-bitness cruft; re-introduce BYTEORDER; update 64-bitness hints; lfs should now work in Solaris; long doubles in AIX. p4raw-id: //depot/cfgperl@3982
Diffstat (limited to 'pp.h')
-rw-r--r--pp.h8
1 files changed, 8 insertions, 0 deletions
diff --git a/pp.h b/pp.h
index 0eac5a56f9..0e6383c58a 100644
--- a/pp.h
+++ b/pp.h
@@ -64,6 +64,10 @@
#define POPi ((IV)SvIVx(POPs))
#define POPu ((UV)SvUVx(POPs))
#define POPl ((long)SvIVx(POPs))
+#define POPul ((unsigned long)SvIVx(POPs))
+#ifdef HAS_QUAD
+#define POPq ((Quad_t)SvIVx(POPs))
+#endif
#define TOPs (*sp)
#define TOPp (SvPV(TOPs, PL_na)) /* deprecated */
@@ -72,6 +76,10 @@
#define TOPi ((IV)SvIV(TOPs))
#define TOPu ((UV)SvUV(TOPs))
#define TOPl ((long)SvIV(TOPs))
+#define TOPul ((unsigned long)SvIV(TOPs))
+#ifdef HAS_QUAD
+#define TOPq ((Quad_t)SvIV(TOPs))
+#endif
/* Go to some pains in the rare event that we must extend the stack. */
#define EXTEND(p,n) STMT_START { if (PL_stack_max - p < (n)) { \