1
1

Ensure all debugger interface symbols are present in orterun

This commit was SVN r23823.
Этот коммит содержится в:
Ralph Castain 2010-09-30 21:36:00 +00:00
родитель 9560285659
Коммит 871b685e89
2 изменённых файлов: 26 добавлений и 7 удалений

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

@ -61,7 +61,9 @@ ORTE_DECLSPEC extern volatile int MPIR_forward_output;
ORTE_DECLSPEC extern volatile int MPIR_forward_comm;
ORTE_DECLSPEC extern char MPIR_attach_fifo[MPIR_MAX_PATH_LENGTH];
ORTE_DECLSPEC void *MPIR_Breakpoint(void);
typedef void* (*orte_debugger_breakpoint_fn_t)(void);
ORTE_DECLSPEC void* MPIR_Breakpoint(void);
/* --- end MPICH/TotalView std debugger interface definitions */

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

@ -465,6 +465,7 @@ int orterun(int argc, char *argv[])
int rc;
opal_cmd_line_t cmd_line;
char * tmp_env_var = NULL;
orte_debugger_breakpoint_fn_t foo;
/* find our basename (the name of the executable) so that we can
use it in pretty-print error messages */
@ -528,13 +529,29 @@ int orterun(int argc, char *argv[])
* us
*/
MPIR_proctable = NULL;
if (0 == MPIR_being_debugged);
if (0 == MPIR_debug_state);
if (0 == MPIR_i_am_starter);
if (1 == MPIR_partial_attach_ok);
if (0 == MPIR_forward_output);
if (0 == MPIR_forward_comm);
MPIR_proctable_size = 0;
if (0 == MPIR_being_debugged) {
rc = ORTE_SUCCESS;
}
if (0 == MPIR_debug_state) {
rc = ORTE_SUCCESS;
}
if (0 == MPIR_i_am_starter) {
rc = ORTE_SUCCESS;
}
if (1 == MPIR_partial_attach_ok) {
rc = ORTE_SUCCESS;
}
memset((char*)MPIR_executable_path, 0, MPIR_MAX_PATH_LENGTH);
memset((char*)MPIR_server_arguments, 0, MPIR_MAX_ARG_LENGTH);
if (0 == MPIR_forward_output) {
rc = ORTE_SUCCESS;
}
if (0 == MPIR_forward_comm) {
rc = ORTE_SUCCESS;
}
memset((char*)MPIR_attach_fifo, 0, MPIR_MAX_PATH_LENGTH);
foo = MPIR_Breakpoint;
/* Check for some "global" command line params */
parse_globals(argc, argv, &cmd_line);