summaryrefslogtreecommitdiff
path: root/pp.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-08-11 12:25:59 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-08-11 12:25:59 +0000
commit41af67ece9e9160bd6c5f33ad5ae5d493a869b60 (patch)
tree392a5385497b40c68c5da5fe2ef57a1e003b52ad /pp.h
parentea2b5ef6d751420797c96208ee3824f54bf1d97a (diff)
downloadperl-41af67ece9e9160bd6c5f33ad5ae5d493a869b60.tar.gz
Unapply an experimental patch that accidentally escaped
from the lab by piggybacking with the change #3955. p4raw-link: @3955 on //depot/cfgperl: d28f7c377ae191ca53d9157f124642cf323614a0 p4raw-id: //depot/cfgperl@3957
Diffstat (limited to 'pp.h')
-rw-r--r--pp.h12
1 files changed, 0 insertions, 12 deletions
diff --git a/pp.h b/pp.h
index adf3cc9ed6..0eac5a56f9 100644
--- a/pp.h
+++ b/pp.h
@@ -143,18 +143,6 @@
#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))