1
1

A little more clean-up. TotalView now works with --enable-debug build.

Tested with:
pls = rsh
totalview.6.6.0-2
Linux cadillac82.ccstar.lanl.gov 2.4.24 #1 SMP Thu Jul 1 15:28:04 MDT
2004 i686 i686 i386 GNU/Linux

This commit was SVN r7108.
Этот коммит содержится в:
David Daniel 2005-08-31 16:15:59 +00:00
родитель 284328afe3
Коммит a5eff8fc78
5 изменённых файлов: 69 добавлений и 16 удалений

Просмотреть файл

@ -26,6 +26,7 @@ libs = \
bin_PROGRAMS = orterun
orterun_SOURCES = \
main.c \
orterun.c \
totalview.c \
totalview.h

30
orte/tools/orterun/main.c Обычный файл
Просмотреть файл

@ -0,0 +1,30 @@
/***************************************************************************
* *
* Open MPI: Open Source High Performance Computing *
* *
* http://www.open-mpi.org/ *
* *
***************************************************************************/
#include "orterun.h"
int main(int argc, char *argv[])
{
return orterun(argc, argv);
}
/*
* Copyright (c) 2004-2005 The Trustees of Indiana University.
* All rights reserved.
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
* All rights reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/

Просмотреть файл

@ -56,6 +56,7 @@
#include "runtime/runtime.h"
#include "runtime/orte_wait.h"
#include "orterun.h"
#include "totalview.h"
/*
@ -221,7 +222,7 @@ static int parse_appfile(char *filename, char ***env);
static void job_state_callback(orte_jobid_t jobid, orte_proc_state_t state);
int main(int argc, char *argv[])
int orterun(int argc, char *argv[])
{
orte_app_context_t **apps;
int rc, i, num_apps, array_size, j;

24
orte/tools/orterun/orterun.h Обычный файл
Просмотреть файл

@ -0,0 +1,24 @@
/*
* Copyright (c) 2004-2005 The Trustees of Indiana University.
* All rights reserved.
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
* All rights reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#ifndef ORTERUN_ORTERUN_H
#define ORTERUN_ORTERUN_H
#include "orte_config.h"
int orterun(int argc, char *argv[]);
#endif /* ORTERUN_ORTERUN_H */

Просмотреть файл

@ -39,13 +39,20 @@
#include <stdlib.h>
#include <strings.h>
#include "opal/util/opal_environ.h"
/*
* The environment
*/
extern char** environ;
extern char **environ;
#include "opal/util/opal_environ.h"
#include "opal/util/output.h"
#include "opal/class/opal_list.h"
#include "mca/base/base.h"
#include "mca/errmgr/errmgr.h"
#include "mca/rmgr/rmgr_types.h"
#include "mca/rmaps/base/rmaps_base_map.h"
#include "runtime/runtime.h"
#include "totalview.h"
/* +++ begin MPICH/TotalView interface definitions */
@ -71,14 +78,6 @@ void *MPIR_Breakpoint(void);
/* --- end MPICH/TotalView interface definitions */
#include "opal/util/output.h"
#include "opal/class/opal_list.h"
#include "mca/base/base.h"
#include "mca/errmgr/errmgr.h"
#include "mca/rmgr/rmgr_types.h"
#include "mca/rmaps/base/rmaps_base_map.h"
#include "runtime/runtime.h"
/*
* NOTE: The job description in the registry will likely evolve to use
* the "jobgrp_t", but this works for now.
@ -115,7 +114,7 @@ static void dump(void)
/**
* Initialization of data structures for running under a debugger
* using the MPICH/TotalView parallel debugger interface. Before the
* spawn we need to check if we have being run under a TotalView-like
* spawn we need to check if we are being run under a TotalView-like
* debugger; if so then inform applications via an MCA parameter.
*/
void orte_totalview_init_before_spawn(void)
@ -158,7 +157,7 @@ void orte_totalview_init_after_spawn(orte_jobid_t jobid)
{
opal_list_t list_of_resource_maps;
opal_list_item_t *item;
int i;
size_t i;
int rc;
if (MPIR_proctable) {
@ -238,8 +237,6 @@ void orte_totalview_init_after_spawn(orte_jobid_t jobid)
}
(void) MPIR_Breakpoint();
return ORTE_SUCCESS;
}