#include "xh_config.h"
#include "xh_core.h"

void
xh_stack_init(xh_stack_t *st, xh_uint_t nelts, size_t size)
{
    if ((st->elts = malloc(nelts * size)) == NULL) {
        croak("Memory allocation error");
    }
    st->size  = size;
    st->nelts = nelts;
    st->top   = 0;
}

void
xh_stack_destroy(xh_stack_t *st)
{
    free(st->elts);
}