modified more functions to use the OMPI_ERR_INIT_FINALIZE macro
This commit was SVN r1416.
Этот коммит содержится в:
родитель
47ec006930
Коммит
82eea0a069
@ -23,9 +23,7 @@ int MPI_Add_error_class(int *errorclass)
|
||||
int class;
|
||||
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
if ( ompi_mpi_finalized )
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_INTERN,
|
||||
"MPI_Add_error_class");
|
||||
OMPI_ERR_INIT_FINALIZE;
|
||||
}
|
||||
|
||||
class = ompi_errclass_add();
|
||||
|
@ -24,9 +24,8 @@ int MPI_Add_error_code(int errorclass, int *errorcode)
|
||||
int code;
|
||||
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
if ( ompi_mpi_finalized)
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_INTERN,
|
||||
"MPI_Add_error_code");
|
||||
OMPI_ERR_INIT_FINALIZE;
|
||||
|
||||
if ( ompi_errclass_is_invalid(errorclass) )
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG,
|
||||
"MPI_Add_error_code");
|
||||
|
@ -24,9 +24,8 @@ int MPI_Add_error_string(int errorcode, char *string)
|
||||
int rc;
|
||||
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
if ( ompi_mpi_finalized)
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_INTERN,
|
||||
"MPI_Add_error_string");
|
||||
OMPI_ERR_INIT_FINALIZE;
|
||||
|
||||
if ( ompi_mpi_errcode_is_invalid(errorcode) )
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG,
|
||||
"MPI_Add_error_string");
|
||||
|
@ -22,9 +22,8 @@ int MPI_Error_class(int errorcode, int *errorclass)
|
||||
{
|
||||
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
if ( ompi_mpi_finalized )
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_INTERN,
|
||||
"MPI_Error_class");
|
||||
OMPI_ERR_INIT_FINALIZE;
|
||||
|
||||
if ( ompi_mpi_errcode_is_invalid(errorcode))
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG,
|
||||
"MPI_Error_class");
|
||||
|
@ -23,9 +23,8 @@ int MPI_Error_string(int errorcode, char *string, int *resultlen)
|
||||
char *tmpstring;
|
||||
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
if ( ompi_mpi_finalized )
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_INTERN,
|
||||
"MPI_Error_string");
|
||||
OMPI_ERR_INIT_FINALIZE;
|
||||
|
||||
if ( ompi_mpi_errcode_is_invalid(errorcode))
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG,
|
||||
"MPI_Error_string");
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user