In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/de5fee32c31a31f94979c590c459eb6575d5767d?hp=3ee1a09cee3f9a1b093b52ce2069c1d1c9b35637>
- Log ----------------------------------------------------------------- commit de5fee32c31a31f94979c590c459eb6575d5767d Author: David Mitchell <[email protected]> Date: Sat Apr 18 18:47:14 2015 +0100 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. ----------------------------------------------------------------------- Summary of changes: embed.fnc | 2 +- proto.h | 2 +- universal.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/embed.fnc b/embed.fnc index a909f7d..c0f28a4 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 f45a4a3..53f6270 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 1b4e550..2e446dd 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; -- Perl5 Master Repository
