Silence warning introduced by #32703 when building with MYMALLOC

p4raw-id: //depot/perl@33450

diff --git a/embed.fnc b/embed.fnc
index 42991ad..3f361c5 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1015,7 +1015,7 @@ p |int    |yyparse
 p      |void   |parser_free    |NN const yy_parser *parser
 p      |int    |yywarn         |NN const char *const s
 #if defined(MYMALLOC)
-Ap     |void   |dump_mstats    |NN char* s
+Ap     |void   |dump_mstats    |NN const char* s
 Ap     |int    |get_mstats     |NN perl_mstats_t *buf|int buflen|int level
 #endif
 Anpa   |Malloc_t|safesysmalloc |MEM_SIZE nbytes

diff --git a/malloc.c b/malloc.c
index a8d4554..914436e 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -2463,7 +2463,7 @@ Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level)
  * frees for each size category.
  */
 void
-Perl_dump_mstats(pTHX_ char *s)
+Perl_dump_mstats(pTHX_ const char *s)
 {
 #ifdef DEBUGGING_MSTATS
        register int i;

diff --git a/proto.h b/proto.h
index 474bec9..c334b00 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3710,7 +3710,7 @@ PERL_CALLCONV int Perl_yywarn(pTHX_ const char *const s)
        assert(s)
 
 #if defined(MYMALLOC)
-PERL_CALLCONV void     Perl_dump_mstats(pTHX_ char* s)
+PERL_CALLCONV void     Perl_dump_mstats(pTHX_ const char* s)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_DUMP_MSTATS   \
        assert(s)