1
1
This commit was SVN r3224.
Этот коммит содержится в:
Jeff Squyres 2004-10-19 23:58:12 +00:00
родитель f8b780ab22
Коммит ceafa4d178
8 изменённых файлов: 19 добавлений и 18 удалений

Просмотреть файл

@ -23,7 +23,7 @@
#define attr_datatype_f d_f_to_c_index #define attr_datatype_f d_f_to_c_index
#define attr_win_f w_f_to_c_index #define attr_win_f w_f_to_c_index
#define CREATE_KEY() ompi_bitmap_find_and_set_first_unset_bit(key_bitmap) #define CREATE_KEY(key) ompi_bitmap_find_and_set_first_unset_bit(key_bitmap, (key))
#define FREE_KEY(key) ompi_bitmap_clear_bit(key_bitmap, (key)) #define FREE_KEY(key) ompi_bitmap_clear_bit(key_bitmap, (key))
@ -192,8 +192,10 @@ ompi_attr_create_keyval(ompi_attribute_type_t type,
/* Create a new unique key and fill the hash */ /* Create a new unique key and fill the hash */
OMPI_THREAD_LOCK(&alock); OMPI_THREAD_LOCK(&alock);
*key = CREATE_KEY(); ret = CREATE_KEY(key);
ret = ompi_hash_table_set_value_uint32(keyval_hash, *key, attr); if (OMPI_SUCCESS == ret) {
ret = ompi_hash_table_set_value_uint32(keyval_hash, *key, attr);
}
OMPI_THREAD_UNLOCK(&alock); OMPI_THREAD_UNLOCK(&alock);
if (OMPI_SUCCESS != ret) { if (OMPI_SUCCESS != ret) {
return ret; return ret;

Просмотреть файл

@ -19,10 +19,10 @@ struct mca_mem_pool_t;
struct ompi_free_list_t struct ompi_free_list_t
{ {
ompi_list_t super; ompi_list_t super;
int fl_max_to_alloc; size_t fl_max_to_alloc;
int fl_num_allocated; size_t fl_num_allocated;
int fl_num_per_alloc; size_t fl_num_per_alloc;
int fl_num_waiting; size_t fl_num_waiting;
size_t fl_elem_size; size_t fl_elem_size;
ompi_class_t* fl_elem_class; ompi_class_t* fl_elem_class;
mca_mpool_base_module_t* fl_mpool; mca_mpool_base_module_t* fl_mpool;

Просмотреть файл

@ -66,7 +66,7 @@ void ompi_pointer_array_destruct(ompi_pointer_array_t *array){
size_t ompi_pointer_array_add(ompi_pointer_array_t *table, void *ptr) size_t ompi_pointer_array_add(ompi_pointer_array_t *table, void *ptr)
{ {
void **p; void **p;
int i; size_t i;
size_t index; size_t index;
if (0) { if (0) {

Просмотреть файл

@ -166,15 +166,15 @@ ompi_errhandler_t *ompi_errhandler_create(ompi_errhandler_type_t object_type,
*/ */
static void ompi_errhandler_construct(ompi_errhandler_t *new_errhandler) static void ompi_errhandler_construct(ompi_errhandler_t *new_errhandler)
{ {
int ret_val; size_t ret_val;
/* assign entry in fortran <-> c translation array */ /* assign entry in fortran <-> c translation array */
ret_val = ompi_pointer_array_add(ompi_errhandler_f_to_c_table, ret_val = ompi_pointer_array_add(ompi_errhandler_f_to_c_table,
new_errhandler); new_errhandler);
new_errhandler->eh_f_to_c_index = ret_val; new_errhandler->eh_f_to_c_index = ret_val;
new_errhandler->eh_fortran_function = 0; new_errhandler->eh_fortran_function = NULL;
new_errhandler->eh_comm_fn = NULL; new_errhandler->eh_comm_fn = NULL;
new_errhandler->eh_win_fn = NULL; new_errhandler->eh_win_fn = NULL;

Просмотреть файл

@ -69,7 +69,7 @@ struct ompi_errhandler_t {
ompi_errhandler_fortran_handler_fn_t *eh_fort_fn; ompi_errhandler_fortran_handler_fn_t *eh_fort_fn;
/* index in Fortran <-> C translation array */ /* index in Fortran <-> C translation array */
int eh_f_to_c_index; size_t eh_f_to_c_index;
}; };
typedef struct ompi_errhandler_t ompi_errhandler_t; typedef struct ompi_errhandler_t ompi_errhandler_t;

Просмотреть файл

@ -53,7 +53,7 @@ static int param_register(const char *type_name, const char *component_name,
mca_base_param_storage_t *default_value, mca_base_param_storage_t *default_value,
mca_base_param_storage_t *file_value, mca_base_param_storage_t *file_value,
mca_base_param_storage_t *override_value); mca_base_param_storage_t *override_value);
static bool param_lookup(int index, mca_base_param_storage_t *storage, static bool param_lookup(size_t index, mca_base_param_storage_t *storage,
ompi_hash_table_t *attrs); ompi_hash_table_t *attrs);
static bool lookup_keyvals(mca_base_param_t *param, static bool lookup_keyvals(mca_base_param_t *param,
mca_base_param_storage_t *storage, mca_base_param_storage_t *storage,
@ -170,7 +170,7 @@ int mca_base_param_register_string(const char *type_name,
/* /*
* Associate a keyval with a parameter index * Associate a keyval with a parameter index
*/ */
int mca_base_param_kv_associate(int index, int keyval) int mca_base_param_kv_associate(size_t index, int keyval)
{ {
size_t len; size_t len;
mca_base_param_t *array; mca_base_param_t *array;
@ -596,7 +596,7 @@ static int param_register(const char *type_name, const char *component_name,
/* /*
* Lookup a parameter in multiple places * Lookup a parameter in multiple places
*/ */
static bool param_lookup(int index, mca_base_param_storage_t *storage, static bool param_lookup(size_t index, mca_base_param_storage_t *storage,
ompi_hash_table_t *attrs) ompi_hash_table_t *attrs)
{ {
size_t size; size_t size;

Просмотреть файл

@ -165,7 +165,7 @@ extern "C" {
* versions will cross reference and attempt to find parameter * versions will cross reference and attempt to find parameter
* values on attributes. * values on attributes.
*/ */
int mca_base_param_kv_associate(int index, int keyval); int mca_base_param_kv_associate(size_t index, int keyval);
/** /**
* Look up an integer MCA parameter. * Look up an integer MCA parameter.

Просмотреть файл

@ -52,8 +52,7 @@ static inline int ompi_hibit(int value, int start)
*/ */
static inline int ompi_cube_dim(int value) static inline int ompi_cube_dim(int value)
{ {
int dim; int dim, size;
size_t size;
for (dim = 0, size = 1; size < value; ++dim, size <<= 1) { for (dim = 0, size = 1; size < value; ++dim, size <<= 1) {
continue; continue;