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

p4raw-id: //depot/perl@5103

1 files changed, 7 insertions, 0 deletions

diff --git a/perlapi.c b/perlapi.c
index d57a5006dc..f897146b6f 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -3301,6 +3301,13 @@ Perl_dump_mstats(pTHXo_ char* s)
 {
     ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
 }
+
+#undef  Perl_get_mstats
+int
+Perl_get_mstats(pTHXo_ perl_mstats_t *buf, int buflen, int level)
+{
+    return ((CPerlObj*)pPerl)->Perl_get_mstats(buf, buflen, level);
+}
 #endif
 
 #undef  Perl_safesysmalloc