From 24dd13bfb27be66180ff24c7f9b889c5a068c2c2 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 25 Feb 2000 21:04:17 +0000 Subject: [PATCH] Further fixes to malloc.c prototypes from Dominic Dunlop. p4raw-id: //depot/cfgperl@5258 --- malloc.c | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/malloc.c b/malloc.c index acbc9e8..4ab24d7 100644 --- a/malloc.c +++ b/malloc.c @@ -828,6 +828,16 @@ static char bucket_of[] = # define SBRK_FAILURE_PRICE 50 #endif +static void morecore (register int bucket); +# if defined(DEBUGGING) +static void botch (char *diag, char *s); +# endif +static void add_to_chain (void *p, MEM_SIZE size, MEM_SIZE chip); +static void* get_from_chain (MEM_SIZE size); +static void* get_from_bigger_buckets(int bucket, MEM_SIZE size); +static union overhead *getpages (MEM_SIZE needed, int *nblksp, int bucket); +static int getpages_adjacent(MEM_SIZE require); + #if defined(PERL_EMERGENCY_SBRK) && defined(PERL_CORE) # ifndef BIG_SIZE @@ -844,17 +854,6 @@ static char bucket_of[] = static char *emergency_buffer; static MEM_SIZE emergency_buffer_size; -static void morecore (register int bucket); -# if defined(DEBUGGING) -static void botch (char *diag, char *s); -# endif -static void add_to_chain (void *p, MEM_SIZE size, MEM_SIZE chip); -static Malloc_t emergency_sbrk (MEM_SIZE size); -static void* get_from_chain (MEM_SIZE size); -static void* get_from_bigger_buckets(int bucket, MEM_SIZE size); -static union overhead *getpages (MEM_SIZE needed, int *nblksp, int bucket); -static int getpages_adjacent(MEM_SIZE require); - static Malloc_t emergency_sbrk(MEM_SIZE size) { @@ -981,7 +980,6 @@ Perl_malloc(register size_t nbytes) register union overhead *p; register int bucket; register MEM_SIZE shiftr; - static void morecore(int bucket); #if defined(DEBUGGING) || defined(RCHECK) MEM_SIZE size = nbytes; -- 2.7.4