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

bug fix, sorry!

Просмотр исходного кода 
This commit was SVN r1413.
Этот коммит содержится в:
Edgar Gabriel 2004-06-18 17:19:58 +00:00
родитель b9553f509f
Коммит 994c20c191
1 изменённых файлов: 4 добавлений и 4 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

8
src/communicator/comm.c
Просмотреть файл

@ -112,7 +112,7 @@ ompi_communicator_t * ompi_comm_set ( ompi_communicator_t* oldcomm,
/* Copy attributes and call according copy functions, /* Copy attributes and call according copy functions,
if required */ if required */
ompi_attr_hash_init(&newcomm->c_keyash); ompi_attr_hash_init(&newcomm->c_keyhash);
if ( attr != NULL ) { if ( attr != NULL ) {
ompi_attr_copy_all (COMM_ATTR, oldcomm, newcomm, attr, newcomm->c_keyhash); ompi_attr_copy_all (COMM_ATTR, oldcomm, newcomm, attr, newcomm->c_keyhash);
} }
@ -614,11 +614,11 @@ int ompi_comm_free ( ompi_communicator_t **comm )
{ {
/* Release attributes */ /* Release attributes */
ompi_attr_delete_all ( COMM_ATTR, comm, comm->c_keyhash ); ompi_attr_delete_all ( COMM_ATTR, comm, (*comm)->c_keyhash );
OBJ_RELEASE(comm->c_keyhash); OBJ_RELEASE((*comm)->c_keyhash);
/* Release the communicator */ /* Release the communicator */
OBJ_RELEASE ( comm ); OBJ_RELEASE ( *comm );
*comm = MPI_COMM_NULL; *comm = MPI_COMM_NULL;
return OMPI_SUCCESS; return OMPI_SUCCESS;