In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8f939fab8ea456dff01a2f5c368b664623f9293b?hp=5e0a247b35271159d629ea8562732e0993ed4594>
- Log ----------------------------------------------------------------- commit 8f939fab8ea456dff01a2f5c368b664623f9293b Author: Steve Hay <[email protected]> Date: Mon Jan 14 17:59:55 2013 +0000 Silence a couple of warnings ("'initializing' : conversion from 'I32' to 'U8', possible loss of data" and "formal parameter n different from declaration".) ----------------------------------------------------------------------- Summary of changes: cop.h | 2 +- embed.fnc | 2 +- proto.h | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/cop.h b/cop.h index 01e83f4..086cd22 100644 --- a/cop.h +++ b/cop.h @@ -605,7 +605,7 @@ struct block_format { (PL_op->op_flags & OPf_WANT) \ ? OPpENTERSUB_LVAL_MASK \ : !(PL_op->op_private & OPpENTERSUB_LVAL_MASK) \ - ? 0 : Perl_was_lvalue_sub(aTHX); \ + ? 0 : (U8)Perl_was_lvalue_sub(aTHX); \ PUSHSUB_BASE(cx) \ cx->blk_u16 = PL_op->op_private & \ (phlags|OPpDEREF); \ diff --git a/embed.fnc b/embed.fnc index b3b931c..1f38f6a 100644 --- a/embed.fnc +++ b/embed.fnc @@ -288,7 +288,7 @@ Afnp |int |printf_nocontext|NN const char *format|... p |SV * |core_prototype |NULLOK SV *sv|NN const char *name \ |const int code|NULLOK int * const opnum : Used in gv.c -p |OP * |coresub_op |NN SV *coreargssv|const int code \ +p |OP * |coresub_op |NN SV *const coreargssv|const int code \ |const int opnum : Used in sv.c p |void |cv_ckproto_len_flags |NN const CV* cv|NULLOK const GV* gv\ diff --git a/proto.h b/proto.h index 7428380..09a1532 100644 --- a/proto.h +++ b/proto.h @@ -657,7 +657,7 @@ PERL_CALLCONV SV * Perl_core_prototype(pTHX_ SV *sv, const char *name, const int #define PERL_ARGS_ASSERT_CORE_PROTOTYPE \ assert(name) -PERL_CALLCONV OP * Perl_coresub_op(pTHX_ SV *coreargssv, const int code, const int opnum) +PERL_CALLCONV OP * Perl_coresub_op(pTHX_ SV *const coreargssv, const int code, const int opnum) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_CORESUB_OP \ assert(coreargssv) -- Perl5 Master Repository
