Fixed trac #409 by adding a new MCA parameter named

btl_base_warn_component_unused.

This commit was SVN r11844.

ompi/mca/btl/base/base.h

@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2006      Sun Microsystems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -70,6 +71,7 @@ OMPI_DECLSPEC  void mca_btl_base_dump(
 OMPI_DECLSPEC extern int mca_btl_base_output;
 OMPI_DECLSPEC extern char* mca_btl_base_include;
 OMPI_DECLSPEC extern char* mca_btl_base_exclude;
+OMPI_DECLSPEC extern int mca_btl_base_warn_component_unused;
 OMPI_DECLSPEC extern opal_list_t mca_btl_base_components_opened;
 OMPI_DECLSPEC extern opal_list_t mca_btl_base_modules_initialized;
 

ompi/mca/btl/base/btl_base_error.c

@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2006      Sun Microsystems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -56,13 +57,16 @@ void mca_btl_base_error_no_nics(const char* transport,
                                 const char* nic_name)
 {
     char *procid;
-    asprintf(&procid, "[%lu,%lu,%lu]", 
-             ORTE_NAME_ARGS(orte_process_info.my_name));
+    if (mca_btl_base_warn_component_unused) {
+        /* print out no-nic warning if user told us to */
+        asprintf(&procid, "[%lu,%lu,%lu]", 
+                 ORTE_NAME_ARGS(orte_process_info.my_name));
 
-    opal_show_help("help-mpi-btl-base.txt", "btl:no-nics",
-                   true, procid, transport, orte_system_info.nodename,
-                   nic_name);
-    free(procid);
+        opal_show_help("help-mpi-btl-base.txt", "btl:no-nics",
+                       true, procid, transport, orte_system_info.nodename,
+                       nic_name);
+        free(procid);
+    }
 }
 
 

ompi/mca/btl/base/btl_base_open.c

@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2006      Sun Microsystems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -69,6 +70,7 @@ OBJ_CLASS_INSTANCE(
 int mca_btl_base_output = -1;
 char* mca_btl_base_include = NULL;
 char* mca_btl_base_exclude = NULL;
+int mca_btl_base_warn_component_unused = 1;
 opal_list_t mca_btl_base_components_opened;
 opal_list_t mca_btl_base_modules_initialized;
 
@@ -110,6 +112,9 @@ int mca_btl_base_open(void)
       mca_base_param_register_string("btl","base","include",NULL,NULL), &mca_btl_base_include);
   mca_base_param_lookup_string(
       mca_base_param_register_string("btl","base","exclude",NULL,NULL), &mca_btl_base_exclude);
+  mca_base_param_reg_int_name("btl", "base_warn_component_unused",
+      "This parameter is used to turn on warning messages when certain NICs are not used",
+      false, false, 1, &mca_btl_base_warn_component_unused);
 
   /* All done */
   return OMPI_SUCCESS;