1
1

Check if extra is NULL or not ...

This commit was SVN r17967.
Этот коммит содержится в:
George Bosilca 2008-03-25 22:43:46 +00:00
родитель bea5c0f734
Коммит a01f3f762c

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

@ -1231,19 +1231,22 @@ void mqs_destroy_process_info (mqs_process_info *mp_info)
mpi_process_info *p_info = (mpi_process_info *)mp_info;
mpi_process_info_extra *extra = (mpi_process_info_extra*) p_info->extra;
/* Need to handle the communicators and groups too */
communicator_t *comm = extra->communicator_list;
communicator_t *comm;
while (comm) {
communicator_t *next = comm->next;
if( NULL != comm->group )
group_decref (comm->group); /* Group is no longer referenced from here */
mqs_free (comm);
comm = next;
}
if (NULL != extra) {
mqs_free(extra);
if( NULL != extra) {
comm = extra->communicator_list;
while (comm) {
communicator_t *next = comm->next;
if( NULL != comm->group )
group_decref (comm->group); /* Group is no longer referenced from here */
mqs_free (comm);
comm = next;
}
if (NULL != extra) {
mqs_free(extra);
}
}
mqs_free (p_info);
} /* mqs_destroy_process_info */