Silence a couple of warnings

("'initializing' : conversion from 'I32' to 'U8', possible loss of data"
and "formal parameter n different from declaration".)

3 files changed, 3 insertions, 3 deletions

diff --git a/cop.h b/cop.h
index 01e83f4c1f..086cd22dd0 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 b3b931cf0c..1f38f6aa8e 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 7428380769..09a1532915 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)