1
1
openmpi/src/lam/mem/free_list.c
Tim Woodall 1b6464d815 STATIC_INIT requires an object - rather than a pointer - this
seems coutner-intuitive, as everything else requires a pointer....

This commit was SVN r611.
2004-01-30 14:12:35 +00:00

72 строки
2.0 KiB
C

/*
* $HEADER$
*/
#include "lam_config.h"
#include "lam/mem/free_list.h"
lam_class_info_t lam_free_list_cls = {
"lam_free_list_t",
&lam_list_cls,
(class_init_t)lam_free_list_init,
(class_destroy_t)lam_free_list_destroy
};
void lam_free_list_init(lam_free_list_t* fl)
{
SUPER_INIT(fl, &lam_list_cls);
}
void lam_free_list_destroy(lam_free_list_t* fl)
{
SUPER_DESTROY(fl, &lam_list_cls);
}
int lam_free_list_init_with(
lam_free_list_t *flist,
size_t elem_size,
lam_class_info_t* elem_class,
int num_elements_to_alloc,
int max_elements_to_alloc,
int num_elements_per_alloc,
lam_allocator_t* allocator)
{
flist->fl_elem_size = elem_size;
flist->fl_elem_class = elem_class;
flist->fl_max_to_alloc = max_elements_to_alloc;
flist->fl_num_allocated = 0;
flist->fl_num_per_alloc = num_elements_per_alloc;
flist->fl_allocator = allocator;
return lam_free_list_grow(flist, num_elements_to_alloc);
}
int lam_free_list_grow(lam_free_list_t* flist, size_t num_elements)
{
unsigned char* ptr;
size_t i;
if (flist->fl_max_to_alloc > 0 && flist->fl_num_allocated + num_elements > flist->fl_max_to_alloc)
return LAM_ERR_TEMP_OUT_OF_RESOURCE;
if (NULL != flist->fl_allocator)
ptr = (unsigned char*)lam_allocator_alloc(flist->fl_allocator, num_elements * flist->fl_elem_size);
else
ptr = (unsigned char*)LAM_MALLOC(num_elements * flist->fl_elem_size);
if(NULL == ptr)
return LAM_ERR_TEMP_OUT_OF_RESOURCE;
for(i=0; i<num_elements; i++) {
lam_list_item_t* item = (lam_list_item_t*)ptr;
if (NULL != flist->fl_elem_class)
STATIC_INIT((*item), flist->fl_elem_class);
lam_list_append(&flist->super, item);
ptr += flist->fl_elem_size;
}
flist->fl_num_allocated += num_elements;
return LAM_SUCCESS;
}