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

Fix CID 1117: ensure to check return values.

Просмотр исходного кода 
This commit was SVN r19583.
Этот коммит содержится в:
Jeff Squyres 2008-09-19 13:27:30 +00:00
родитель ca0a5ea60b
Коммит d0a8be6d2f
3 изменённых файлов: 18 добавлений и 3 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -10,6 +10,7 @@
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2006 Sun Microsystems, Inc. All rights reserved.
* Copyright (c) 2008 Cisco Systems, Inc. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
@ -76,6 +77,7 @@ int MPI_Type_create_f90_complex(int p, int r, MPI_Datatype *newtype)
if( *newtype != &ompi_mpi_datatype_null ) {
ompi_datatype_t* datatype;
int* a_i[2];
int rc;
key = (((uint64_t)p) << 32) | ((uint64_t)r);
if( OPAL_SUCCESS == opal_hash_table_get_value_uint64( &ompi_mpi_f90_complex_hashtable,
@ -98,7 +100,10 @@ int MPI_Type_create_f90_complex(int p, int r, MPI_Datatype *newtype)
a_i[1] = &p;
ompi_ddt_set_args( datatype, 1, a_i, 0, NULL, 0, NULL, MPI_COMBINER_F90_COMPLEX );
opal_hash_table_set_value_uint64( &ompi_mpi_f90_complex_hashtable, key, datatype );
rc = opal_hash_table_set_value_uint64( &ompi_mpi_f90_complex_hashtable, key, datatype );
if (OMPI_SUCCESS != rc) {
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, rc, FUNC_NAME);
}
*newtype = datatype;
return MPI_SUCCESS;
}

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

@ -10,6 +10,7 @@
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2006 Sun Microsystems, Inc. All rights reserved.
* Copyright (c) 2008 Cisco Systems, Inc. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
@ -77,6 +78,7 @@ int MPI_Type_create_f90_integer(int r, MPI_Datatype *newtype)
if( *newtype != &ompi_mpi_datatype_null ) {
ompi_datatype_t* datatype;
int* a_i[1];
int rc;
if( OPAL_SUCCESS == opal_hash_table_get_value_uint32( &ompi_mpi_f90_integer_hashtable,
r, (void**)newtype ) ) {
@ -97,7 +99,10 @@ int MPI_Type_create_f90_integer(int r, MPI_Datatype *newtype)
a_i[0] = &r;
ompi_ddt_set_args( datatype, 1, a_i, 0, NULL, 0, NULL, MPI_COMBINER_F90_INTEGER );
opal_hash_table_set_value_uint32( &ompi_mpi_f90_integer_hashtable, r, datatype );
rc = opal_hash_table_set_value_uint32( &ompi_mpi_f90_integer_hashtable, r, datatype );
if (OMPI_SUCCESS != rc) {
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, rc, FUNC_NAME);
}
*newtype = datatype;
return MPI_SUCCESS;
}

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

@ -10,6 +10,7 @@
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2006 Sun Microsystems, Inc. All rights reserved.
* Copyright (c) 2008 Cisco Systems, Inc. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
@ -77,6 +78,7 @@ int MPI_Type_create_f90_real(int p, int r, MPI_Datatype *newtype)
if( *newtype != &ompi_mpi_datatype_null ) {
ompi_datatype_t* datatype;
int* a_i[2];
int rc;
key = (((uint64_t)p) << 32) | ((uint64_t)r);
if( OPAL_SUCCESS == opal_hash_table_get_value_uint64( &ompi_mpi_f90_real_hashtable,
@ -99,7 +101,10 @@ int MPI_Type_create_f90_real(int p, int r, MPI_Datatype *newtype)
a_i[1] = &p;
ompi_ddt_set_args( datatype, 1, a_i, 0, NULL, 0, NULL, MPI_COMBINER_F90_REAL );
opal_hash_table_set_value_uint64( &ompi_mpi_f90_real_hashtable, key, datatype );
rc = opal_hash_table_set_value_uint64( &ompi_mpi_f90_real_hashtable, key, datatype );
if (OMPI_SUCCESS != rc) {
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, rc, FUNC_NAME);
}
*newtype = datatype;
return MPI_SUCCESS;
}