Move the registration of the MCA param mpi_param_check to a more central

place so that laminfo can see it

This commit was SVN r796.

src/mca/mpi/base/Makefile.am

@@ -11,6 +11,7 @@ headers = \
 
 libmca_mpi_base_la_SOURCES = \
         $(headers) \
+        mca_mpi_base_open.c \
         mca_mpi_init_select_modules.c \
         mca_mpi_mem.c
 

src/mca/mpi/base/base.h

@@ -21,6 +21,13 @@ typedef int (*mca_mpi_alloc_mem_fn_t)(MPI_Aint size, MPI_Info info,
 typedef int (*mca_mpi_free_mem_fn_t)(void *base);
 
 
+/*
+ * Public variables
+ */
+
+extern int mca_base_mpi_param_check_param;
+
+
 /*
  * Global functions for MPI MCA modules
  */
@@ -31,6 +38,7 @@ extern "C" {
   int mca_mpi_alloc_mem(MPI_Aint size, MPI_Info info, void *baseptr);
   int mca_mpi_free_mem(void *baseptr);
 
+  int mca_mpi_open(void);
   int mca_mpi_init_select_modules(int requested, 
                                   bool allow_multi_user_threads,
                                   bool have_hidden_threads, int *provided);

src/mca/mpi/base/mca_mpi_base_open.c

@@ -0,0 +1,30 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include <stdio.h>
+#include <string.h>
+#include <syslog.h>
+
+#include "mca/lam/base/base.h"
+#include "mca/mpi/base/base.h"
+
+
+/*
+ * Public variables
+ */
+int mca_base_mpi_param_check_param = -1;
+
+
+int mca_mpi_open(void)
+{
+  mca_base_mpi_param_check_param = 
+    mca_base_param_register_int("base", NULL, "mpi_param_check", 
+                                "mpi_param_check", 1);
+
+  /* All done */
+
+  return LAM_SUCCESS;
+}

src/mpi/runtime/lam_mpi_init.c

@@ -53,6 +53,9 @@ int lam_mpi_init(int argc, char **argv, int requested, int *provided)
     if (LAM_SUCCESS != (ret = mca_base_open())) {
         return ret;
     }
+    if (LAM_SUCCESS != (ret = mca_mpi_open())) {
+        return ret;
+    }
 
     /* Join the run-time environment */
 
@@ -106,8 +109,6 @@ int lam_mpi_init(int argc, char **argv, int requested, int *provided)
         an MCA paramter to find out if the user wants it on or off by
         default */
 
-     param = mca_base_param_register_int("base", NULL, "mpi_param_check", 
-                                         "mpi_param_check", 0);
      mca_base_param_lookup_int(param, &value);
      lam_mpi_param_check = (bool) value;
 

src/tools/laminfo/modules.cc

@@ -75,6 +75,7 @@ void laminfo::open_modules()
   // Open all modules
 
   mca_base_open();
+  mca_mpi_open();
   module_map["base"] = NULL;
 
   mca_pcm_base_open();