1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
/*
* Copyright (c) 2004-2005 The Trustees of Indiana University.
* All rights reserved.
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
* All rights reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2014 Research Organization for Information Science
* and Technology (RIST). All rights reserved.
* Copyright (c) 2018 Triad National Security, LLC. All rights
* reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "ompi_config.h"
#include "ompi/constants.h"
#include "ompi/mca/mca.h"
#include "opal/util/output.h"
#include "opal/mca/base/base.h"
#include "opal/include/opal/align.h"
#include "ompi/mca/osc/osc.h"
#include "ompi/mca/osc/base/base.h"
/*
* The following file was created by configure. It contains extern
* statements and the definition of an array of pointers to each
* component's public mca_base_component_t struct.
*/
#include "ompi/mca/osc/base/static-components.h"
void
ompi_osc_base_set_memory_alignment(struct opal_info_t *info,
size_t *memory_alignment)
{
int flag;
opal_cstring_t *align_info_str;
opal_info_get(info, "mpi_minimum_memory_alignment", &align_info_str, &flag);
if (flag) {
long long tmp_align = atoll(align_info_str->string);
OBJ_RELEASE(align_info_str);
if ((long long) OPAL_ALIGN_MIN < tmp_align) {
*memory_alignment = tmp_align;
}
}
}
static int ompi_osc_base_finalize(void)
{
opal_list_item_t* item;
/* Finalize all available modules */
while (NULL !=
(item = opal_list_remove_first(&ompi_osc_base_framework.framework_components))) {
ompi_osc_base_component_t *component = (ompi_osc_base_component_t*)
((mca_base_component_list_item_t*) item)->cli_component;
component->osc_finalize();
OBJ_RELEASE(item);
}
return OMPI_SUCCESS;
}
int
ompi_osc_base_find_available(bool enable_progress_threads,
bool enable_mpi_threads)
{
mca_base_component_list_item_t *cli, *next;
OPAL_LIST_FOREACH_SAFE(cli, next, &ompi_osc_base_framework.framework_components, mca_base_component_list_item_t) {
int ret;
ompi_osc_base_component_t *component = (ompi_osc_base_component_t*) cli->cli_component;
/* see if this component is ready to run... */
ret = component->osc_init(enable_progress_threads, enable_mpi_threads);
if (OMPI_SUCCESS != ret) {
/* not available. close the component */
opal_list_remove_item(&ompi_osc_base_framework.framework_components, &cli->super);
mca_base_component_close((mca_base_component_t *)component,
ompi_osc_base_framework.framework_output);
OBJ_RELEASE(cli);
}
}
ompi_mpi_instance_append_finalize (ompi_osc_base_finalize);
return OMPI_SUCCESS;
}
MCA_BASE_FRAMEWORK_DECLARE(ompi, osc, "One-sided communication", NULL, NULL, NULL,
mca_osc_base_static_components, 0);
|
