From: Steve Hay <SteveHay@planit.com>
Date: Thu, 6 Mar 2008 18:02:22 +0000 (+0000)
Subject: Silence warning introduced by #32703 when building with MYMALLOC
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e9b0e18b74568df48892177bec423fc6a68b426;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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)