Allow the symbols required by TotalView to be exported even when

the visibility feature is on.

This commit was SVN r15142.

orte/tools/orterun/totalview.c

@@ -80,14 +80,14 @@ struct MPIR_PROCDESC {
     int pid;                /* process pid */
 };
 
-struct MPIR_PROCDESC *MPIR_proctable = NULL;
+ORTE_DECLSPEC struct MPIR_PROCDESC *MPIR_proctable = NULL;
-int MPIR_proctable_size = 0;
+ORTE_DECLSPEC int MPIR_proctable_size = 0;
-int MPIR_being_debugged = 0;
+ORTE_DECLSPEC int MPIR_being_debugged = 0;
-int MPIR_force_to_main = 0;
+ORTE_DECLSPEC int MPIR_force_to_main = 0;
-volatile int MPIR_debug_state = 0;
+ORTE_DECLSPEC volatile int MPIR_debug_state = 0;
-volatile int MPIR_i_am_starter = 0;
+ORTE_DECLSPEC volatile int MPIR_i_am_starter = 0;
-volatile int MPIR_debug_gate = 0;
+ORTE_DECLSPEC volatile int MPIR_debug_gate = 0;
-volatile int MPIR_acquired_pre_main = 0;
+ORTE_DECLSPEC volatile int MPIR_acquired_pre_main = 0;
 
 /* --- end MPICH/TotalView interface definitions */
 
@@ -407,12 +407,13 @@ void orte_totalview_init_after_spawn(orte_jobid_t jobid)
                 if ( 0 == strncmp(appctx->app, OPAL_PATH_SEP, 1 )) { 
                    MPIR_proctable[i].executable_name = 
                      opal_os_path( false, appctx->app, NULL ); 
-                }   
+                } else {
-                else {
                    MPIR_proctable[i].executable_name =
-                     opal_os_path( true, appctx->app, NULL ); 
+                     opal_os_path( false, appctx->cwd, appctx->app, NULL ); 
                 } 
                 MPIR_proctable[i].pid = proc->pid;
+                opal_output( 0, "PID %d app %s\n", MPIR_proctable[i].pid,
+                             MPIR_proctable[i].executable_name );
                 i++;
             }
         }