In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2ca72cbebc229b6b6dc5483d0ee5776828c98d3d?hp=d555ed0b6de9491102269b7381933b2426cee69f>
- Log ----------------------------------------------------------------- commit 2ca72cbebc229b6b6dc5483d0ee5776828c98d3d Author: Eugen Konkov <[email protected]> Date: Mon Jun 5 09:07:54 2017 +0100 XPUSH*: reuse code from mPUSH* macros ----------------------------------------------------------------------- Summary of changes: AUTHORS | 1 + pp.h | 6 +++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/AUTHORS b/AUTHORS index 40c6393e00..7ef3c5c5d2 100644 --- a/AUTHORS +++ b/AUTHORS @@ -402,6 +402,7 @@ Erich Rickheit Eryq <[email protected]> Etienne Grossman <[email protected]> Eugene Alterman <[email protected]> +Eugen Konkov <[email protected]> Evan Miller <[email protected]> Evan Zacks <[email protected]> Fabien Tassin <[email protected]> diff --git a/pp.h b/pp.h index 3b8f36f414..16cb937d18 100644 --- a/pp.h +++ b/pp.h @@ -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 -- Perl5 Master Repository
