Allow the PVARs to be written as requested by the MPI standard.

bosilca · Sep 25, 2015 · 9e6a8e9 · 9e6a8e9
1 parent cd0ed36
commit 9e6a8e9
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/opal/mca/base/mca_base_pvar.c b/opal/mca/base/mca_base_pvar.c
@@ -707,16 +707,15 @@ int mca_base_pvar_handle_write_value (mca_base_pvar_handle_t *handle, const void
         return OPAL_ERR_PERM;
     }
 
-    /* TODO -- actually write the variable. this will likely require a pvar lock */
+    /* write the value directly from the variable. */
+    ret = handle->pvar->set_value (handle->pvar, value, handle->obj_handle);
 
     ret = mca_base_pvar_handle_update (handle);
     if (OPAL_SUCCESS != ret) {
         return ret;
     }
 
     memmove (handle->current_value, value, handle->count * var_type_sizes[handle->pvar->type]);
-    /* read the value directly from the variable. */
-    ret = handle->pvar->set_value (handle->pvar, value, handle->obj_handle);
 
     return OPAL_SUCCESS;
 }