fix some minor compiler warnings

S_deb_curcv's first param differed in constness between declaration and
definition.

GIMME_V can return an I32, so don't assign it to a U8.

3 files changed, 3 insertions, 3 deletions

diff --git a/embed.fnc b/embed.fnc
index a909f7d5bc..c0f28a4697 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2317,7 +2317,7 @@ Es	|void	|debug_start_match|NN const REGEXP *prog|const bool do_utf8\
 #endif
 
 #if defined(PERL_IN_DUMP_C)
-s	|CV*	|deb_curcv	|const I32 ix
+s	|CV*	|deb_curcv	|I32 ix
 s	|void	|debprof	|NN const OP *o
 s	|UV	|sequence_num	|NULLOK const OP *o
 s	|SV*	|pm_description	|NN const PMOP *pm
diff --git a/proto.h b/proto.h
index f45a4a3617..53f62700d3 100644
--- a/proto.h
+++ b/proto.h
@@ -6043,7 +6043,7 @@ STATIC I32	S_do_trans_simple_utf8(pTHX_ SV * const sv)
 
 #endif
 #if defined(PERL_IN_DUMP_C)
-STATIC CV*	S_deb_curcv(pTHX_ const I32 ix);
+STATIC CV*	S_deb_curcv(pTHX_ I32 ix);
 STATIC void	S_debprof(pTHX_ const OP *o)
 			__attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_DEBPROF	\
diff --git a/universal.c b/universal.c
index 1b4e5506aa..2e446dd6d9 100644
--- a/universal.c
+++ b/universal.c
@@ -903,7 +903,7 @@ XS(XS_re_regexp_pattern)
 {
     dXSARGS;
     REGEXP *re;
-    U8 const gimme = GIMME_V;
+    I32 const gimme = GIMME_V;
 
     EXTEND(SP, 2);
     SP -= items;