/* This is a version (aka dlmalloc) of malloc/free/realloc written by Doug Lea and released to the public domain. Use, modify, and redistribute this code without permission or acknowledgement in any way you wish. Send questions, comments, complaints, performance data, etc to dl@cs.oswego.edu VERSION 2.7.2 Sat Aug 17 09:07:30 2002 Doug Lea (dl at gee) Note: There may be an updated version of this malloc obtainable at ftp://gee.cs.oswego.edu/pub/misc/malloc.c Check before installing! Hacked up for uClibc by Erik Andersen <andersen@codepoet.org> */ #include "malloc.h" /* ------------------------------ calloc ------------------------------ */ void* calloc(size_t n_elements, size_t elem_size) { mchunkptr p; unsigned long clearsize; unsigned long nclears; size_t size, *d; void* mem; /* guard vs integer overflow, but allow nmemb * to fall through and call malloc(0) */ size = n_elements * elem_size; if (n_elements && elem_size != (size / n_elements)) { __set_errno(ENOMEM); return NULL; } LOCK; mem = malloc(size); if (mem != 0) { p = mem2chunk(mem); if (!chunk_is_mmapped(p)) { /* Unroll clear of <= 36 bytes (72 if 8byte sizes) We know that contents have an odd number of size_t-sized words; minimally 3. */ d = (size_t*)mem; clearsize = chunksize(p) - (sizeof(size_t)); nclears = clearsize / sizeof(size_t); assert(nclears >= 3); if (nclears > 9) __memset(d, 0, clearsize); else { *(d+0) = 0; *(d+1) = 0; *(d+2) = 0; if (nclears > 4) { *(d+3) = 0; *(d+4) = 0; if (nclears > 6) { *(d+5) = 0; *(d+6) = 0; if (nclears > 8) { *(d+7) = 0; *(d+8) = 0; } } } } } #if 0 else { /* Standard unix mmap using /dev/zero clears memory so calloc * doesn't need to actually zero anything.... */ d = (size_t*)mem; /* Note the additional (sizeof(size_t)) */ clearsize = chunksize(p) - 2*(sizeof(size_t)); __memset(d, 0, clearsize); } #endif } UNLOCK; return mem; }