126a8b1e22
"this is bogus" kind of answer. Passing in bad error codes should only happen in erroneous sections of the OMPI code base, but still, it's far more social to print a message saying, "hey, you messed up!" rather than seg faulting. Reviewed by Edgar. This commit was SVN r12295.
140 строки
3.6 KiB
C
140 строки
3.6 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
* of Tennessee Research Foundation. All rights
|
|
* reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
/** @file **/
|
|
|
|
#ifndef OMPI_MPI_ERRCODE_H
|
|
#define OMPI_MPI_ERRCODE_H
|
|
|
|
#include "ompi_config.h"
|
|
|
|
#include "mpi.h"
|
|
#include "opal/class/opal_object.h"
|
|
#include "ompi/class/ompi_pointer_array.h"
|
|
|
|
#if defined(c_plusplus) || defined(__cplusplus)
|
|
extern "C" {
|
|
#endif
|
|
|
|
/**
|
|
* Back-end type for MPI error codes
|
|
*/
|
|
struct ompi_mpi_errcode_t {
|
|
opal_object_t super;
|
|
int code;
|
|
int cls;
|
|
char errstring[MPI_MAX_ERROR_STRING];
|
|
};
|
|
typedef struct ompi_mpi_errcode_t ompi_mpi_errcode_t;
|
|
|
|
OMPI_DECLSPEC extern ompi_pointer_array_t ompi_mpi_errcodes;
|
|
OMPI_DECLSPEC extern int ompi_mpi_errcode_lastused;
|
|
|
|
/**
|
|
* Check for a valid error code
|
|
*/
|
|
static inline bool ompi_mpi_errcode_is_invalid(int errcode)
|
|
{
|
|
if ( errcode >= 0 && errcode < ompi_mpi_errcode_lastused )
|
|
return 0;
|
|
else
|
|
return 1;
|
|
}
|
|
|
|
/**
|
|
* Return the error class
|
|
*/
|
|
static inline int ompi_mpi_errcode_get_class (int errcode)
|
|
{
|
|
ompi_mpi_errcode_t *err;
|
|
|
|
err = (ompi_mpi_errcode_t *)ompi_pointer_array_get_item(&ompi_mpi_errcodes, errcode);
|
|
/* If we get a bogus errcode, return MPI_ERR_UNKNOWN */
|
|
if (NULL != err) {
|
|
return err->cls;
|
|
} else {
|
|
extern ompi_mpi_errcode_t ompi_err_unknown;
|
|
return ompi_err_unknown.cls;
|
|
}
|
|
}
|
|
/**
|
|
* Return the error string
|
|
*/
|
|
static inline char* ompi_mpi_errcode_get_string (int errcode)
|
|
{
|
|
ompi_mpi_errcode_t *err;
|
|
|
|
err = (ompi_mpi_errcode_t *)ompi_pointer_array_get_item(&ompi_mpi_errcodes, errcode);
|
|
/* If we get a bogus errcode, return a string indicating that this
|
|
truly should not happen */
|
|
if (NULL != err) {
|
|
return err->errstring;
|
|
} else {
|
|
return "Unknown error (this should not happen!)";
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* Initialize the error codes
|
|
*
|
|
* @returns OMPI_SUCCESS Upon success
|
|
* @returns OMPI_ERROR Otherwise
|
|
*
|
|
* Invoked from ompi_mpi_init(); sets up all static MPI error codes,
|
|
*/
|
|
int ompi_mpi_errcode_init(void);
|
|
|
|
/**
|
|
* Finalize the error codes.
|
|
*
|
|
* @returns OMPI_SUCCESS Always
|
|
*
|
|
* Invokes from ompi_mpi_finalize(); tears down the error code array.
|
|
*/
|
|
int ompi_mpi_errcode_finalize(void);
|
|
|
|
/**
|
|
* Add an error code
|
|
*
|
|
* @param: error class to which this new error code belongs to
|
|
*
|
|
* @returns the new error code on SUCCESS (>0)
|
|
* @returns OMPI_ERROR otherwise
|
|
*
|
|
*/
|
|
int ompi_mpi_errcode_add (int errclass);
|
|
|
|
/**
|
|
* Add an error string to an error code
|
|
*
|
|
* @param: error code for which the string is defined
|
|
* @param: error string to add
|
|
* @param: length of the string
|
|
*
|
|
* @returns OMPI_SUCCESS on success
|
|
* @returns OMPI_ERROR on error
|
|
*/
|
|
int ompi_mpi_errcode_add_string (int errcode, char* string, int len);
|
|
|
|
#if defined(c_plusplus) || defined(__cplusplus)
|
|
}
|
|
#endif
|
|
|
|
|
|
#endif /* OMPI_MPI_ERRCODE_H */
|