From 41ad8e4261642146314ec7332abffcab995f9fc9 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 20 Jun 2003 08:42:58 +0000 Subject: [PATCH] Allow for things like -DFILL_CHECK_DEFAULT=0 (from Ilya). p4raw-id: //depot/perl@19834 --- malloc.c | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/malloc.c b/malloc.c index b080444..409eed5 100644 --- a/malloc.c +++ b/malloc.c @@ -1035,6 +1035,16 @@ extern Malloc_t sbrk(int); #ifndef NO_MALLOC_DYNAMIC_CFG # define PERL_MALLOC_OPT_CHARS "FMfAPGdac" +# ifndef FILL_DEAD_DEFAULT +# define FILL_DEAD_DEFAULT 1 +# endif +# ifndef FILL_ALIVE_DEFAULT +# define FILL_ALIVE_DEFAULT 1 +# endif +# ifndef FILL_CHECK_DEFAULT +# define FILL_CHECK_DEFAULT 1 +# endif + static IV MallocCfg[MallocCfg_last] = { FIRST_SBRK, MIN_SBRK, @@ -1042,9 +1052,9 @@ static IV MallocCfg[MallocCfg_last] = { SBRK_ALLOW_FAILURES, SBRK_FAILURE_PRICE, SBRK_ALLOW_FAILURES * SBRK_FAILURE_PRICE, /* sbrk_goodness */ - 1, /* FILL_DEAD */ - 1, /* FILL_ALIVE */ - 1, /* FILL_CHECK */ + FILL_DEAD_DEFAULT, /* FILL_DEAD */ + FILL_ALIVE_DEFAULT, /* FILL_ALIVE */ + FILL_CHECK_DEFAULT, /* FILL_CHECK */ 0, /* MallocCfg_skip_cfg_env */ 0, /* MallocCfg_cfg_env_read */ 0, /* MallocCfg_emergency_buffer_size */ -- 2.7.4