Skip to content

mpit: Fix MPI_T_pvar_get_index #2836

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
Feb 6, 2017
Merged

mpit: Fix MPI_T_pvar_get_index #2836

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions ompi/mpi/tool/mpit_common.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -60,6 +60,7 @@ int ompit_var_type_to_datatype (mca_base_var_type_t type, MPI_Datatype *datatype

break;
case MCA_BASE_VAR_TYPE_STRING:
case MCA_BASE_VAR_TYPE_VERSION_STRING:
*datatype = MPI_CHAR;
break;
case MCA_BASE_VAR_TYPE_BOOL:
Expand Down
17 changes: 10 additions & 7 deletions opal/mca/base/mca_base_pvar.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -179,7 +179,7 @@ int mca_base_pvar_register (const char *project, const char *framework, const ch
int bind, mca_base_pvar_flag_t flags, mca_base_get_value_fn_t get_value,
mca_base_set_value_fn_t set_value, mca_base_notify_fn_t notify, void *ctx)
{
int ret, group_index;
int ret, group_index, pvar_index;
mca_base_pvar_t *pvar;

/* assert on usage errors */
Expand Down Expand Up @@ -284,15 +284,18 @@ int mca_base_pvar_register (const char *project, const char *framework, const ch
}
}

/* add this performance variable to the MCA variable group */
ret = mca_base_var_group_add_pvar (group_index, pvar_count);
if (0 > ret) {
pvar_index = opal_pointer_array_add (&registered_pvars, pvar);
if (0 > pvar_index) {
break;
}
pvar->pvar_index = pvar_index;

ret = opal_pointer_array_add (&registered_pvars, pvar);
if (0 > ret) {
break;
/* add this performance variable to the MCA variable group */
if (0 <= group_index) {
ret = mca_base_var_group_add_pvar (group_index, pvar_index);
if (0 > ret) {
break;
}
}

opal_hash_table_set_value_ptr (&mca_base_pvar_index_hash, pvar->name, strlen (pvar->name),
Expand Down