ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность
eed198f666
openmpi/ompi/errhandler/errclass.c
Brian Barrett 566a050c23 Next step in the project split, mainly source code re-arranging 
- move files out of toplevel include/ and etc/, moving it into the
    sub-projects
  - rather than including config headers with <project>/include, 
    have them as <project>
  - require all headers to be included with a project prefix, with
    the exception of the config headers ({opal,orte,ompi}_config.h
    mpi.h, and mpif.h)

This commit was SVN r8985.
2006-02-12 01:33:29 +00:00

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 "ompi/errhandler/errclass.h"
#include "ompi/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;
}
Показать git blame Копировать постоянную ссылку