diff --git a/tinyalloc.c b/tinyalloc.c index eb9fa3f..ffbae9e 100644 --- a/tinyalloc.c +++ b/tinyalloc.c @@ -1,4 +1,5 @@ #include "tinyalloc.h" + #include #ifdef TA_DEBUG @@ -9,6 +10,12 @@ extern void print_i(size_t); #define print_i(X) #endif +/* optional C stdlib integration */ +#ifdef TA_USE_STDLIB +#include +#include +#endif + typedef struct Block Block; struct Block { @@ -24,19 +31,13 @@ typedef struct { size_t top; // top free addr } Heap; -static Heap *heap = NULL; -static const void *heap_limit = NULL; -static size_t heap_split_thresh; -static size_t heap_alignment; -static size_t heap_max_blocks; - /** * If compaction is enabled, inserts block * into free list, sorted by addr. * If disabled, add block has new head of * the free list. */ -static void insert_block(Block *block) { +static void insert_block(Heap *heap, Block *block) { #ifndef TA_DISABLE_COMPACT Block *ptr = heap->free; Block *prev = NULL; @@ -66,7 +67,7 @@ static void insert_block(Block *block) { } #ifndef TA_DISABLE_COMPACT -static void release_blocks(Block *scan, Block *to) { +static void release_blocks(Heap *heap, Block *scan, Block *to) { Block *scan_next; while (scan != to) { print_s("release"); @@ -80,7 +81,7 @@ static void release_blocks(Block *scan, Block *to) { } } -static void compact() { +static void compact(Heap *heap) { Block *ptr = heap->free; Block *prev; Block *scan; @@ -102,7 +103,7 @@ static void compact() { ptr->size = new_size; Block *next = prev->next; // make merged blocks available - release_blocks(ptr->next, prev->next); + release_blocks(heap, ptr->next, prev->next); // relink ptr->next = next; } @@ -111,29 +112,27 @@ static void compact() { } #endif -bool ta_init(const void *base, const void *limit, const size_t heap_blocks, const size_t split_thresh, const size_t alignment) { - heap = (Heap *)base; - heap_limit = limit; - heap_split_thresh = split_thresh; - heap_alignment = alignment; - heap_max_blocks = heap_blocks; - - heap->free = NULL; - heap->used = NULL; - heap->fresh = (Block *)(heap + 1); - heap->top = (size_t)(heap->fresh + heap_blocks); +void ta_init(const ta_cfg_t *cfg) { + Heap *heap = (Heap *)cfg->base; + heap->free = NULL; + heap->used = NULL; + heap->fresh = (Block *)(heap + 1); + heap->top = (size_t)(heap->fresh + cfg->max_blocks); Block *block = heap->fresh; - size_t i = heap_max_blocks - 1; + size_t i = cfg->max_blocks - 1; while (i--) { block->next = block + 1; block++; } block->next = NULL; - return true; } -bool ta_free(void *free) { +bool ta_free(const ta_cfg_t *cfg, void *free) { + if (free == NULL) { + return false; + } + Heap *heap = (Heap *)cfg->base; Block *block = heap->used; Block *prev = NULL; while (block != NULL) { @@ -143,9 +142,9 @@ bool ta_free(void *free) { } else { heap->used = block->next; } - insert_block(block); + insert_block(heap, block); #ifndef TA_DISABLE_COMPACT - compact(); + compact(heap); #endif return true; } @@ -155,13 +154,21 @@ bool ta_free(void *free) { return false; } -static Block *alloc_block(size_t num) { +static Block *alloc_block(const ta_cfg_t *cfg, size_t num) { + Heap *heap = (Heap *)cfg->base; Block *ptr = heap->free; Block *prev = NULL; size_t top = heap->top; - num = (num + heap_alignment - 1) & -heap_alignment; + if (num > -cfg->alignment) { + return NULL; // prevent overflow + } + num = (num + cfg->alignment - 1) & -cfg->alignment; + if (num == 0) { + num = cfg->alignment; // prevent zero-size block + } while (ptr != NULL) { - const int is_top = ((size_t)ptr->addr + ptr->size >= top) && ((size_t)ptr->addr + num <= (size_t)heap_limit); + const int is_top = ((size_t)ptr->addr + ptr->size >= top) && + (num <= (size_t)cfg->limit - (size_t)ptr->addr); if (is_top || ptr->size >= num) { if (prev != NULL) { prev->next = ptr->next; @@ -177,7 +184,7 @@ static Block *alloc_block(size_t num) { #ifndef TA_DISABLE_SPLIT } else if (heap->fresh != NULL) { size_t excess = ptr->size - num; - if (excess >= heap_split_thresh) { + if (excess >= cfg->split_thresh) { ptr->size = num; Block *split = heap->fresh; heap->fresh = split->next; @@ -185,9 +192,9 @@ static Block *alloc_block(size_t num) { print_s("split"); print_i((size_t)split->addr); split->size = excess; - insert_block(split); + insert_block(heap, split); #ifndef TA_DISABLE_COMPACT - compact(); + compact(heap); #endif } #endif @@ -199,28 +206,34 @@ static Block *alloc_block(size_t num) { } // no matching free blocks // see if any other blocks available - size_t new_top = top + num; - if (heap->fresh != NULL && new_top <= (size_t)heap_limit) { + if (heap->fresh != NULL && (num <= (size_t)cfg->limit - top)) { ptr = heap->fresh; heap->fresh = ptr->next; ptr->addr = (void *)top; ptr->next = heap->used; ptr->size = num; heap->used = ptr; - heap->top = new_top; + heap->top = top + num; return ptr; } return NULL; } -void *ta_alloc(size_t num) { - Block *block = alloc_block(num); +void *ta_alloc(const ta_cfg_t *cfg, size_t num) { + Block *block = alloc_block(cfg, num); if (block != NULL) { return block->addr; } +#ifdef TA_USE_STDLIB + errno = ENOMEM; +#endif return NULL; } +#ifdef TA_USE_STDLIB +#define memclear(ptr, num) memset((ptr), 0, (num)) +#define memcopy(dst, src, num) memcpy((dst), (src), (num)) +#else static void memclear(void *ptr, size_t num) { size_t *ptrw = (size_t *)ptr; size_t numw = (num & -sizeof(size_t)) / sizeof(size_t); @@ -234,13 +247,77 @@ static void memclear(void *ptr, size_t num) { } } -void *ta_calloc(size_t num, size_t size) { +static void memcopy(void *dst, void *src, size_t num) { + size_t *dstw = (size_t *)dst; + size_t *srcw = (size_t *)src; + size_t numw = (num & -sizeof(size_t)) / sizeof(size_t); + while (numw--) { + *dstw++ = *srcw++; + } + num &= (sizeof(size_t) - 1); + uint8_t *dstb = (uint8_t *)dstw; + uint8_t *srcb = (uint8_t *)srcw; + while (num--) { + *dstb++ = *srcb++; + } +} +#endif + +void *ta_calloc(const ta_cfg_t *cfg, size_t num, size_t size) { + size_t orig = num; num *= size; - Block *block = alloc_block(num); + // check for overflow + if (size == 0 || num / size == orig) { + Block *block = alloc_block(cfg, num); + if (block != NULL) { + memclear(block->addr, block->size); + return block->addr; + } + } +#ifdef TA_USE_STDLIB + errno = ENOMEM; +#endif + return NULL; +} + +size_t ta_getsize(const ta_cfg_t *cfg, void *ptr) { + if (ptr == NULL) { + return 0; + } + Heap *heap = (Heap *)cfg->base; + Block *block = heap->used; + while (block != NULL) { + if (ptr == block->addr) { + return block->size; + } + block = block->next; + } + return 0; +} + +void *ta_realloc(const ta_cfg_t *cfg, void *ptr, size_t num) { + if (ptr == NULL) { + return ta_alloc(cfg, num); + } else if (num == 0) { + ta_free(cfg, ptr); + return NULL; + } + size_t size = ta_getsize(cfg, ptr); + if (num <= size && size - num <= cfg->split_thresh) { + return ptr; // keep current block + } + Block *block = alloc_block(cfg, num); if (block != NULL) { - memclear(block->addr, num); + if (size > num) { + size = num; + } + memcopy(block->addr, ptr, size); + ta_free(cfg, ptr); return block->addr; } +#ifdef TA_USE_STDLIB + errno = ENOMEM; +#endif return NULL; } @@ -253,18 +330,22 @@ static size_t count_blocks(Block *ptr) { return num; } -size_t ta_num_free() { +size_t ta_num_free(const ta_cfg_t *cfg) { + Heap *heap = (Heap *)cfg->base; return count_blocks(heap->free); } -size_t ta_num_used() { +size_t ta_num_used(const ta_cfg_t *cfg) { + Heap *heap = (Heap *)cfg->base; return count_blocks(heap->used); } -size_t ta_num_fresh() { +size_t ta_num_fresh(const ta_cfg_t *cfg) { + Heap *heap = (Heap *)cfg->base; return count_blocks(heap->fresh); } -bool ta_check() { - return heap_max_blocks == ta_num_free() + ta_num_used() + ta_num_fresh(); +bool ta_check(const ta_cfg_t *cfg) { + return cfg->max_blocks == + ta_num_free(cfg) + ta_num_used(cfg) + ta_num_fresh(cfg); } diff --git a/tinyalloc.h b/tinyalloc.h index 113f147..55b44ca 100644 --- a/tinyalloc.h +++ b/tinyalloc.h @@ -5,15 +5,25 @@ extern "C" { #include #include -bool ta_init(const void *base, const void *limit, const size_t heap_blocks, const size_t split_thresh, const size_t alignment); -void *ta_alloc(size_t num); -void *ta_calloc(size_t num, size_t size); -bool ta_free(void *ptr); +typedef struct { + void *base; + void *limit; + size_t max_blocks; + size_t split_thresh; + size_t alignment; +} ta_cfg_t; -size_t ta_num_free(); -size_t ta_num_used(); -size_t ta_num_fresh(); -bool ta_check(); +void ta_init(const ta_cfg_t *cfg); +void *ta_alloc(const ta_cfg_t *cfg, size_t num); +void *ta_calloc(const ta_cfg_t *cfg, size_t num, size_t size); +size_t ta_getsize(const ta_cfg_t *cfg, void *ptr); +void *ta_realloc(const ta_cfg_t *cfg, void *ptr, size_t num); +bool ta_free(const ta_cfg_t *cfg, void *ptr); + +size_t ta_num_free(const ta_cfg_t *cfg); +size_t ta_num_used(const ta_cfg_t *cfg); +size_t ta_num_fresh(const ta_cfg_t *cfg); +bool ta_check(const ta_cfg_t *cfg); #ifdef __cplusplus }