1
1

modified more functions to use the OMPI_ERR_INIT_FINALIZE macro

This commit was SVN r1416.
Этот коммит содержится в:
Edgar Gabriel 2004-06-18 19:06:13 +00:00
родитель 47ec006930
Коммит 82eea0a069
5 изменённых файлов: 9 добавлений и 15 удалений

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

@ -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");