Add pml_ob1_verbose flag. Fix the current location it is being used

This commit was SVN r22939.

ompi/mca/pml/ob1/pml_ob1.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) 2010      Oracle and/or its affiliates.  All rights reserved
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -81,6 +82,7 @@ struct mca_pml_ob1_t {
 typedef struct mca_pml_ob1_t mca_pml_ob1_t; 
 
 extern mca_pml_ob1_t mca_pml_ob1;
+extern int mca_pml_ob1_output;
 
 /*
  * PML interface functions.

ompi/mca/pml/ob1/pml_ob1_component.c

@@ -11,6 +11,7 @@
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
  * Copyright (c) 2007-2009 Cisco Systems, Inc.  All rights reserved.
+ * Copyright (c) 2010      Oracle and/or its affiliates.  All rights reserved
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -47,6 +48,7 @@ static mca_pml_base_module_t*
 mca_pml_ob1_component_init( int* priority, bool enable_progress_threads,
                             bool enable_mpi_threads );
 static int mca_pml_ob1_component_fini(void);
+int mca_pml_ob1_output = 0;
 
 mca_pml_base_component_2_0_0_t mca_pml_ob1_component = {
 
@@ -92,8 +94,13 @@ static inline int mca_pml_ob1_param_register_int(
 
 static int mca_pml_ob1_component_open(void)
 {
+    int value;
     mca_allocator_base_component_t* allocator_component;
 
+    value = mca_pml_ob1_param_register_int("verbose", 0);
+    mca_pml_ob1_output = opal_output_open(NULL);
+    opal_output_set_verbosity(mca_pml_ob1_output, value);
+
     mca_pml_ob1.free_list_num =
         mca_pml_ob1_param_register_int("free_list_num", 4);
     mca_pml_ob1.free_list_max =
@@ -162,7 +169,7 @@ mca_pml_ob1_component_init( int* priority,
                             bool enable_progress_threads,
                             bool enable_mpi_threads )
 {
-    opal_output_verbose( 10, 0, 
+    opal_output_verbose( 10, mca_pml_ob1_output, 
                          "in ob1, my priority is %d\n", mca_pml_ob1.priority);
     
     if((*priority) > mca_pml_ob1.priority) {