ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Apply a patch from Edgar to fix the Intercomm MTT tests.

Просмотр исходного кода 
Fixes ticket #1332

This commit was SVN r18591.
Этот коммит содержится в:
Ralph Castain 2008-06-05 12:53:12 +00:00
родитель 379e00050c
Коммит 6ddcce4085
2 изменённых файлов: 19 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

11
ompi/mpi/c/comm_accept.c
Просмотреть файл

@ -10,6 +10,8 @@
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
* Copyright (c) 2008 University of Houston, Inc. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
@ -87,7 +89,14 @@ int MPI_Comm_accept(char *port_name, MPI_Info info, int root,
*/
OPAL_CR_ENTER_LIBRARY();
rc = ompi_dpm.connect_accept (comm, root, port_name, send_first, &newcomp);
if ( rank == root ) {
rc = ompi_dpm.connect_accept (comm, root, port_name, send_first,
&newcomp);
}
else {
rc = ompi_dpm.connect_accept (comm, root, NULL, send_first,
&newcomp);
}
*newcomm = newcomp;
OMPI_ERRHANDLER_RETURN(rc, comm, rc, FUNC_NAME );

10
ompi/mpi/c/comm_connect.c
Просмотреть файл

@ -10,6 +10,7 @@
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
* Copyright (c) 2008 University of Houston. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
@ -89,7 +90,14 @@ int MPI_Comm_connect(char *port_name, MPI_Info info, int root,
OPAL_CR_ENTER_LIBRARY();
rc = ompi_dpm.connect_accept (comm, root, port_name, send_first, &newcomp);
if ( rank == root ) {
rc = ompi_dpm.connect_accept (comm, root, port_name, send_first,
&newcomp);
}
else {
rc = ompi_dpm.connect_accept (comm, root, NULL, send_first,
&newcomp);
}
*newcomm = newcomp;
OMPI_ERRHANDLER_RETURN(rc, comm, rc, FUNC_NAME);