From 929fc76cfa07a912df140719bbd4b7f8ed912ddf Mon Sep 17 00:00:00 2001
From: Ralph Castain <rhc@open-mpi.org>
Date: Fri, 6 May 2005 18:42:25 +0000
Subject: [PATCH] Add the application name to the returned values to support
 TotalView interface.

This commit was SVN r5624.
---
 src/mca/rmaps/base/rmaps_base_map.c | 4 ++++
 src/mca/rmaps/base/rmaps_base_map.h | 1 +
 2 files changed, 5 insertions(+)

diff --git a/src/mca/rmaps/base/rmaps_base_map.c b/src/mca/rmaps/base/rmaps_base_map.c
index 20ff4b4058..6be9ca11d5 100644
--- a/src/mca/rmaps/base/rmaps_base_map.c
+++ b/src/mca/rmaps/base/rmaps_base_map.c
@@ -64,6 +64,7 @@ OBJ_CLASS_INSTANCE(
 
 static void orte_rmaps_base_proc_construct(orte_rmaps_base_proc_t* proc)
 {
+    proc->app = NULL;
     proc->proc_node = NULL;
     proc->pid = 0;
     proc->local_pid = 0;
@@ -71,6 +72,7 @@ static void orte_rmaps_base_proc_construct(orte_rmaps_base_proc_t* proc)
 
 static void orte_rmaps_base_proc_destruct(orte_rmaps_base_proc_t* proc)
 {
+    if (NULL != proc->app) free(proc->app);
 }
 
 OBJ_CLASS_INSTANCE(
@@ -300,6 +302,7 @@ int orte_rmaps_base_get_map(orte_jobid_t jobid, ompi_list_t* mapping_list)
                     goto cleanup;
                 }
                 map = mapping[app_index];
+                proc->app = strdup(app_context[app_index]->app);
                 continue;
             }
             if (strcmp(keyval->key, ORTE_PROC_PID_KEY) == 0) {
@@ -467,6 +470,7 @@ int orte_rmaps_base_get_node_map(
                     goto cleanup;
                 }
                 map = mapping[app_index];
+                proc->app = strdup(app_context[app_index]->app);
                 continue;
             }
             if (strcmp(keyval->key, ORTE_PROC_PID_KEY) == 0) {
diff --git a/src/mca/rmaps/base/rmaps_base_map.h b/src/mca/rmaps/base/rmaps_base_map.h
index a1872f45e0..7eb148d458 100644
--- a/src/mca/rmaps/base/rmaps_base_map.h
+++ b/src/mca/rmaps/base/rmaps_base_map.h
@@ -69,6 +69,7 @@ OBJ_CLASS_DECLARATION(orte_rmaps_base_node_t);
 
 struct orte_rmaps_base_proc_t {
     ompi_list_item_t super;
+    char *app;          /* name of executable */
     orte_rmaps_base_node_t* proc_node;
     orte_process_name_t proc_name;
     size_t proc_rank;