In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/101d63659b7355370ff8d5a0076c0e456293458e?hp=83144be336909f4c030bce1df7d2a06af2f25ec6>
- Log -----------------------------------------------------------------
commit 101d63659b7355370ff8d5a0076c0e456293458e
Author: David Mitchell <da...@iabyn.com>
Date: Thu Nov 19 10:03:04 2015 +0000
silence compiler warnings using INCMARK/POPMARK
v5.23.3-305-g6cae08a introduced debugging variants of INCMARK/POPMARK, and
replaced a number of "PL_markstack_ptr--;" with "POPMARK;" etc.
This spews a bunch of "value computed is not used" warnings; so
add some "(void)"s.
Also indent the new definitions of INCMARK/POPMARK correctly.
-----------------------------------------------------------------------
Summary of changes:
perl.c | 4 ++--
pp.h | 18 +++++++++---------
2 files changed, 11 insertions(+), 11 deletions(-)
diff --git a/perl.c b/perl.c
index 8182562..b8d98ff 100644
--- a/perl.c
+++ b/perl.c
@@ -2776,9 +2776,9 @@ Perl_call_sv(pTHX_ SV *sv, VOL I32 flags)
}
else {
myop.op_other = (OP*)&myop;
- POPMARK;
+ (void)POPMARK;
create_eval_scope(flags|G_FAKINGEVAL);
- INCMARK;
+ (void)INCMARK;
JMPENV_PUSH(ret);
diff --git a/pp.h b/pp.h
index 945d1e5..687b0ca 100644
--- a/pp.h
+++ b/pp.h
@@ -56,7 +56,7 @@ Refetch the stack pointer. Used after a callback. See
L<perlcall>.
#define TARG targ
#if defined(DEBUGGING) && defined(PERL_USE_GCC_BRACE_GROUPS)
-#define PUSHMARK(p) \
+# define PUSHMARK(p) \
STMT_START { \
I32 * mark_stack_entry; \
if (UNLIKELY((mark_stack_entry = ++PL_markstack_ptr) ==
PL_markstack_max)) \
@@ -65,36 +65,36 @@ Refetch the stack pointer. Used after a callback. See
L<perlcall>.
DEBUG_s(PerlIO_printf(Perl_debug_log, "MARK push %p %d\n", \
PL_markstack_ptr, *mark_stack_entry)); \
} STMT_END
-#define TOPMARK \
+# define TOPMARK \
({ \
DEBUG_s(PerlIO_printf(Perl_debug_log, "MARK top %p %d\n", \
PL_markstack_ptr, *PL_markstack_ptr)); \
*PL_markstack_ptr; \
})
-#define POPMARK \
+# define POPMARK \
({ \
DEBUG_s(PerlIO_printf(Perl_debug_log, "MARK pop %p %d\n", \
(PL_markstack_ptr-1), *(PL_markstack_ptr-1))); \
assert((PL_markstack_ptr > PL_markstack) || !"MARK underflow");\
*PL_markstack_ptr--; \
})
-#define INCMARK \
+# define INCMARK \
({ \
DEBUG_s(PerlIO_printf(Perl_debug_log, "MARK inc %p %d\n", \
(PL_markstack_ptr+1), *(PL_markstack_ptr+1))); \
*PL_markstack_ptr++; \
})
#else
-#define PUSHMARK(p) \
+# define PUSHMARK(p) \
STMT_START { \
I32 * mark_stack_entry; \
if (UNLIKELY((mark_stack_entry = ++PL_markstack_ptr) ==
PL_markstack_max)) \
mark_stack_entry = markstack_grow(); \
*mark_stack_entry = (I32)((p) - PL_stack_base); \
} STMT_END
-#define TOPMARK (*PL_markstack_ptr)
-#define POPMARK (*PL_markstack_ptr--)
-#define INCMARK (*PL_markstack_ptr++)
+# define TOPMARK (*PL_markstack_ptr)
+# define POPMARK (*PL_markstack_ptr--)
+# define INCMARK (*PL_markstack_ptr++)
#endif
#define dSP SV **sp = PL_stack_sp
@@ -603,7 +603,7 @@ Does not use C<TARG>. See also C<L</XPUSHu>>,
C<L</mPUSHu>> and C<L</PUSHu>>.
while (jump_o->op_type == OP_NULL) \
jump_o = jump_o->op_next; \
assert(jump_o->op_type == OP_ENTERSUB); \
- POPMARK; \
+ (void)POPMARK; \
return jump_o->op_next; \
} \
return NORMAL; \
--
Perl5 Master Repository
