diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-13 22:48:40 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-13 22:48:40 +0000 |
commit | d9b3e12dc6d5d94bcf6692f9359e377c8a7dcdd6 (patch) | |
tree | 02fd6a0afe5f8a45764e5d35e16752db82d3a937 /pp.h | |
parent | cc4466b7484b22db3b089a085bc005d7a5460bed (diff) | |
download | perl-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.h | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -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)) { \ |