From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sun, 2 Aug 1998 04:35:11 +0000 (-0400)
Subject: Better debugging output from malloc.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=42ac124e1121d9d0c888a584bc0d509345698865;p=p5sagit%2Fp5-mst-13.2.git

Better debugging output from malloc.c

	Message-Id: <199808020835.EAA09367@monk.mps.ohio-state.edu>

p4raw-id: //depot/maint-5.005/perl@1713
---

diff --git a/malloc.c b/malloc.c
index bba7741..73c4039 100644
--- a/malloc.c
+++ b/malloc.c
@@ -1377,6 +1377,10 @@ realloc(void *mp, size_t nbytes)
 #endif
 		res = cp;
 		MUTEX_UNLOCK(&PL_malloc_mutex);
+		DEBUG_m(PerlIO_printf(Perl_debug_log, 
+			      "0x%lx: (%05lu) realloc %ld bytes inplace\n",
+			      (unsigned long)res,(unsigned long)(PL_an++),
+			      (long)size));
 	} else if (incr == 1 && (cp - M_OVERHEAD == last_op) 
 		   && (onb > (1 << LOG_OF_MIN_ARENA))) {
 	    MEM_SIZE require, newarena = nbytes, pow;
@@ -1405,6 +1409,10 @@ realloc(void *mp, size_t nbytes)
 	} else {
 	  hard_way:
 	    MUTEX_UNLOCK(&PL_malloc_mutex);
+	    DEBUG_m(PerlIO_printf(Perl_debug_log, 
+			      "0x%lx: (%05lu) realloc %ld bytes the hard way\n",
+			      (unsigned long)cp,(unsigned long)(PL_an++),
+			      (long)size));
 	    if ((res = (char*)malloc(nbytes)) == NULL)
 		return (NULL);
 	    if (cp != res)			/* common optimization */
@@ -1412,13 +1420,6 @@ realloc(void *mp, size_t nbytes)
 	    if (was_alloced)
 		free(cp);
 	}
-
-	DEBUG_m(PerlIO_printf(Perl_debug_log, "0x%lu: (%05lu) rfree\n",
-			      (unsigned long)res,(unsigned long)(PL_an++)));
-	DEBUG_m(PerlIO_printf(Perl_debug_log, 
-			      "0x%lx: (%05lu) realloc %ld bytes\n",
-			      (unsigned long)res,(unsigned long)(PL_an++),
-			      (long)size));
   	return ((Malloc_t)res);
 }