diff options
| author | Eugen Konkov <kes-kes@yandex.ru> | 2017-06-05 09:07:54 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2017-06-05 09:17:04 +0100 |
| commit | 2ca72cbebc229b6b6dc5483d0ee5776828c98d3d (patch) | |
| tree | 4b35de4801088a2196108ef1261d092eb21d3f9e /pp.h | |
| parent | d555ed0b6de9491102269b7381933b2426cee69f (diff) | |
| download | perl-2ca72cbebc229b6b6dc5483d0ee5776828c98d3d.tar.gz | |
XPUSH*: reuse code from mPUSH* macros
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -443,9 +443,9 @@ Does not use C<TARG>. See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>. #define mXPUSHs(s) XPUSHs(sv_2mortal(s)) #define XPUSHmortal XPUSHs(sv_newmortal()) #define mXPUSHp(p,l) STMT_START { EXTEND(sp,1); mPUSHp((p), (l)); } STMT_END -#define mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv(PUSHmortal, (NV)(n)); } STMT_END -#define mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv(PUSHmortal, (IV)(i)); } STMT_END -#define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END +#define mXPUSHn(n) STMT_START { EXTEND(sp,1); mPUSHn(n); } STMT_END +#define mXPUSHi(i) STMT_START { EXTEND(sp,1); mPUSHi(i); } STMT_END +#define mXPUSHu(u) STMT_START { EXTEND(sp,1); mPUSHu(u); } STMT_END #define SETs(s) (*sp = s) #define SETTARG STMT_START { SvSETMAGIC(TARG); SETs(TARG); } STMT_END |