c7282855e7
This commit fixes several aspects regarding MPI conformance of requests. * Eliminate the last argument of ompi_errhandler_request_invoke(); we ''always'' want to invoke the back-end exception handler with the real error code. * Make it clear in comments that we only invoke the ''first'' exception in a given array of requests, even if there's more than one request with a non-MPI_SUCCESS value for MPI_ERROR. * Defer the freeing of requests upon exception in the back-end functions to MPI_WAIT* and MPI_TEST* until later; the requests are kept so that we know what handler to invoke when we actually invoke the exception. After figuring that out, ''then'' we free requests with pending exceptions on them. * Clean up return codes from the back-end MPI_TEST* and MPI_WAIT* functions. * Slightly modify ompi_errcode_get_mpi_code() to return unity if it receives an MPI error code (vs. an OMPI error code). This commit was SVN r12810. The following Trac tickets were found above: Ticket 659 --> https://svn.open-mpi.org/trac/ompi/ticket/659
103 строки
2.8 KiB
C
103 строки
2.8 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_ERRCODE_INTERN_H
|
|
#define OMPI_ERRCODE_INTERN_H
|
|
|
|
#include "ompi_config.h"
|
|
|
|
#include "mpi.h"
|
|
#include "ompi/constants.h"
|
|
#include "opal/class/opal_object.h"
|
|
#include "ompi/class/ompi_pointer_array.h"
|
|
|
|
#define OMPI_MAX_ERROR_STRING 64
|
|
#if defined(c_plusplus) || defined(__cplusplus)
|
|
extern "C" {
|
|
#endif
|
|
/**
|
|
* Back-end type for MPI error codes
|
|
*/
|
|
struct ompi_errcode_intern_t {
|
|
opal_object_t super;
|
|
int code;
|
|
int mpi_code;
|
|
int index;
|
|
char errstring[OMPI_MAX_ERROR_STRING];
|
|
};
|
|
typedef struct ompi_errcode_intern_t ompi_errcode_intern_t;
|
|
|
|
OMPI_DECLSPEC extern ompi_pointer_array_t ompi_errcodes_intern;
|
|
OMPI_DECLSPEC extern int ompi_errcode_intern_lastused;
|
|
|
|
/**
|
|
* Return the MPI errcode for a given internal error code
|
|
*/
|
|
static inline int ompi_errcode_get_mpi_code(int errcode)
|
|
{
|
|
int __ret = MPI_ERR_UNKNOWN;
|
|
int __i;
|
|
ompi_errcode_intern_t *__errc;
|
|
|
|
/* If the errcode is >= 0, then it's already an MPI error code, so
|
|
just return it. */
|
|
if (errcode >= 0) {
|
|
return errcode;
|
|
}
|
|
|
|
/* Otherwise, it's an internal OMPI code and we need to translate
|
|
it */
|
|
for ( __i=0; __i<ompi_errcode_intern_lastused; __i++) {
|
|
__errc = (ompi_errcode_intern_t *)ompi_pointer_array_get_item(&ompi_errcodes_intern, __i);
|
|
if ( __errc->code == errcode ) {
|
|
__ret = __errc->mpi_code;
|
|
break;
|
|
}
|
|
}
|
|
return __ret;
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
* 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_errcode_intern_init(void);
|
|
|
|
/**
|
|
* Finalize the error codes.
|
|
*
|
|
* @returns OMPI_SUCCESS Always
|
|
*
|
|
* Invokes from ompi_mpi_finalize(); tears down the error code array.
|
|
*/
|
|
int ompi_errcode_intern_finalize(void);
|
|
|
|
#if defined(c_plusplus) || defined(__cplusplus)
|
|
}
|
|
#endif
|
|
|
|
|
|
#endif /* OMPI_ERRCODE_INTERNAL_H */
|