1
1

Update the code to match the latest proposal:

https://svn.mpi-forum.org/trac/mpi-forum-web/wiki/MPI3Tools/dllapi

This commit was SVN r20681.
Этот коммит содержится в:
Jeff Squyres 2009-03-02 21:29:52 +00:00
родитель 5fff87f183
Коммит a8456b27d7

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

@ -167,10 +167,9 @@ static void check(char *dir, char *file, char **locations)
void ompi_wait_for_debugger(void)
{
int i, debugger, rc;
char *a, *b, **dirs;
char *a, *b, **dirs, **tmp1 = NULL, **tmp2 = NULL;
opal_buffer_t buf;
/* See lengthy comment in orte/tools/orterun/debuggers.c about
orte_in_parallel_debugger */
#if ORTE_DISABLE_FULL_SUPPORT
@ -209,11 +208,18 @@ void ompi_wait_for_debugger(void)
if (NULL != b) {
dirs = opal_argv_split(b, ':');
for (i = 0; dirs[i] != NULL; ++i) {
check(dirs[i], OMPI_MPIHANDLES_DLL_PREFIX, mpidbg_dll_locations);
check(dirs[i], OMPI_MSGQ_DLL_PREFIX, mpimsgq_dll_locations);
check(dirs[i], OMPI_MPIHANDLES_DLL_PREFIX, tmp1);
check(dirs[i], OMPI_MSGQ_DLL_PREFIX, tmp2);
}
}
/* Now that we have a full list of directories, assign the argv
arrays to the global variables (since the debugger may read the
global variables at any time, we want to ensure that they have
non-NULL values only when the entire array is ready). */
mpimsgq_dll_locations = tmp1;
mpidbg_dll_locations = tmp2;
if (ORTE_DISABLE_FULL_SUPPORT) {
/* spin until debugger attaches and releases us */
while (MPIR_debug_gate == 0) {