* a bunch of cleanups to make trivial opal programs valgrind-clean
This commit was SVN r7009.
Этот коммит содержится в:
родитель
28f716542e
Коммит
2577ab4722
@ -36,13 +36,6 @@ int opal_paffinity_base_close(void)
|
|||||||
opal_paffinity_base_components_opened_valid = false;
|
opal_paffinity_base_components_opened_valid = false;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* If a selected component is open, close it */
|
|
||||||
|
|
||||||
if (opal_paffinity_base_selected) {
|
|
||||||
opal_paffinity_base_component->paffinityc_version.mca_close_component();
|
|
||||||
opal_paffinity_base_selected = false;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* All done */
|
/* All done */
|
||||||
|
|
||||||
return OPAL_SUCCESS;
|
return OPAL_SUCCESS;
|
||||||
|
@ -112,6 +112,8 @@ opal_timer_linux_open(void)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
fclose(fp);
|
||||||
|
|
||||||
if (0 == opal_timer_linux_freq) {
|
if (0 == opal_timer_linux_freq) {
|
||||||
return OPAL_ERR_NOT_FOUND;
|
return OPAL_ERR_NOT_FOUND;
|
||||||
}
|
}
|
||||||
|
@ -27,6 +27,7 @@
|
|||||||
#include "orte/include/orte_constants.h"
|
#include "orte/include/orte_constants.h"
|
||||||
#include "opal/mca/memory/base/base.h"
|
#include "opal/mca/memory/base/base.h"
|
||||||
#include "opal/mca/timer/base/base.h"
|
#include "opal/mca/timer/base/base.h"
|
||||||
|
#include "opal/mca/paffinity/base/base.h"
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Finalize the OPAL utilities
|
* Finalize the OPAL utilities
|
||||||
@ -38,8 +39,12 @@
|
|||||||
*/
|
*/
|
||||||
int opal_finalize(void)
|
int opal_finalize(void)
|
||||||
{
|
{
|
||||||
|
/* close high resolution timers */
|
||||||
opal_timer_base_close();
|
opal_timer_base_close();
|
||||||
|
|
||||||
|
/* close the processor affinity base */
|
||||||
|
opal_paffinity_base_close();
|
||||||
|
|
||||||
/* close the memory manager components. Registered hooks can
|
/* close the memory manager components. Registered hooks can
|
||||||
still be fired any time between now and the call to
|
still be fired any time between now and the call to
|
||||||
opal_mem_free_finalize(), and callbacks from the memory manager
|
opal_mem_free_finalize(), and callbacks from the memory manager
|
||||||
@ -50,17 +55,20 @@ int opal_finalize(void)
|
|||||||
/* finalize the mca */
|
/* finalize the mca */
|
||||||
mca_base_close();
|
mca_base_close();
|
||||||
|
|
||||||
/* finalize the output system */
|
|
||||||
opal_output_finalize();
|
|
||||||
|
|
||||||
/* finalize the memory manager / tracker */
|
/* finalize the memory manager / tracker */
|
||||||
opal_mem_free_finalize();
|
opal_mem_free_finalize();
|
||||||
|
|
||||||
/* finalize the class/object system */
|
|
||||||
opal_class_finalize();
|
|
||||||
|
|
||||||
/* finalize the memory allocator */
|
/* finalize the memory allocator */
|
||||||
opal_malloc_finalize();
|
opal_malloc_finalize();
|
||||||
|
|
||||||
|
/* finalize the output system. This has to come *after* the
|
||||||
|
malloc code, as the malloc code needs to call into this, but
|
||||||
|
the malloc code turning off doesn't affect opal_output that
|
||||||
|
much */
|
||||||
|
opal_output_finalize();
|
||||||
|
|
||||||
|
/* finalize the class/object system */
|
||||||
|
opal_class_finalize();
|
||||||
|
|
||||||
return ORTE_SUCCESS;
|
return ORTE_SUCCESS;
|
||||||
}
|
}
|
||||||
|
@ -72,21 +72,23 @@ int opal_init(void)
|
|||||||
/* initialize the memory allocator */
|
/* initialize the memory allocator */
|
||||||
opal_malloc_init();
|
opal_malloc_init();
|
||||||
|
|
||||||
/* initialize the memory manager / tracker */
|
|
||||||
opal_mem_free_init();
|
|
||||||
|
|
||||||
/* initialize the output system */
|
/* initialize the output system */
|
||||||
opal_output_init();
|
opal_output_init();
|
||||||
|
|
||||||
|
/* initialize the memory manager / tracker */
|
||||||
|
opal_mem_free_init();
|
||||||
|
|
||||||
/* register handler for errnum -> string converstion */
|
/* register handler for errnum -> string converstion */
|
||||||
opal_error_register(opal_err2str);
|
opal_error_register(opal_err2str);
|
||||||
|
|
||||||
/* initialize the mca */
|
/* initialize the mca */
|
||||||
mca_base_open();
|
mca_base_open();
|
||||||
|
|
||||||
/* open the processor affinity base */
|
/* open the processor affinity base */
|
||||||
opal_paffinity_base_open();
|
opal_paffinity_base_open();
|
||||||
|
#if 0
|
||||||
opal_paffinity_base_select();
|
opal_paffinity_base_select();
|
||||||
|
#endif
|
||||||
|
|
||||||
/* open the memory manager components. Memory hooks may be
|
/* open the memory manager components. Memory hooks may be
|
||||||
triggered before this (any time after mem_free_init(),
|
triggered before this (any time after mem_free_init(),
|
||||||
|
@ -114,6 +114,11 @@ static bool syslog_opened = false;
|
|||||||
bool opal_output_init(void)
|
bool opal_output_init(void)
|
||||||
{
|
{
|
||||||
int i;
|
int i;
|
||||||
|
|
||||||
|
if (initialized) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
for (i = 0; i < OPAL_OUTPUT_MAX_STREAMS; ++i) {
|
for (i = 0; i < OPAL_OUTPUT_MAX_STREAMS; ++i) {
|
||||||
info[i].ldi_used = false;
|
info[i].ldi_used = false;
|
||||||
info[i].ldi_enabled = false;
|
info[i].ldi_enabled = false;
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user