summaryrefslogtreecommitdiff
path: root/malloc.c
diff options
context:
space:
mode:
authorStephen McCamant <smcc@mit.edu>1998-03-13 16:28:19 -0600
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1998-03-16 16:02:50 +0000
commit2ce36478e58aef6258082c58568c0f469f8eb69c (patch)
tree8b2fd2da30cf61ed9b9e9edf150bc920ff16087a /malloc.c
parent88f6dadfa85904befed3058706d299f3599d0462 (diff)
downloadperl-2ce36478e58aef6258082c58568c0f469f8eb69c.tar.gz
STRESS_REALLOC
p4raw-id: //depot/perl@820
Diffstat (limited to 'malloc.c')
-rw-r--r--malloc.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/malloc.c b/malloc.c
index 6f8f548f1e..0e1745844a 100644
--- a/malloc.c
+++ b/malloc.c
@@ -618,6 +618,9 @@ realloc(void *mp, size_t nbytes)
* FIRST_BIG_TWO_POT, but the new one is near the lower end.
*/
if (was_alloced &&
+#ifdef STRESS_REALLOC
+ 0 && /* always do it the hard way */
+#endif
nbytes <= onb && (nbytes > ( (onb >> 1) - M_OVERHEAD )
#ifdef TWO_POT_OPTIMIZE
|| (i == (FIRST_BIG_TWO_POT - 3)