Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
Defines | Functions | Variables
native.c File Reference
#include <stdio.h>
#include <signal.h>
#include <setjmp.h>
#include <errno.h>
#include "arith.internal.h"
#include "int64.h"
#include <math.h>
Include dependency graph for native.c:

Go to the source code of this file.

Defines

#define double_t   double
#define NAT_ROUND   AR_Float_IEEE_NR_64
#define NAT_COMPLEX   AR_Complex_IEEE_NR_64

Functions

int ar_index (ar_data *result, const AR_TYPE *resulttype, const char *str1, const char *str2, const ar_data *backward)
int ar_scan (ar_data *result, const AR_TYPE *resulttype, const char *str1, const char *str2, const ar_data *backward)
int ar_verify (ar_data *result, const AR_TYPE *resulttype, const char *str1, const char *str2, const ar_data *backward)
int ar_reshape (void *result, const void *source, const void *shape, const void *pad, const void *order)
int ar_transfer (void *result, const void *source, const void *mold, long *length)
int ar_modulo (ar_data *result, const AR_TYPE *resulttype, const ar_data *opnd1, const AR_TYPE *opnd1type, const ar_data *opnd2, const AR_TYPE *opnd2type)
int ar_selected_real_kind (ar_data *result, const AR_TYPE *resulttype, const ar_data *opnd1, const AR_TYPE *opnd1type, const ar_data *opnd2, const AR_TYPE *opnd2type)
int ar_sqrt (ar_data *result, const AR_TYPE *resulttype, const ar_data *opnd, const AR_TYPE *opndtype)
int ar_log (ar_data *result, const AR_TYPE *resulttype, const ar_data *opnd, const AR_TYPE *opndtype)
int ar_exp (ar_data *result, const AR_TYPE *resulttype, const ar_data *opnd, const AR_TYPE *opndtype)
int ar_cabs (ar_data *result, const AR_TYPE *resulttype, const ar_data *opnd, const AR_TYPE *opndtype)
int ar_power (ar_data *result, const AR_TYPE *resulttype, const ar_data *base, const AR_TYPE *basetype, const ar_data *power, const AR_TYPE *powertype)
int ar_divide_complex (ar_data *result, const AR_TYPE *resulttype, const ar_data *opnd1, const AR_TYPE *opnd1type, const ar_data *opnd2, const AR_TYPE *opnd2type)
int ar_convert_str_to_float (ar_data *result, const AR_TYPE *resulttype, const char *str)

Variables

int ar_rounding_modes = 0xf
int ar_underflow_modes = 1<<AR_UNDERFLOW_TO_DENORM
static AR_TYPE native_round_single = NAT_ROUND
static AR_TYPE native_complex = NAT_COMPLEX
static AR_TYPE native_double = AR_Float_IEEE_NR_64
static AR_TYPE native_long_double = AR_Float_IEEE_NR_64
static AR_TYPE native_dbl_complex = AR_Complex_IEEE_NR_64
static char USMID [] = "\n%Z%%M% %I% %G% %U%\n"

Define Documentation

#define double_t   double

Definition at line 1150 of file native.c.

#define NAT_COMPLEX   AR_Complex_IEEE_NR_64

Definition at line 1160 of file native.c.

#define NAT_ROUND   AR_Float_IEEE_NR_64

Definition at line 1159 of file native.c.

Function Documentation

int ar_cabs ( ar_data *  result,
const AR_TYPE *  resulttype,
const ar_data *  opnd,
const AR_TYPE *  opndtype 
)

Definition at line 1392 of file native.c.

References AR_add(), AR_convert(), ar_decompose_complex(), AR_multiply(), AR_NEGATIVE, AR_sqrt(), AR_STAT_NEGATIVE, AR_STAT_ZERO, AR_status(), AR_ZERO, and cabs().

Referenced by AR_abs(), and AR_cabs().

Here is the call graph for this function:

int ar_convert_str_to_float ( ar_data *  result,
const AR_TYPE *  resulttype,
const char *  str 
)

Definition at line 1770 of file native.c.

References ar_cvt_str_to_float().

Referenced by AR_convert_str_to_float().

Here is the call graph for this function:

int ar_divide_complex ( ar_data *  result,
const AR_TYPE *  resulttype,
const ar_data *  opnd1,
const AR_TYPE *  opnd1type,
const ar_data *  opnd2,
const AR_TYPE *  opnd2type 
)

Definition at line 1694 of file native.c.

References AR_add(), ar_compose_complex(), ar_decompose_complex(), AR_divide(), AR_multiply(), AR_STAT_NEGATIVE, AR_STAT_ZERO, AR_status(), AR_subtract(), c, and d.

Referenced by AR_divide().

Here is the call graph for this function:

int ar_exp ( ar_data *  result,
const AR_TYPE *  resulttype,
const ar_data *  opnd,
const AR_TYPE *  opndtype 
)

