void Parrot_gc_str_initialize(PARROT_INTERP, ARGMOD(String_GC *gc)) { ASSERT_ARGS(Parrot_gc_str_initialize) gc->memory_pool = new_memory_pool(POOL_SIZE, &compact_pool); alloc_new_block(interp, &interp->gc_sys->stats, POOL_SIZE, gc->memory_pool, "init"); /* Constant strings - not compacted */ gc->constant_string_pool = new_memory_pool(POOL_SIZE, NULL); alloc_new_block(interp, &interp->gc_sys->stats, POOL_SIZE, gc->constant_string_pool, "init"); }
void *malloc_b(size_t size) { t_block *b; b = search_freed_block(size); if (b == NULL) b = alloc_new_block(size); if (b == NULL) return (NULL); return (b); }