void xfree(void *ptr)
{ LIBENV *env = lib_link_env();
LIBMEM *desc;
int size_of_desc = align_datasize(sizeof(LIBMEM));
if (ptr == NULL)
xerror("xfree: ptr = %p; null pointer\n", ptr);
desc = (void *)((char *)ptr - size_of_desc);
if (desc->flag != LIB_MEM_FLAG)
xerror("xfree: ptr = %p; invalid pointer\n", ptr);
if (env->mem_count == 0 ||
xlcmp(env->mem_total, xlset(desc->size)) < 0)
xerror("xfree: memory allocation error\n");
if (desc->prev == NULL)
env->mem_ptr = desc->next;
else
desc->prev->next = desc->next;
if (desc->next == NULL)
;
else
desc->next->prev = desc->prev;
env->mem_count--;
env->mem_total = xlsub(env->mem_total, xlset(desc->size));
memset(desc, '?', size_of_desc);
free(desc);
return;
}
void *xmalloc(int size)
{ LIBENV *env = lib_link_env();
LIBMEM *desc;
int size_of_desc = align_datasize(sizeof(LIBMEM));
if (size < 1 || size > INT_MAX - size_of_desc)
xerror("xmalloc: size = %d; invalid parameter\n", size);
size += size_of_desc;
if (xlcmp(xlset(size),
xlsub(env->mem_limit, env->mem_total)) > 0)
xerror("xmalloc: memory limit exceeded\n");
if (env->mem_count == INT_MAX)
xerror("xmalloc: too many memory blocks allocated\n");
desc = malloc(size);
if (desc == NULL)
xerror("xmalloc: no memory available\n");
memset(desc, '?', size);
desc->flag = LIB_MEM_FLAG;
desc->size = size;
desc->prev = NULL;
desc->next = env->mem_ptr;
if (desc->next != NULL) desc->next->prev = desc;
env->mem_ptr = desc;
env->mem_count++;
if (env->mem_cpeak < env->mem_count)
env->mem_cpeak = env->mem_count;
env->mem_total = xladd(env->mem_total, xlset(size));
if (xlcmp(env->mem_tpeak, env->mem_total) < 0)
env->mem_tpeak = env->mem_total;
return (void *)((char *)desc + size_of_desc);
}
void glp_free(void *ptr)
{ ENV *env = get_env_ptr();
MEM *desc;
int size_of_desc = align_datasize(sizeof(MEM));
if (ptr == NULL)
xerror("glp_free: ptr = %p; null pointer\n", ptr);
desc = (void *)((char *)ptr - size_of_desc);
if (desc->flag != MEM_MAGIC)
xerror("glp_free: ptr = %p; invalid pointer\n", ptr);
if (env->mem_count == 0 ||
xlcmp(env->mem_total, xlset(desc->size)) < 0)
xerror("glp_free: memory allocation error\n");
if (desc->prev == NULL)
env->mem_ptr = desc->next;
else
desc->prev->next = desc->next;
if (desc->next == NULL)
;
else
desc->next->prev = desc->prev;
env->mem_count--;
env->mem_total = xlsub(env->mem_total, xlset(desc->size));
memset(desc, '?', size_of_desc);
free(desc);
return;
}
