fs/ime: fix an abstraction violation

close IME when the fs/ime component is closed,
and not in io/ompio since that would be an abstraction violation.

Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>

Author: ggouaillardet

ompi/mca/fs/ime/fs_ime.h

@@ -1,5 +1,7 @@
 /*
  * Copyright (c) 2018      DataDirect Networks. All rights reserved.
+ * Copyright (c) 2021      Research Organization for Information Science
+ *                         and Technology (RIST).  All rights reserved.
  * $COPYRIGHT$
  *
  * Additional copyrights may follow
@@ -33,7 +35,7 @@ int mca_fs_ime_component_file_unquery (ompio_file_t *file);
 int mca_fs_ime_module_init (ompio_file_t *file);
 int mca_fs_ime_module_finalize (ompio_file_t *file);
 
-int mca_fs_ime_native_fini();
+int mca_fs_ime_native_fini(void);
 
 OMPI_MODULE_DECLSPEC extern mca_fs_base_component_2_0_0_t mca_fs_ime_component;
 /*

ompi/mca/fs/ime/fs_ime_component.c

@@ -1,6 +1,8 @@
 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
 /*
  * Copyright (c) 2018      DataDirect Networks. All rights reserved.
+ * Copyright (c) 2021      Research Organization for Information Science
+ *                         and Technology (RIST).  All rights reserved.
  * $COPYRIGHT$
  *
  * Additional copyrights may follow
@@ -44,6 +46,7 @@ mca_fs_base_component_2_0_0_t mca_fs_ime_component = {
         MCA_BASE_MAKE_VERSION(component, OMPI_MAJOR_VERSION, OMPI_MINOR_VERSION,
                               OMPI_RELEASE_VERSION),
         .mca_register_component_params = register_component,
+        .mca_close_component = mca_fs_ime_native_fini,
     },
     .fsm_data = {
         /* This component is checkpointable */

ompi/mca/io/ompio/io_ompio_component.c

@@ -13,8 +13,8 @@
  * Copyright (c) 2008-2020 University of Houston. All rights reserved.
  * Copyright (c) 2015      Los Alamos National Security, LLC. All rights
  *                         reserved.
- * Copyright (c) 2015-2018 Research Organization for Information Science
- *                         and Technology (RIST). All rights reserved.
+ * Copyright (c) 2015-2019 Research Organization for Information Science
+ *                         and Technology (RIST).  All rights reserved.
  * Copyright (c) 2016-2017 IBM Corporation. All rights reserved.
  * Copyright (c) 2018      DataDirect Networks. All rights reserved.
  * $COPYRIGHT$
@@ -36,11 +36,6 @@
 #include "ompi/mca/common/ompio/common_ompio_request.h"
 #include "ompi/mca/common/ompio/common_ompio_buffer.h"
 
-#ifdef HAVE_IME_NATIVE_H
-#include "ompi/mca/fs/ime/fs_ime.h"
-#endif
-
-
 int mca_io_ompio_cycle_buffer_size = OMPIO_DEFAULT_CYCLE_BUF_SIZE;
 int mca_io_ompio_bytes_per_agg = OMPIO_PREALLOC_MAX_BUF_SIZE;
 int mca_io_ompio_num_aggregators = -1;
@@ -281,10 +276,6 @@ static int close_component(void)
     mca_common_ompio_buffer_alloc_fini();
     OBJ_DESTRUCT(&mca_io_ompio_mutex);
 
-#ifdef HAVE_IME_NATIVE_H
-    mca_fs_ime_native_fini();
-#endif
-
     return OMPI_SUCCESS;
 }