[mpich2-commits] r4159 - mpich2/trunk/src/pm/hydra/utils/bind
balaji at mcs.anl.gov
balaji at mcs.anl.gov
Sun Mar 22 04:37:09 CDT 2009
Author: balaji
Date: 2009-03-22 04:37:09 -0500 (Sun, 22 Mar 2009)
New Revision: 4159
Modified:
mpich2/trunk/src/pm/hydra/utils/bind/bind.c
Log:
Using PLPA_NAME instead of direct function names as recommended.
Modified: mpich2/trunk/src/pm/hydra/utils/bind/bind.c
===================================================================
--- mpich2/trunk/src/pm/hydra/utils/bind/bind.c 2009-03-22 09:31:53 UTC (rev 4158)
+++ mpich2/trunk/src/pm/hydra/utils/bind/bind.c 2009-03-22 09:37:09 UTC (rev 4159)
@@ -17,7 +17,7 @@
HYD_Status HYDU_bind_init(void)
{
- plpa_api_type_t p;
+ PLPA_NAME(api_type_t) p;
int ret, supported;
int num_procs, max_proc_id;
int num_sockets = -1, max_socket_id;
@@ -26,30 +26,31 @@
HYDU_FUNC_ENTER();
- if (!((plpa_api_probe(&p) == 0) && (p == PLPA_PROBE_OK))) {
+ if (!((PLPA_NAME(api_probe)(&p) == 0) && (p == PLPA_NAME_CAPS(PROBE_OK)))) {
/* If this failed, we just return without binding */
HYDU_Warn_printf("plpa api probe failed; not binding\n");
goto fn_exit;
}
/* We need topology information too */
- ret = plpa_have_topology_information(&supported);
+ ret = PLPA_NAME(have_topology_information)(&supported);
if ((ret == 0) && (supported == 1)) {
/* Find the maximum number of processing elements */
- ret = plpa_get_processor_data(PLPA_COUNT_ALL, &num_procs, &max_proc_id);
+ ret = PLPA_NAME(get_processor_data)(PLPA_NAME_CAPS(COUNT_ALL), &num_procs,
+ &max_proc_id);
if (ret) {
HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR,
"plpa get processor data failed\n");
}
/* PLPA only gives information about sockets and cores */
- ret = plpa_get_socket_info(&num_sockets, &max_socket_id);
+ ret = PLPA_NAME(get_socket_info)(&num_sockets, &max_socket_id);
if (ret) {
HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR,
"plpa get processor data failed\n");
}
- ret = plpa_get_core_info(0, &num_cores, &max_core_id);
+ ret = PLPA_NAME(get_core_info)(0, &num_cores, &max_core_id);
if (ret) {
HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR,
"plpa get processor data failed\n");
@@ -77,15 +78,15 @@
void HYDU_bind_process(int core)
{
int ret;
- plpa_cpu_set_t cpuset;
+ PLPA_NAME(cpu_set_t) cpuset;
HYD_Status status = HYD_SUCCESS;
HYDU_FUNC_ENTER();
if (HYDU_bind_info.supported) {
- PLPA_CPU_ZERO(&cpuset);
- PLPA_CPU_SET(core % HYDU_bind_info.num_procs, &cpuset);
- ret = plpa_sched_setaffinity(0, 1, &cpuset);
+ PLPA_NAME_CAPS(CPU_ZERO)(&cpuset);
+ PLPA_NAME_CAPS(CPU_SET)(core % HYDU_bind_info.num_procs, &cpuset);
+ ret = PLPA_NAME(sched_setaffinity)(0, 1, &cpuset);
if (ret)
HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR, "plpa setaffinity failed\n");
}
@@ -116,7 +117,7 @@
found = 0;
for (core = 0; core < HYDU_bind_info.num_cores; core++)
for (socket = 0; socket < HYDU_bind_info.num_sockets; socket++) {
- ret = plpa_map_to_processor_id(socket, core, &proc);
+ ret = PLPA_NAME(map_to_processor_id)(socket, core, &proc);
if (ret)
HYDU_ERR_SETANDJUMP2(status, HYD_INTERNAL_ERROR,
"plpa map_to_proc_id failed (%d,%d)\n",
@@ -136,7 +137,7 @@
found = 0;
for (socket = 0; socket < HYDU_bind_info.num_sockets; socket++) {
for (core = 0; core < HYDU_bind_info.num_cores; core++)
- ret = plpa_map_to_processor_id(socket, core, &proc);
+ ret = PLPA_NAME(map_to_processor_id)(socket, core, &proc);
if (ret)
HYDU_ERR_SETANDJUMP2(status, HYD_INTERNAL_ERROR,
"plpa map_to_proc_id failed (%d,%d)\n",
More information about the mpich2-commits
mailing list