Silence a couple of warnings
authorSteve Hay <steve.m.hay@googlemail.com>
Mon, 14 Jan 2013 17:59:55 +0000 (17:59 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Mon, 14 Jan 2013 18:00:13 +0000 (18:00 +0000)
("'initializing' : conversion from 'I32' to 'U8', possible loss of data"
and "formal parameter n different from declaration".)

cop.h
embed.fnc
proto.h

index 01e83f4..086cd22 100644 (file)
--- 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);                            \
index b3b931c..1f38f6a 100644 (file)
--- 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 (file)
--- 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)