This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence win32 compiler warning
authorKarl Williamson <khw@cpan.org>
Fri, 23 Dec 2016 01:36:33 +0000 (18:36 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 23 Dec 2016 18:41:32 +0000 (11:41 -0700)
The function's parameter was not declared const in embed.fnc, but was in
the function itself.

embed.fnc
proto.h

index 392e5ee..49cf3f4 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -529,7 +529,7 @@ i   |void   |op_relocate_sv |NN SV** svp|NN PADOFFSET* targp
 i      |OP*    |newMETHOP_internal     |I32 type|I32 flags|NULLOK OP* dynamic_meth \
                                        |NULLOK SV* const_meth
 : FIXME
-s      |OP*    |fold_constants |NN OP *o
+s      |OP*    |fold_constants |NN OP * const o
 #endif
 Afpd   |char*  |form           |NN const char* pat|...
 Ap     |char*  |vform          |NN const char* pat|NULLOK va_list* args
diff --git a/proto.h b/proto.h
index 1d1846e..ecf6f71 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -4541,7 +4541,7 @@ STATIC void       S_finalize_op(pTHX_ OP* o);
 STATIC void    S_find_and_forget_pmops(pTHX_ OP *o);
 #define PERL_ARGS_ASSERT_FIND_AND_FORGET_PMOPS \
        assert(o)
-STATIC OP*     S_fold_constants(pTHX_ OP *o);
+STATIC OP*     S_fold_constants(pTHX_ OP * const o);
 #define PERL_ARGS_ASSERT_FOLD_CONSTANTS        \
        assert(o)
 STATIC OP*     S_force_list(pTHX_ OP* arg, bool nullit);