coll/hcoll: dtype fallback optimization

    If hcoll fails to create mpi derived type let's set zero_dte on this dtype.
    This will save cycles on subsequent collective calls with the same derived
    type since we will not try to create hcoll type again.

Signed-off-by: Valentin Petrov <[email protected]>

Author: Valentin Petrov

ompi/mca/coll/hcoll/coll_hcoll.h

@@ -56,6 +56,7 @@ typedef struct {
 } mca_coll_hcoll_dtype_t;
 OBJ_CLASS_DECLARATION(mca_coll_hcoll_dtype_t);
 
+extern mca_coll_hcoll_dtype_t zero_dte_mapping;
 struct mca_coll_hcoll_component_t {
     /** Base coll component */
     mca_coll_base_component_2_0_0_t super;

ompi/mca/coll/hcoll/coll_hcoll_dtypes.h

@@ -10,7 +10,7 @@
 #include "ompi/mca/op/op.h"
 #include "hcoll/api/hcoll_dte.h"
 extern int hcoll_type_attr_keyval;
-
+extern mca_coll_hcoll_dtype_t zero_dte_mapping;
 /*to keep this at hand: Ids of the basic opal_datatypes:
 #define OPAL_DATATYPE_INT1           4
 #define OPAL_DATATYPE_INT2           5
@@ -97,15 +97,21 @@ enum {
 
 #if HCOLL_API >= HCOLL_VERSION(3,6)
 static inline
-int hcoll_map_derived_type(ompi_datatype_t *dtype, dte_data_representation_t *new_dte)
+void hcoll_map_derived_type(ompi_datatype_t *dtype, dte_data_representation_t *new_dte)
 {
     int rc;
     if (NULL == dtype->args) {
         /* predefined type, shouldn't call this */
-        return OMPI_SUCCESS;
+        return;
     }
     rc = hcoll_create_mpi_type((void*)dtype, new_dte);
-    return rc == HCOLL_SUCCESS ? OMPI_SUCCESS : OMPI_ERROR;
+    if (rc != HCOLL_SUCCESS) {
+        /* If hcoll fails to create mpi derived type let's set zero_dte on this dtype.
+           This will save cycles on subsequent collective calls with the same derived
+           type since we will not try to create hcoll type again. */
+        ompi_attr_set_c(TYPE_ATTR, (void*)dtype, &(dtype->d_keyhash),
+                        hcoll_type_attr_keyval, &zero_dte_mapping, false);
+    }
 }
 
 static dte_data_representation_t find_derived_mapping(ompi_datatype_t *dtype){
@@ -238,6 +244,9 @@ static int hcoll_type_attr_del_fn(MPI_Datatype type, int keyval, void *attr_val,
         (mca_coll_hcoll_dtype_t*) attr_val;
 
     assert(dtype);
+    if (&zero_dte_mapping == dtype) {
+        return OMPI_SUCCESS;
+    }
     if (HCOLL_SUCCESS != (ret = hcoll_dt_destroy(dtype->type))) {
         HCOL_ERROR("failed to delete type attr: hcoll_dte_destroy returned %d",ret);
         return OMPI_ERROR;

ompi/mca/coll/hcoll/coll_hcoll_module.c

@@ -17,7 +17,7 @@
 
 int hcoll_comm_attr_keyval;
 int hcoll_type_attr_keyval;
-
+mca_coll_hcoll_dtype_t zero_dte_mapping;
 /*
  * Initial query function that is invoked during MPI_INIT, allowing
  * this module to indicate what level of thread support it provides.
@@ -333,6 +333,7 @@ mca_coll_hcoll_comm_query(struct ompi_communicator_t *comm, int *priority)
         }
 
         if (mca_coll_hcoll_component.derived_types_support_enabled) {
+            zero_dte_mapping.type = DTE_ZERO;
             copy_fn.attr_datatype_copy_fn = (MPI_Type_internal_copy_attr_function *) MPI_TYPE_NULL_COPY_FN;
             del_fn.attr_datatype_delete_fn = hcoll_type_attr_del_fn;
             err = ompi_attr_create_keyval(TYPE_ATTR, copy_fn, del_fn, &hcoll_type_attr_keyval, NULL ,0, NULL);