diff options
| author | Dan Sugalski <dan@sidhe.org> | 1999-08-10 09:34:56 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-10 22:39:11 +0000 |
| commit | d28f7c377ae191ca53d9157f124642cf323614a0 (patch) | |
| tree | 6c1a399c1e250f23c69dd5af823906a52a0e01c7 /pp.h | |
| parent | 6da84e39ed5bfdbbe350321e38b2730554d2576c (diff) | |
| download | perl-d28f7c377ae191ca53d9157f124642cf323614a0.tar.gz | |
Patches needed to get _60 building with
To: vmsperl@perl.org, perl5-porters@perl.org,
sarathy@activestate.com, bailey@newman.upenn.edu
threads on VMS
Message-ID: <Pine.LNX.4.10.9908101631030.18266-100000@tuatha.sidhe.org>
p4raw-id: //depot/cfgperl@3955
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -143,6 +143,18 @@ #define dPOPTOPiirl dPOPXiirl(TOP) #define dPOPTOPiirl_ul dPOPXiirl_ul(TOP) +#define TOPIOKbin (SvIOK(TOPs) && SvIOK(*(sp-1))) +#define tryIVIVbin(op) \ + if (TOPIOKbin) { \ + dPOPTOPiirl_ul; \ + NV result = (NV)left op (NV)right; \ + if (result >= (NV)IV_MIN && result <= (NV)IV_MAX) \ + SETi( left op right ); \ + else \ + SETn( result ); \ + RETURN; \ + } + #define RETPUSHYES RETURNX(PUSHs(&PL_sv_yes)) #define RETPUSHNO RETURNX(PUSHs(&PL_sv_no)) #define RETPUSHUNDEF RETURNX(PUSHs(&PL_sv_undef)) |