428 строки
18 KiB
C
428 строки
18 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$
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
|
|
#include <stdio.h>
|
|
#include "mpi.h"
|
|
|
|
#include "errhandler/errclass.h"
|
|
#include "ompi/include/constants.h"
|
|
|
|
/* Table holding all error codes */
|
|
ompi_pointer_array_t ompi_errclasses;
|
|
int ompi_errclass_lastused=0;
|
|
int ompi_errclass_lastpredefined=0;
|
|
|
|
ompi_errclass_t ompi_errclass_success;
|
|
ompi_errclass_t ompi_errclass_buffer;
|
|
ompi_errclass_t ompi_errclass_count;
|
|
ompi_errclass_t ompi_errclass_type;
|
|
ompi_errclass_t ompi_errclass_tag;
|
|
ompi_errclass_t ompi_errclass_comm;
|
|
ompi_errclass_t ompi_errclass_rank;
|
|
ompi_errclass_t ompi_errclass_request;
|
|
ompi_errclass_t ompi_errclass_root;
|
|
ompi_errclass_t ompi_errclass_group;
|
|
ompi_errclass_t ompi_errclass_op;
|
|
ompi_errclass_t ompi_errclass_topology;
|
|
ompi_errclass_t ompi_errclass_dims;
|
|
ompi_errclass_t ompi_errclass_arg;
|
|
ompi_errclass_t ompi_errclass_unknown;
|
|
ompi_errclass_t ompi_errclass_truncate;
|
|
ompi_errclass_t ompi_errclass_other;
|
|
ompi_errclass_t ompi_errclass_intern;
|
|
ompi_errclass_t ompi_errclass_in_status;
|
|
ompi_errclass_t ompi_errclass_pending;
|
|
|
|
ompi_errclass_t ompi_errclass_access;
|
|
ompi_errclass_t ompi_errclass_amode;
|
|
ompi_errclass_t ompi_errclass_assert;
|
|
ompi_errclass_t ompi_errclass_bad_file;
|
|
ompi_errclass_t ompi_errclass_base;
|
|
ompi_errclass_t ompi_errclass_conversion;
|
|
ompi_errclass_t ompi_errclass_disp;
|
|
ompi_errclass_t ompi_errclass_dup_datarep;
|
|
ompi_errclass_t ompi_errclass_file_exists;
|
|
ompi_errclass_t ompi_errclass_file_in_use;
|
|
ompi_errclass_t ompi_errclass_file;
|
|
ompi_errclass_t ompi_errclass_info_key;
|
|
ompi_errclass_t ompi_errclass_info_nokey;
|
|
ompi_errclass_t ompi_errclass_info_value;
|
|
ompi_errclass_t ompi_errclass_info;
|
|
ompi_errclass_t ompi_errclass_io;
|
|
ompi_errclass_t ompi_errclass_keyval;
|
|
ompi_errclass_t ompi_errclass_locktype;
|
|
ompi_errclass_t ompi_errclass_name;
|
|
ompi_errclass_t ompi_errclass_no_mem;
|
|
ompi_errclass_t ompi_errclass_not_same;
|
|
ompi_errclass_t ompi_errclass_no_space;
|
|
ompi_errclass_t ompi_errclass_no_such_file;
|
|
ompi_errclass_t ompi_errclass_port;
|
|
ompi_errclass_t ompi_errclass_quota;
|
|
ompi_errclass_t ompi_errclass_read_only;
|
|
ompi_errclass_t ompi_errclass_rma_conflict;
|
|
ompi_errclass_t ompi_errclass_rma_sync;
|
|
ompi_errclass_t ompi_errclass_service;
|
|
ompi_errclass_t ompi_errclass_size;
|
|
ompi_errclass_t ompi_errclass_spawn;
|
|
ompi_errclass_t ompi_errclass_unsupported_datarep;
|
|
ompi_errclass_t ompi_errclass_unsupported_operation;
|
|
ompi_errclass_t ompi_errclass_win;
|
|
|
|
static void ompi_errclass_construct(ompi_errclass_t* errcode);
|
|
static void ompi_errclass_destruct(ompi_errclass_t* errcode);
|
|
|
|
OBJ_CLASS_INSTANCE(ompi_errclass_t,opal_object_t,ompi_errclass_construct, ompi_errclass_destruct);
|
|
|
|
int ompi_errclass_init (void)
|
|
{
|
|
/*
|
|
* Initialize the pointer array, which will hold the references to
|
|
* the error objects
|
|
*/
|
|
OBJ_CONSTRUCT(&ompi_errclasses, ompi_pointer_array_t);
|
|
|
|
/*
|
|
* Initialize now each predefined error class and register
|
|
* it in the pointer-array.
|
|
*/
|
|
OBJ_CONSTRUCT(&ompi_errclass_success, ompi_errclass_t);
|
|
ompi_errclass_success.cls = MPI_SUCCESS;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_SUCCESS, &ompi_errclass_success);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_buffer, ompi_errclass_t);
|
|
ompi_errclass_buffer.cls = MPI_ERR_BUFFER;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_BUFFER, &ompi_errclass_buffer);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_count, ompi_errclass_t);
|
|
ompi_errclass_count.cls = MPI_ERR_COUNT;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_COUNT, &ompi_errclass_count);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_type, ompi_errclass_t);
|
|
ompi_errclass_type.cls = MPI_ERR_TYPE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_TYPE, &ompi_errclass_type);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_tag, ompi_errclass_t);
|
|
ompi_errclass_tag.cls = MPI_ERR_TAG;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_TAG, &ompi_errclass_tag);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_comm, ompi_errclass_t);
|
|
ompi_errclass_comm.cls = MPI_ERR_COMM;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_COMM, &ompi_errclass_comm);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_rank, ompi_errclass_t);
|
|
ompi_errclass_rank.cls = MPI_ERR_RANK;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_RANK, &ompi_errclass_rank);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_request, ompi_errclass_t);
|
|
ompi_errclass_request.cls = MPI_ERR_REQUEST;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_REQUEST, &ompi_errclass_request);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_root, ompi_errclass_t);
|
|
ompi_errclass_root.cls = MPI_ERR_ROOT;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_ROOT, &ompi_errclass_root);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_group, ompi_errclass_t);
|
|
ompi_errclass_group.cls = MPI_ERR_GROUP;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_GROUP, &ompi_errclass_group);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_op, ompi_errclass_t);
|
|
ompi_errclass_op.cls = MPI_ERR_OP;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_OP, &ompi_errclass_op);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_topology, ompi_errclass_t);
|
|
ompi_errclass_topology.cls = MPI_ERR_TOPOLOGY;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_TOPOLOGY, &ompi_errclass_topology);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_dims, ompi_errclass_t);
|
|
ompi_errclass_dims.cls = MPI_ERR_DIMS;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_DIMS, &ompi_errclass_dims);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_arg, ompi_errclass_t);
|
|
ompi_errclass_arg.cls = MPI_ERR_ARG;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_ARG, &ompi_errclass_arg);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_unknown, ompi_errclass_t);
|
|
ompi_errclass_unknown.cls = MPI_ERR_UNKNOWN;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_UNKNOWN, &ompi_errclass_unknown);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_truncate, ompi_errclass_t);
|
|
ompi_errclass_truncate.cls = MPI_ERR_TRUNCATE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_TRUNCATE, &ompi_errclass_truncate);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_other, ompi_errclass_t);
|
|
ompi_errclass_other.cls = MPI_ERR_OTHER;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_OTHER, &ompi_errclass_other);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_intern, ompi_errclass_t);
|
|
ompi_errclass_intern.cls = MPI_ERR_INTERN;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_INTERN, &ompi_errclass_intern);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_in_status, ompi_errclass_t);
|
|
ompi_errclass_in_status.cls = MPI_ERR_IN_STATUS;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_IN_STATUS, &ompi_errclass_in_status);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_pending, ompi_errclass_t);
|
|
ompi_errclass_pending.cls = MPI_ERR_PENDING;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_PENDING, &ompi_errclass_pending);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_access, ompi_errclass_t);
|
|
ompi_errclass_access.cls = MPI_ERR_ACCESS;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_ACCESS, &ompi_errclass_access);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_amode, ompi_errclass_t);
|
|
ompi_errclass_amode.cls = MPI_ERR_AMODE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_AMODE, &ompi_errclass_amode);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_assert, ompi_errclass_t);
|
|
ompi_errclass_assert.cls = MPI_ERR_ASSERT;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_ASSERT, &ompi_errclass_assert);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_bad_file, ompi_errclass_t);
|
|
ompi_errclass_bad_file.cls = MPI_ERR_BAD_FILE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_BAD_FILE, &ompi_errclass_bad_file);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_base, ompi_errclass_t);
|
|
ompi_errclass_base.cls = MPI_ERR_BASE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_BASE, &ompi_errclass_base);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_conversion, ompi_errclass_t);
|
|
ompi_errclass_conversion.cls = MPI_ERR_CONVERSION;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_CONVERSION, &ompi_errclass_conversion);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_disp, ompi_errclass_t);
|
|
ompi_errclass_disp.cls = MPI_ERR_DISP;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_DISP, &ompi_errclass_disp);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_dup_datarep, ompi_errclass_t);
|
|
ompi_errclass_dup_datarep.cls = MPI_ERR_DUP_DATAREP;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_DUP_DATAREP, &ompi_errclass_dup_datarep);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_file_exists, ompi_errclass_t);
|
|
ompi_errclass_file_exists.cls = MPI_ERR_FILE_EXISTS;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_FILE_EXISTS, &ompi_errclass_file_exists);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_file_in_use, ompi_errclass_t);
|
|
ompi_errclass_file_in_use.cls = MPI_ERR_FILE_IN_USE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_FILE_IN_USE, &ompi_errclass_file_in_use);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_file, ompi_errclass_t);
|
|
ompi_errclass_file.cls = MPI_ERR_FILE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_FILE, &ompi_errclass_file);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_info_key, ompi_errclass_t);
|
|
ompi_errclass_info_key.cls = MPI_ERR_INFO_KEY;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_INFO_KEY, &ompi_errclass_info_key);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_info_nokey, ompi_errclass_t);
|
|
ompi_errclass_info_nokey.cls = MPI_ERR_INFO_NOKEY;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_INFO_NOKEY, &ompi_errclass_info_nokey);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_info_value, ompi_errclass_t);
|
|
ompi_errclass_info_value.cls = MPI_ERR_INFO_VALUE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_INFO_VALUE, &ompi_errclass_info_value);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_info, ompi_errclass_t);
|
|
ompi_errclass_info.cls = MPI_ERR_INFO;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_INFO, &ompi_errclass_info);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_io, ompi_errclass_t);
|
|
ompi_errclass_io.cls = MPI_ERR_IO;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_IO, &ompi_errclass_io);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_keyval, ompi_errclass_t);
|
|
ompi_errclass_keyval.cls = MPI_ERR_KEYVAL;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_KEYVAL, &ompi_errclass_keyval);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_locktype, ompi_errclass_t);
|
|
ompi_errclass_locktype.cls = MPI_ERR_LOCKTYPE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_LOCKTYPE, &ompi_errclass_locktype);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_name, ompi_errclass_t);
|
|
ompi_errclass_name.cls = MPI_ERR_NAME;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_NAME, &ompi_errclass_name);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_no_mem, ompi_errclass_t);
|
|
ompi_errclass_no_mem.cls = MPI_ERR_NO_MEM;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_NO_MEM, &ompi_errclass_no_mem);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_not_same, ompi_errclass_t);
|
|
ompi_errclass_not_same.cls = MPI_ERR_NOT_SAME;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_NOT_SAME, &ompi_errclass_not_same);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_no_space, ompi_errclass_t);
|
|
ompi_errclass_no_space.cls = MPI_ERR_NO_SPACE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_NO_SPACE, &ompi_errclass_no_space);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_no_such_file, ompi_errclass_t);
|
|
ompi_errclass_no_such_file.cls = MPI_ERR_NO_SUCH_FILE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_NO_SUCH_FILE, &ompi_errclass_no_such_file);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_port, ompi_errclass_t);
|
|
ompi_errclass_port.cls = MPI_ERR_PORT;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_PORT, &ompi_errclass_port);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_quota, ompi_errclass_t);
|
|
ompi_errclass_quota.cls = MPI_ERR_QUOTA;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_QUOTA, &ompi_errclass_quota);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_read_only, ompi_errclass_t);
|
|
ompi_errclass_read_only.cls = MPI_ERR_READ_ONLY;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_READ_ONLY, &ompi_errclass_read_only);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_rma_conflict, ompi_errclass_t);
|
|
ompi_errclass_rma_conflict.cls = MPI_ERR_RMA_CONFLICT;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_RMA_CONFLICT, &ompi_errclass_rma_conflict);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_rma_sync, ompi_errclass_t);
|
|
ompi_errclass_rma_sync.cls = MPI_ERR_RMA_SYNC;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_RMA_SYNC, &ompi_errclass_rma_sync);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_service, ompi_errclass_t);
|
|
ompi_errclass_service.cls = MPI_ERR_SERVICE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_SERVICE, &ompi_errclass_service);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_size, ompi_errclass_t);
|
|
ompi_errclass_size.cls = MPI_ERR_SIZE;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_SIZE, &ompi_errclass_size);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_spawn, ompi_errclass_t);
|
|
ompi_errclass_spawn.cls = MPI_ERR_SPAWN;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_SPAWN, &ompi_errclass_spawn);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_unsupported_datarep, ompi_errclass_t);
|
|
ompi_errclass_unsupported_datarep.cls = MPI_ERR_UNSUPPORTED_DATAREP;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_UNSUPPORTED_DATAREP,
|
|
&ompi_errclass_unsupported_datarep);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_unsupported_operation, ompi_errclass_t);
|
|
ompi_errclass_unsupported_operation.cls = MPI_ERR_UNSUPPORTED_OPERATION;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_UNSUPPORTED_OPERATION,
|
|
&ompi_errclass_unsupported_operation);
|
|
|
|
OBJ_CONSTRUCT(&ompi_errclass_win, ompi_errclass_t);
|
|
ompi_errclass_win.cls = MPI_ERR_WIN;
|
|
ompi_pointer_array_set_item(&ompi_errclasses, MPI_ERR_WIN, &ompi_errclass_win);
|
|
|
|
ompi_errclass_lastused=MPI_ERR_WIN+1;
|
|
ompi_errclass_lastpredefined=MPI_ERR_WIN+1;
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
int ompi_errclass_finalize(void)
|
|
{
|
|
int i;
|
|
ompi_errclass_t *errc;
|
|
|
|
for (i=ompi_errclass_lastpredefined; i < ompi_errclass_lastused; i++) {
|
|
/*
|
|
* Release user defined error classes
|
|
*/
|
|
errc = (ompi_errclass_t *)ompi_pointer_array_get_item(&ompi_errclasses, i);
|
|
OBJ_RELEASE (errc);
|
|
}
|
|
|
|
OBJ_DESTRUCT(&ompi_errclass_success);
|
|
OBJ_DESTRUCT(&ompi_errclass_buffer);
|
|
OBJ_DESTRUCT(&ompi_errclass_count);
|
|
OBJ_DESTRUCT(&ompi_errclass_type);
|
|
OBJ_DESTRUCT(&ompi_errclass_tag);
|
|
OBJ_DESTRUCT(&ompi_errclass_comm);
|
|
OBJ_DESTRUCT(&ompi_errclass_rank);
|
|
OBJ_DESTRUCT(&ompi_errclass_request);
|
|
OBJ_DESTRUCT(&ompi_errclass_root);
|
|
OBJ_DESTRUCT(&ompi_errclass_group);
|
|
OBJ_DESTRUCT(&ompi_errclass_op);
|
|
OBJ_DESTRUCT(&ompi_errclass_topology);
|
|
OBJ_DESTRUCT(&ompi_errclass_dims);
|
|
OBJ_DESTRUCT(&ompi_errclass_arg);
|
|
OBJ_DESTRUCT(&ompi_errclass_unknown);
|
|
OBJ_DESTRUCT(&ompi_errclass_truncate);
|
|
OBJ_DESTRUCT(&ompi_errclass_other);
|
|
OBJ_DESTRUCT(&ompi_errclass_intern);
|
|
OBJ_DESTRUCT(&ompi_errclass_in_status);
|
|
OBJ_DESTRUCT(&ompi_errclass_pending);
|
|
OBJ_DESTRUCT(&ompi_errclass_access);
|
|
OBJ_DESTRUCT(&ompi_errclass_amode);
|
|
OBJ_DESTRUCT(&ompi_errclass_assert);
|
|
OBJ_DESTRUCT(&ompi_errclass_bad_file);
|
|
OBJ_DESTRUCT(&ompi_errclass_base);
|
|
OBJ_DESTRUCT(&ompi_errclass_conversion);
|
|
OBJ_DESTRUCT(&ompi_errclass_disp);
|
|
OBJ_DESTRUCT(&ompi_errclass_dup_datarep);
|
|
OBJ_DESTRUCT(&ompi_errclass_file_exists);
|
|
OBJ_DESTRUCT(&ompi_errclass_file_in_use);
|
|
OBJ_DESTRUCT(&ompi_errclass_file);
|
|
OBJ_DESTRUCT(&ompi_errclass_info_key);
|
|
OBJ_DESTRUCT(&ompi_errclass_info_nokey);
|
|
OBJ_DESTRUCT(&ompi_errclass_info_value);
|
|
OBJ_DESTRUCT(&ompi_errclass_info);
|
|
OBJ_DESTRUCT(&ompi_errclass_io);
|
|
OBJ_DESTRUCT(&ompi_errclass_keyval);
|
|
OBJ_DESTRUCT(&ompi_errclass_locktype);
|
|
OBJ_DESTRUCT(&ompi_errclass_name);
|
|
OBJ_DESTRUCT(&ompi_errclass_no_mem);
|
|
OBJ_DESTRUCT(&ompi_errclass_not_same);
|
|
OBJ_DESTRUCT(&ompi_errclass_no_space);
|
|
OBJ_DESTRUCT(&ompi_errclass_no_such_file);
|
|
OBJ_DESTRUCT(&ompi_errclass_port);
|
|
OBJ_DESTRUCT(&ompi_errclass_quota);
|
|
OBJ_DESTRUCT(&ompi_errclass_read_only);
|
|
OBJ_DESTRUCT(&ompi_errclass_rma_conflict);
|
|
OBJ_DESTRUCT(&ompi_errclass_rma_sync);
|
|
OBJ_DESTRUCT(&ompi_errclass_service);
|
|
OBJ_DESTRUCT(&ompi_errclass_size);
|
|
OBJ_DESTRUCT(&ompi_errclass_spawn);
|
|
OBJ_DESTRUCT(&ompi_errclass_unsupported_datarep);
|
|
OBJ_DESTRUCT(&ompi_errclass_unsupported_operation);
|
|
OBJ_DESTRUCT(&ompi_errclass_win);
|
|
|
|
OBJ_DESTRUCT(&ompi_errclasses);
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
int ompi_errclass_add(void)
|
|
{
|
|
ompi_errclass_t *newerrclass;
|
|
|
|
newerrclass = OBJ_NEW(ompi_errclass_t);
|
|
newerrclass->cls = ompi_errclass_lastused;
|
|
ompi_errclass_lastused++;
|
|
|
|
/* Now need to reset the MPI_LASTUSEDCODE attribute on
|
|
MPI_COMM_WORLD */
|
|
|
|
|
|
|
|
ompi_pointer_array_set_item(&ompi_errclasses, newerrclass->cls, newerrclass);
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
static void ompi_errclass_construct(ompi_errclass_t *errclass)
|
|
{
|
|
errclass->cls = MPI_UNDEFINED;
|
|
return;
|
|
}
|
|
|
|
static void ompi_errclass_destruct(ompi_errclass_t *errclass)
|
|
{
|
|
ompi_pointer_array_set_item(&ompi_errclasses, errclass->cls, NULL);
|
|
return;
|
|
}
|