provide malloc stats via get_mstats() (from Ilya Zakharevich)

p4raw-id: //depot/perl@5103

1 files changed, 1 insertions, 0 deletions

diff --git a/proto.h b/proto.h
index 958f36e738..df2ddb4430 100644
--- a/proto.h
+++ b/proto.h
@@ -820,6 +820,7 @@ PERL_CALLCONV int	Perl_yyparse(pTHX);
 PERL_CALLCONV int	Perl_yywarn(pTHX_ char* s);
 #if defined(MYMALLOC)
 PERL_CALLCONV void	Perl_dump_mstats(pTHX_ char* s);
+PERL_CALLCONV int	Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level);
 #endif
 PERL_CALLCONV Malloc_t	Perl_safesysmalloc(MEM_SIZE nbytes);
 PERL_CALLCONV Malloc_t	Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size);