ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность
5e6928d710
openmpi/opal/dss/dss_arith.c
Ralph Castain d70e2e8c2b Merge the ORTE devel branch into the main trunk. Details of what this means will be circulated separately. 
Remains to be tested to ensure everything came over cleanly, so please continue to withhold commits a little longer

This commit was SVN r17632.
2008-02-28 01:57:57 +00:00

667 строки
16 KiB
C
Исходник Ответственный История

/*
* Copyright (c) 2004-2007 The Trustees of Indiana University and Indiana
* University Research and Technology
* Corporation. All rights reserved.
* Copyright (c) 2004-2006 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 "opal_config.h"
#include "opal/dss/dss_internal.h"
static void opal_dss_arith_int(int *value, int *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_uint(uint *value, uint *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_size(size_t *value, size_t *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_pid(pid_t *value, pid_t *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_byte(uint8_t *value, uint8_t *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_int8(int8_t *value, int8_t *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_int16(int16_t *value, int16_t *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_uint16(uint16_t *value, uint16_t *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_int32(int32_t *value, int32_t *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_uint32(uint32_t *value, uint32_t *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_int64(int64_t *value, int64_t *operand, opal_dss_arith_op_t operation);
static void opal_dss_arith_uint64(uint64_t *value, uint64_t *operand, opal_dss_arith_op_t operation);
/* some weird ones - but somebody *might* want to do it, I suppose... */
static void opal_dss_arith_data_type(opal_data_type_t *value, opal_data_type_t *operand, opal_dss_arith_op_t operation);
int opal_dss_arith(opal_dss_value_t *value, opal_dss_value_t *operand, opal_dss_arith_op_t operation)
{
/* check for error */
if (NULL == value || NULL == operand) {
return OPAL_ERR_BAD_PARAM;
}
if (operand->type != value->type) {
return OPAL_ERR_TYPE_MISMATCH;
}
/* Lookup the arith function for this type and call it */
switch(operand->type) {
case OPAL_INT:
opal_dss_arith_int((int*)value->data, (int*)operand->data, operation);
break;
case OPAL_UINT:
opal_dss_arith_uint((uint*)value->data, (uint*)operand->data, operation);
break;
case OPAL_SIZE:
opal_dss_arith_size((size_t*)value->data, (size_t*)operand->data, operation);
break;
case OPAL_PID:
opal_dss_arith_pid((pid_t*)value->data, (pid_t*)operand->data, operation);
break;
case OPAL_BYTE:
case OPAL_UINT8:
opal_dss_arith_byte((uint8_t*)value->data, (uint8_t*)operand->data, operation);
break;
case OPAL_INT8:
opal_dss_arith_int8((int8_t*)value->data, (int8_t*)operand->data, operation);
break;
case OPAL_INT16:
opal_dss_arith_int16((int16_t*)value->data, (int16_t*)operand->data, operation);
break;
case OPAL_UINT16:
opal_dss_arith_uint16((uint16_t*)value->data, (uint16_t*)operand->data, operation);
break;
case OPAL_INT32:
opal_dss_arith_int32((int32_t*)value->data, (int32_t*)operand->data, operation);
break;
case OPAL_UINT32:
opal_dss_arith_uint32((uint32_t*)value->data, (uint32_t*)operand->data, operation);
break;
case OPAL_INT64:
opal_dss_arith_int64((int64_t*)value->data, (int64_t*)operand->data, operation);
break;
case OPAL_UINT64:
opal_dss_arith_uint64((uint64_t*)value->data, (uint64_t*)operand->data, operation);
break;
default:
return OPAL_ERR_OPERATION_UNSUPPORTED;
}
return OPAL_SUCCESS;
}
int opal_dss_increment(opal_dss_value_t *value)
{
int one;
unsigned int uone;
size_t sone;
pid_t pone;
uint8_t u8one;
int8_t i8one;
uint16_t u16one;
int16_t i16one;
uint32_t u32one;
int32_t i32one;
uint64_t u64one;
int64_t i64one;
opal_data_type_t datatypeone;
/* check for error */
if (NULL == value) {
return OPAL_ERR_BAD_PARAM;
}
/* Lookup the arith function for this type and call it */
switch(value->type) {
case OPAL_INT:
one = 1;
opal_dss_arith_int((int*)value->data, &one, OPAL_DSS_ADD);
break;
case OPAL_UINT:
uone = 1;
opal_dss_arith_uint((uint*)value->data, &uone, OPAL_DSS_ADD);
break;
case OPAL_SIZE:
sone = 1;
opal_dss_arith_size((size_t*)value->data, &sone, OPAL_DSS_ADD);
break;
case OPAL_PID:
pone = 1;
opal_dss_arith_pid((pid_t*)value->data, &pone, OPAL_DSS_ADD);
break;
case OPAL_BYTE:
case OPAL_UINT8:
u8one = 1;
opal_dss_arith_byte((uint8_t*)value->data, &u8one, OPAL_DSS_ADD);
break;
case OPAL_INT8:
i8one = 1;
opal_dss_arith_int8((int8_t*)value->data, &i8one, OPAL_DSS_ADD);
break;
case OPAL_INT16:
i16one = 1;
opal_dss_arith_int16((int16_t*)value->data, &i16one, OPAL_DSS_ADD);
break;
case OPAL_UINT16:
u16one = 1;
opal_dss_arith_uint16((uint16_t*)value->data, &u16one, OPAL_DSS_ADD);
break;
case OPAL_INT32:
i32one = 1;
opal_dss_arith_int32((int32_t*)value->data, &i32one, OPAL_DSS_ADD);
break;
case OPAL_UINT32:
u32one = 1;
opal_dss_arith_uint32((uint32_t*)value->data, &u32one, OPAL_DSS_ADD);
break;
case OPAL_INT64:
i64one = 1;
opal_dss_arith_int64((int64_t*)value->data, &i64one, OPAL_DSS_ADD);
break;
case OPAL_UINT64:
u64one = 1;
opal_dss_arith_uint64((uint64_t*)value->data, &u64one, OPAL_DSS_ADD);
break;
case OPAL_DATA_TYPE:
datatypeone = 1;
opal_dss_arith_data_type((opal_data_type_t*)value->data, &datatypeone, OPAL_DSS_ADD);
break;
default:
return OPAL_ERR_OPERATION_UNSUPPORTED;
}
return OPAL_SUCCESS;
}
int opal_dss_decrement(opal_dss_value_t *value)
{
int one;
unsigned int uone;
size_t sone;
pid_t pone;
uint8_t u8one;
int8_t i8one;
uint16_t u16one;
int16_t i16one;
uint32_t u32one;
int32_t i32one;
uint64_t u64one;
int64_t i64one;
opal_data_type_t datatypeone;
/* check for error */
if (NULL == value) {
return OPAL_ERR_BAD_PARAM;
}
/* Lookup the arith function for this type and call it */
switch(value->type) {
case OPAL_INT:
one = 1;
opal_dss_arith_int((int*)value->data, &one, OPAL_DSS_SUB);
break;
case OPAL_UINT:
uone = 1;
opal_dss_arith_uint((uint*)value->data, &uone, OPAL_DSS_SUB);
break;
case OPAL_SIZE:
sone = 1;
opal_dss_arith_size((size_t*)value->data, &sone, OPAL_DSS_SUB);
break;
case OPAL_PID:
pone = 1;
opal_dss_arith_pid((pid_t*)value->data, &pone, OPAL_DSS_SUB);
break;
case OPAL_BYTE:
case OPAL_UINT8:
u8one = 1;
opal_dss_arith_byte((uint8_t*)value->data, &u8one, OPAL_DSS_SUB);
break;
case OPAL_INT8:
i8one = 1;
opal_dss_arith_int8((int8_t*)value->data, &i8one, OPAL_DSS_SUB);
break;
case OPAL_INT16:
i16one = 1;
opal_dss_arith_int16((int16_t*)value->data, &i16one, OPAL_DSS_SUB);
break;
case OPAL_UINT16:
u16one = 1;
opal_dss_arith_uint16((uint16_t*)value->data, &u16one, OPAL_DSS_SUB);
break;
case OPAL_INT32:
i32one = 1;
opal_dss_arith_int32((int32_t*)value->data, &i32one, OPAL_DSS_SUB);
break;
case OPAL_UINT32:
u32one = 1;
opal_dss_arith_uint32((uint32_t*)value->data, &u32one, OPAL_DSS_SUB);
break;
case OPAL_INT64:
i64one = 1;
opal_dss_arith_int64((int64_t*)value->data, &i64one, OPAL_DSS_SUB);
break;
case OPAL_UINT64:
u64one = 1;
opal_dss_arith_uint64((uint64_t*)value->data, &u64one, OPAL_DSS_SUB);
break;
case OPAL_DATA_TYPE:
datatypeone = 1;
opal_dss_arith_data_type((opal_data_type_t*)value->data, &datatypeone, OPAL_DSS_SUB);
break;
default:
return OPAL_ERR_OPERATION_UNSUPPORTED;
}
return OPAL_SUCCESS;
}
/*
* NUMERIC arith FUNCTIONS
*/
static void opal_dss_arith_int(int *value, int *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_uint(uint *value, uint *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_size(size_t *value, size_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_pid(pid_t *value, pid_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_byte(uint8_t *value, uint8_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_int8(int8_t *value, int8_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_int16(int16_t *value, int16_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_uint16(uint16_t *value, uint16_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_int32(int32_t *value, int32_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_uint32(uint32_t *value, uint32_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_int64(int64_t *value, int64_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_uint64(uint64_t *value, uint64_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
static void opal_dss_arith_data_type(opal_data_type_t *value, opal_data_type_t *operand, opal_dss_arith_op_t operation)
{
switch(operation) {
case OPAL_DSS_ADD:
(*value) += *operand;
break;
case OPAL_DSS_SUB:
(*value) -= *operand;
break;
case OPAL_DSS_MUL:
(*value) *= *operand;
break;
case OPAL_DSS_DIV:
if (0 == *operand) {
return;
}
(*value) /= *operand;
break;
default:
break;
}
return;
}
Показать git blame Копировать постоянную ссылку