Add output of the compound command size to the timing reports

This commit was SVN r12423.

orte/mca/gpr/proxy/gpr_proxy.h

@@ -95,6 +95,7 @@ typedef struct {
     opal_mutex_t wait_for_compound_mutex;
     opal_condition_t compound_cmd_condition;
     int compound_cmd_waiting;
+    bool timing;
 } orte_gpr_proxy_globals_t;
 
 extern orte_gpr_proxy_globals_t orte_gpr_proxy_globals;

orte/mca/gpr/proxy/gpr_proxy_component.c

@@ -213,7 +213,7 @@ orte_gpr_proxy_component_init(bool *allow_multi_user_threads, bool *have_hidden_
                             int *priority)
 {
     orte_process_name_t name;
-    int ret;
+    int ret, value;
 
     if (orte_gpr_proxy_globals.debug) {
         opal_output(0, "gpr_proxy_init called");
@@ -280,6 +280,14 @@ orte_gpr_proxy_component_init(bool *allow_multi_user_threads, bool *have_hidden_
         }
         orte_gpr_proxy_globals.num_trigs = 0;
 
+        /* check to see if we want timing information */
+        mca_base_param_reg_int_name("orte", "timing",
+                                    "Request that critical timing loops be measured",
+                                    false, false, 0, &value);
+        if (value != 0) {
+            orte_gpr_proxy_globals.timing = true;
+        }
+
         initialized = true;
         return &orte_gpr_proxy;
     } else {

orte/mca/gpr/proxy/gpr_proxy_compound_cmd.c

@@ -114,6 +114,11 @@ int orte_gpr_proxy_exec_compound_cmd(void)
     OPAL_THREAD_LOCK(&orte_gpr_proxy_globals.wait_for_compound_mutex);
     rc = ORTE_SUCCESS;
     
+    if (orte_gpr_proxy_globals.timing) {
+        opal_output(0, "gpr_proxy [%ld]: compound cmd size %lu", (long)ORTE_PROC_MY_NAME->vpid,
+                    (unsigned long)orte_gpr_proxy_globals.compound_cmd->bytes_used);
+    }
+    
     if (0 > orte_rml.send_buffer(orte_process_info.gpr_replica, orte_gpr_proxy_globals.compound_cmd, ORTE_RML_TAG_GPR, 0)) {
         ORTE_ERROR_LOG(ORTE_ERR_COMM_FAILURE);
         rc = ORTE_ERR_COMM_FAILURE;