Beispiel #1
0
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");
}
Beispiel #2
0
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);
}