1
1

Fix a few miscelaneous memory leaks.

This commit was SVN r24865.
Этот коммит содержится в:
Jeff Squyres 2011-07-08 16:39:58 +00:00
родитель a5062385c2
Коммит b2b781e537
7 изменённых файлов: 8 добавлений и 1 удалений

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

@ -153,6 +153,7 @@ int ompi_comm_cid_init (void)
return ret;
}
}
free(procs);
return OMPI_SUCCESS;
}

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

@ -143,6 +143,7 @@ int mca_coll_sm_init_query(bool enable_progress_threads,
if (size <= 1) {
opal_output_verbose(10, mca_coll_base_output,
"coll:sm:init_query: comm size too small; disqualifying myself");
free(procs);
return OMPI_ERR_NOT_AVAILABLE;
}
for (i = 0; i < size; ++i) {
@ -152,12 +153,12 @@ int mca_coll_sm_init_query(bool enable_progress_threads,
break;
}
}
free(procs);
if (i >= size) {
opal_output_verbose(10, mca_coll_base_output,
"coll:sm:init_query: no other local procs; disqualifying myself");
return OMPI_ERR_NOT_AVAILABLE;
}
free(procs);
/* Don't do much here because we don't really want to allocate any
shared memory until this component is selected to be used. */

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

@ -162,6 +162,7 @@ static int mca_pml_bfo_component_close(void)
if (NULL != mca_pml_bfo.allocator_name) {
free(mca_pml_bfo.allocator_name);
}
opal_output_close(mca_pml_bfo_output);
return OMPI_SUCCESS;
}

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

@ -161,6 +161,7 @@ static int mca_pml_csum_component_close(void)
if (NULL != mca_pml_csum.allocator_name) {
free(mca_pml_csum.allocator_name);
}
opal_output_close(mca_pml_csum_output);
return OMPI_SUCCESS;
}

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

@ -158,6 +158,7 @@ static int mca_pml_ob1_component_close(void)
if (NULL != mca_pml_ob1.allocator_name) {
free(mca_pml_ob1.allocator_name);
}
opal_output_close(mca_pml_ob1_output);
return OMPI_SUCCESS;
}

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

@ -77,6 +77,7 @@ static int mca_pml_v_component_open(void)
false, false, "", &vprotocol_include_list);
pml_v_output_open(output, verbose);
free(output);
if(-1 != priority)
V_OUTPUT_ERR("pml_v: Overriding priority setting (%d) with -1. The PML V should NEVER be the selected component; even when enabling fault tolerance.", priority);

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

@ -98,6 +98,7 @@ opal_shmem_base_runtime_query(mca_base_module_t **best_module,
env_hint_name = mca_base_param_environ_variable("shmem_RUNTIME_QUERY_hint",
NULL, NULL);
env_hint_val = getenv(env_hint_name);
free(env_hint_name);
/* traverse the list of available components.
* for each call their 'run-time query' functions to determine relative