Definition at line 1343 of file native.c.

References AR_convert(), AR_FLOAT_COMPLEX, AR_FLOAT_IS_COMPLEX, AR_NEGATIVE, AR_STAT_INVALID_TYPE, AR_status(), and AR_ZERO.

Referenced by AR_exp().

Here is the call graph for this function:

int ar_index ( ar_data *  result,
const AR_TYPE *  resulttype,
const char *  str1,
const char *  str2,
const ar_data *  backward 
)

Definition at line 1178 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_index().

int ar_log ( ar_data *  result,
const AR_TYPE *  resulttype,
const ar_data *  opnd,
const AR_TYPE *  opndtype 
)

Definition at line 1292 of file native.c.

References AR_convert(), AR_FLOAT_COMPLEX, AR_FLOAT_IS_COMPLEX, AR_NEGATIVE, AR_STAT_INVALID_TYPE, AR_status(), and AR_ZERO.

Referenced by AR_log().

Here is the call graph for this function:

int ar_modulo ( ar_data *  result,
const AR_TYPE *  resulttype,
const ar_data *  opnd1,
const AR_TYPE *  opnd1type,
const ar_data *  opnd2,
const AR_TYPE *  opnd2type 
)

Definition at line 1222 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_Modulo().

int ar_power ( ar_data *  result,
const AR_TYPE *  resulttype,
const ar_data *  base,
const AR_TYPE *  basetype,
const ar_data *  power,
const AR_TYPE *  powertype 
)

Definition at line 1443 of file native.c.

References AR_CLASS, AR_CLASS_FLOAT, AR_CLASS_INT, AR_compare(), AR_Compare_EQ, AR_const_zero, AR_convert(), AR_divide(), AR_ERROR_STATUS, AR_FLOAT_COMPLEX, AR_FLOAT_IS_COMPLEX, ar_data::ar_i64, AR_Int_64_S, AR_INT_SIZE, AR_INT_SIZE_16, AR_INT_SIZE_32, AR_INT_SIZE_46, AR_INT_SIZE_64, AR_INT_SIZE_8, AR_multiply(), AR_negate(), AR_one(), AR_STAT_INVALID_TYPE, AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_UNDEFINED, AR_STAT_ZERO, AR_status(), INT_SIGN, inttype, IS_ERROR_STATUS, IS_INT64_ZERO, one, AR_INT_64::part4, and SHRIGHT64.

Referenced by AR_power().

Here is the call graph for this function:

int ar_reshape ( void *  result,
const void *  source,
const void *  shape,
const void *  pad,
const void *  order 
)

Definition at line 1205 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_reshape().

int ar_scan ( ar_data *  result,
const AR_TYPE *  resulttype,
const char *  str1,
const char *  str2,
const ar_data *  backward 
)

Definition at line 1187 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_scan().

int ar_selected_real_kind ( ar_data *  result,
const AR_TYPE *  resulttype,
const ar_data *  opnd1,
const AR_TYPE *  opnd1type,
const ar_data *  opnd2,
const AR_TYPE *  opnd2type 
)

Definition at line 1231 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_selected_real_kind().

int ar_sqrt ( ar_data *  result,
const AR_TYPE *  resulttype,
const ar_data *  opnd,
const AR_TYPE *  opndtype 
)

Definition at line 1240 of file native.c.

References AR_convert(), AR_FLOAT_COMPLEX, AR_FLOAT_IS_COMPLEX, AR_NEGATIVE, AR_STAT_INVALID_TYPE, AR_status(), AR_ZERO, and sqrt().

Referenced by ar_sim(), and AR_sqrt().

Here is the call graph for this function:

int ar_transfer ( void *  result,
const void *  source,
const void *  mold,
long *  length 
)

Definition at line 1214 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_transfer().

int ar_verify ( ar_data *  result,
const AR_TYPE *  resulttype,
const char *  str1,
const char *  str2,
const ar_data *  backward 
)

Definition at line 1196 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_verify().

Variable Documentation

int ar_rounding_modes = 0xf

Definition at line 50 of file native.c.

int ar_underflow_modes = 1<<AR_UNDERFLOW_TO_DENORM

Definition at line 51 of file native.c.

AR_TYPE native_complex = NAT_COMPLEX [static]

Definition at line 1170 of file native.c.

AR_TYPE native_dbl_complex = AR_Complex_IEEE_NR_64 [static]

Definition at line 1173 of file native.c.

AR_TYPE native_double = AR_Float_IEEE_NR_64 [static]

Definition at line 1171 of file native.c.

AR_TYPE native_long_double = AR_Float_IEEE_NR_64 [static]

Definition at line 1172 of file native.c.

AR_TYPE native_round_single = NAT_ROUND [static]

Definition at line 1169 of file native.c.

char USMID[] = "\n%Z%%M% %I% %G% %U%\n" [static]

Definition at line 1779 of file native.c.

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines