From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 26 May 1999 01:56:28 +0000 (+0000)
Subject: fix missing exported symbol
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df31f264f6de992fe591486e92ee6837dd41cbed;p=p5sagit%2Fp5-mst-13.2.git

fix missing exported symbol

p4raw-id: //depot/perl@3484
---

diff --git a/malloc.c b/malloc.c
index d543b9b..d62267f 100644
--- 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
--- 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)];
  }