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.
Этот коммит содержится в:
родитель
5fff87f183
Коммит
a8456b27d7
@ -167,10 +167,9 @@ static void check(char *dir, char *file, char **locations)
|
|||||||
void ompi_wait_for_debugger(void)
|
void ompi_wait_for_debugger(void)
|
||||||
{
|
{
|
||||||
int i, debugger, rc;
|
int i, debugger, rc;
|
||||||
char *a, *b, **dirs;
|
char *a, *b, **dirs, **tmp1 = NULL, **tmp2 = NULL;
|
||||||
opal_buffer_t buf;
|
opal_buffer_t buf;
|
||||||
|
|
||||||
|
|
||||||
/* See lengthy comment in orte/tools/orterun/debuggers.c about
|
/* See lengthy comment in orte/tools/orterun/debuggers.c about
|
||||||
orte_in_parallel_debugger */
|
orte_in_parallel_debugger */
|
||||||
#if ORTE_DISABLE_FULL_SUPPORT
|
#if ORTE_DISABLE_FULL_SUPPORT
|
||||||
@ -209,11 +208,18 @@ void ompi_wait_for_debugger(void)
|
|||||||
if (NULL != b) {
|
if (NULL != b) {
|
||||||
dirs = opal_argv_split(b, ':');
|
dirs = opal_argv_split(b, ':');
|
||||||
for (i = 0; dirs[i] != NULL; ++i) {
|
for (i = 0; dirs[i] != NULL; ++i) {
|
||||||
check(dirs[i], OMPI_MPIHANDLES_DLL_PREFIX, mpidbg_dll_locations);
|
check(dirs[i], OMPI_MPIHANDLES_DLL_PREFIX, tmp1);
|
||||||
check(dirs[i], OMPI_MSGQ_DLL_PREFIX, mpimsgq_dll_locations);
|
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) {
|
if (ORTE_DISABLE_FULL_SUPPORT) {
|
||||||
/* spin until debugger attaches and releases us */
|
/* spin until debugger attaches and releases us */
|
||||||
while (MPIR_debug_gate == 0) {
|
while (MPIR_debug_gate == 0) {
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user