wsfalloc.c File Reference

#include "wsint.h"

Go to the source code of this file.

Functions
WsFastMalloc *	ws_f_create (size_t block_size)
void	ws_f_destroy (WsFastMalloc *pool)
void *	ws_f_malloc (WsFastMalloc *pool, size_t size)
void *	ws_f_calloc (WsFastMalloc *pool, size_t num, size_t size)
void *	ws_f_memdup (WsFastMalloc *pool, const void *ptr, size_t size)
void *	ws_f_strdup (WsFastMalloc *pool, const char *str)

Function Documentation

ws_f_calloc()

void* ws_f_calloc	(	WsFastMalloc *	pool,
		size_t	num,
		size_t	size
	)

Definition at line 150 of file wsfalloc.c.

References size, and ws_f_malloc().

Referenced by asm_alloc(), expr_alloc(), stmt_alloc(), ws_list_append(), ws_list_new(), and ws_stmt_linearize().

{
    void *p = ws_f_malloc(pool, num * size);

    if (p == NULL)
        return p;

    memset(p, 0, num * size);

    return p;
}

ws_f_create()

WsFastMalloc* ws_f_create

(

size_t

block_size

)

Definition at line 74 of file wsfalloc.c.

References WsFastMallocRec::block_size, and ws_calloc().

Referenced by compile_stream().

{
    WsFastMalloc *pool = ws_calloc(1, sizeof(WsFastMalloc));

    if (pool == NULL)
        return NULL;

    pool->block_size = block_size;

    return pool;
}

ws_f_destroy()

void ws_f_destroy

(

WsFastMalloc *

pool

)

Definition at line 87 of file wsfalloc.c.

References WsFastMallocRec::blocks, WsFastMallocBlockRec::next, and ws_free().

Referenced by compile_stream().

{
    WsFastMallocBlock *b, *bnext;

    if (pool == NULL)
        return;

    for (b = pool->blocks; b; b = bnext) {
        bnext = b->next;
        ws_free(b);
    }
    ws_free(pool);
}

ws_f_malloc()

void* ws_f_malloc	(	WsFastMalloc *	pool,
		size_t	size
	)

Definition at line 102 of file wsfalloc.c.

References WsFastMallocRec::block_size, WsFastMallocRec::blocks, WsFastMallocBlockRec::next, WsFastMallocRec::ptr, size, WsFastMallocRec::size, WsFastMallocRec::user_bytes_allocated, and ws_malloc().

Referenced by ws_f_calloc(), ws_f_memdup(), ws_f_strdup(), ws_formal_parameter(), and ws_variable_declaration().

{
    unsigned char *result;

    /* Keep the blocks aligned, because this function is used to allocate
     * space for structures containing longs and such. */

    if (size % sizeof(long) != 0) {
        size += sizeof(long) - (size % sizeof(long));
    }

    if (pool->size < size) {
        size_t alloc_size;
        WsFastMallocBlock *b;

        /* Must allocate a fresh block. */
        alloc_size = pool->block_size;
        if (alloc_size < size)
            alloc_size = size;

        /* Allocate the block and remember to add the header size. */
        b = ws_malloc(alloc_size + sizeof(WsFastMallocBlock));

        if (b == NULL)
            /* No memory available. */
            return NULL;

        /* Add this block to the memory pool. */
        b->next = pool->blocks;
        pool->blocks = b;

        pool->ptr = ((unsigned char *) b) + sizeof(WsFastMallocBlock);
        pool->size = alloc_size;
    }

    /* Now we can allocate `size' bytes of data from this pool. */

    result = pool->ptr;

    pool->ptr += size;
    pool->size -= size;

    pool->user_bytes_allocated += size;

    return result;
}

ws_f_memdup()

void* ws_f_memdup	(	WsFastMalloc *	pool,
		const void *	ptr,
		size_t	size
	)

Definition at line 163 of file wsfalloc.c.

References size, and ws_f_malloc().

Referenced by ws_expr_const_string().

{
    unsigned char *d = ws_f_malloc(pool, size + 1);

    if (d == NULL)
        return NULL;

    memcpy(d, ptr, size);
    d[size] = '\0';

    return d;
}

ws_f_strdup()

void* ws_f_strdup	(	WsFastMalloc *	pool,
		const char *	str
	)

Definition at line 177 of file wsfalloc.c.

References WsBufferRec::len, and ws_f_malloc().

Referenced by ws_expr_assign(), ws_expr_call(), ws_expr_postfix_var(), ws_expr_symbol(), ws_expr_unary_var(), and yyparse().

{
    size_t len;
    char *s;

    if (str == NULL)
        return NULL;

    len = strlen(str) + 1;
    s = ws_f_malloc(pool, len);

    if (s == NULL)
        return NULL;

    memcpy(s, str, len);

    return s;
}