fix missing exported symbol

p4raw-id: //depot/perl@3484

diff --git a/malloc.c b/malloc.c
index d543b9b..d62267f 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -1630,8 +1630,6 @@ malloced_size(void *p)
     return BUCKET_SIZE_REAL(bucket);
 }
 
-#ifdef DEBUGGING_MSTATS
-
 #  ifdef BUCKETS_ROOT2
 #    define MIN_EVEN_REPORT 6
 #  else
@@ -1647,6 +1645,7 @@ malloced_size(void *p)
 void
 dump_mstats(char *s)
 {
+#ifdef DEBUGGING_MSTATS
        register int i, j;
        register union overhead *p;
        int topbucket=0, topbucket_ev=0, topbucket_odd=0, totfree=0, total=0;
@@ -1715,16 +1714,10 @@ dump_mstats(char *s)
        PerlIO_printf(PerlIO_stderr(), "\nTotal sbrk(): %d/%d:%d. Odd ends: pad+heads+chain+tail: %d+%d+%d+%d.\n",
                      goodsbrk + sbrk_slack, sbrks, sbrk_good, sbrk_slack,
                      start_slack, total_chain, sbrked_remains);
+#endif /* DEBUGGING_MSTATS */
 }
-#else
-void
-dump_mstats(char *s)
-{
-}
-#endif
 #endif /* lint */
 
-
 #ifdef USE_PERL_SBRK
 
 #   if defined(__MACHTEN_PPC__) || defined(NeXT) || defined(__NeXT__)

diff --git a/win32/makedef.pl b/win32/makedef.pl
index ec4a164..c47dc65 100644 (file)
--- a/win32/makedef.pl
+++ b/win32/makedef.pl
@@ -121,6 +121,7 @@ if ($define{'MYMALLOC'})
 else
  {
   skip_symbols [qw(
+    Perl_dump_mstats
     Perl_malloced_size)];
  }