summaryrefslogtreecommitdiff
path: root/pp.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2013-09-11 13:44:48 +0100
committerNicholas Clark <nick@ccl4.org>2013-09-17 13:57:53 +0200
commitf8618229fcd1f0fd1ce43d985f93af293e9516d3 (patch)
treee86be74a16d90b8975ab14d72756c281ec3498e9 /pp.h
parent6588300d7f2f5b968789662bcdf05c558384614c (diff)
downloadperl-f8618229fcd1f0fd1ce43d985f93af293e9516d3.tar.gz
Eliminate POPq, POPuq, TOPq, TOPuq, dPOPqv, dTOPqv, qPOPuqv, dTOPuqv.
These shortcut macros are unused in the core, and unused by any code on CPAN. If any XS code we can't see *is* using them, it will now fail to compile, and can easily be fixed by replacing the macros with their expansion.
Diffstat (limited to 'pp.h')
-rw-r--r--pp.h14
1 files changed, 0 insertions, 14 deletions
diff --git a/pp.h b/pp.h
index 0bb8d98995..42e63fa2c9 100644
--- a/pp.h
+++ b/pp.h
@@ -133,10 +133,6 @@ Pops a long off the stack.
#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))
-#define POPuq ((Uquad_t)SvUVx(POPs))
-#endif
#define TOPs (*sp)
#define TOPm1s (*(sp-1))
@@ -148,10 +144,6 @@ Pops a long off the stack.
#define TOPu ((UV)SvUV(TOPs))
#define TOPl ((long)SvIV(TOPs))
#define TOPul ((unsigned long)SvUV(TOPs))
-#ifdef HAS_QUAD
-#define TOPq ((Quad_t)SvIV(TOPs))
-#define TOPuq ((Uquad_t)SvUV(TOPs))
-#endif
/* Go to some pains in the rare event that we must extend the stack. */
@@ -333,12 +325,6 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>.
#define dPOPiv IV value = POPi
#define dTOPuv UV value = TOPu
#define dPOPuv UV value = POPu
-#ifdef HAS_QUAD
-#define dTOPqv Quad_t value = TOPu
-#define dPOPqv Quad_t value = POPu
-#define dTOPuqv Uquad_t value = TOPuq
-#define dPOPuqv Uquad_t value = POPuq
-#endif
#define dPOPXssrl(X) SV *right = POPs; SV *left = CAT2(X,s)
#define dPOPXnnrl(X) NV right = POPn; NV left = CAT2(X,n)