ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Add some debug

Просмотр исходного кода 
This commit was SVN r27087.
Этот коммит содержится в:
Ralph Castain 2012-08-17 02:19:26 +00:00
родитель 7642656aa7
Коммит 64cf75cec5
1 изменённых файлов: 9 добавлений и 1 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

10
orte/mca/grpcomm/pmi/grpcomm_pmi_module.c
Просмотреть файл

@ -297,6 +297,7 @@ static int pmi_get_proc_attr(const orte_process_name_t name,
rc = kvs_get(pmi_kvs_key, tmp_val, pmi_vallen_max); rc = kvs_get(pmi_kvs_key, tmp_val, pmi_vallen_max);
if (PMI_SUCCESS != rc) { if (PMI_SUCCESS != rc) {
ORTE_ERROR_LOG(ORTE_ERR_VALUE_OUT_OF_BOUNDS);
break; break;
} }
@ -315,7 +316,8 @@ static int pmi_get_proc_attr(const orte_process_name_t name,
*buffer = pmi_decode(size); *buffer = pmi_decode(size);
if (NULL == *buffer) { if (NULL == *buffer) {
return ORTE_ERR_OUT_OF_RESOURCE; ORTE_ERROR_LOG(ORTE_ERR_VALUE_OUT_OF_BOUNDS);
return ORTE_ERR_VALUE_OUT_OF_BOUNDS;
} }
break; break;
@ -460,6 +462,7 @@ static int modex(orte_grpcomm_collective_t *coll)
rc = pmi_get_proc_attr (name, ORTE_DB_RMLURI, (void **) &rml_uri, &len); rc = pmi_get_proc_attr (name, ORTE_DB_RMLURI, (void **) &rml_uri, &len);
if (ORTE_SUCCESS != rc) { if (ORTE_SUCCESS != rc) {
ORTE_ERROR_LOG(rc);
return rc; return rc;
} }
@ -476,6 +479,7 @@ static int modex(orte_grpcomm_collective_t *coll)
rc = pmi_get_proc_attr (name, ORTE_DB_HOSTNAME, (void**)&hostname, &len); rc = pmi_get_proc_attr (name, ORTE_DB_HOSTNAME, (void**)&hostname, &len);
if (ORTE_SUCCESS != rc) { if (ORTE_SUCCESS != rc) {
ORTE_ERROR_LOG(rc);
return rc; return rc;
} }
@ -552,6 +556,7 @@ static int modex(orte_grpcomm_collective_t *coll)
/* get the proc's local/node rank info */ /* get the proc's local/node rank info */
rc = pmi_get_proc_attr (name, ORTE_DB_LOCALRANK, &tmp_val, &len); rc = pmi_get_proc_attr (name, ORTE_DB_LOCALRANK, &tmp_val, &len);
if (ORTE_SUCCESS != rc) { if (ORTE_SUCCESS != rc) {
ORTE_ERROR_LOG(rc);
return rc; return rc;
} }
assert (len == sizeof (local_rank)); assert (len == sizeof (local_rank));
@ -564,6 +569,7 @@ static int modex(orte_grpcomm_collective_t *coll)
rc = pmi_get_proc_attr (name, ORTE_DB_NODERANK, &tmp_val, &len); rc = pmi_get_proc_attr (name, ORTE_DB_NODERANK, &tmp_val, &len);
if (ORTE_SUCCESS != rc) { if (ORTE_SUCCESS != rc) {
ORTE_ERROR_LOG(rc);
return rc; return rc;
} }
assert (len == sizeof (node_rank)); assert (len == sizeof (node_rank));
@ -587,6 +593,7 @@ static int modex(orte_grpcomm_collective_t *coll)
*/ */
rc = pmi_get_proc_attr (name, "OMPI_ARCH", &tmp_val, &len); rc = pmi_get_proc_attr (name, "OMPI_ARCH", &tmp_val, &len);
if (ORTE_SUCCESS != rc) { if (ORTE_SUCCESS != rc) {
ORTE_ERROR_LOG(rc);
return rc; return rc;
} }
assert (len == sizeof (uint32_t)); assert (len == sizeof (uint32_t));
@ -598,6 +605,7 @@ static int modex(orte_grpcomm_collective_t *coll)
} }
rc = pmi_get_proc_attr (name, "MPI_THREAD_LEVEL", &tmp_val, &len); rc = pmi_get_proc_attr (name, "MPI_THREAD_LEVEL", &tmp_val, &len);
if (ORTE_SUCCESS != rc) { if (ORTE_SUCCESS != rc) {
ORTE_ERROR_LOG(rc);
return rc; return rc;
} }
bo.bytes = tmp_val; bo.bytes = tmp_val;