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

Go to the source code of this file.

Defines

#define MAX_DOPE_VECTOR_WORDS   32
#define CRAY_FLOAT_64   (UNROUNDED_TYPE(AR_Float_Cray1_64))
#define CRAY_FLOAT_128   (UNROUNDED_TYPE(AR_Float_Cray1_128))
#define CRAY_COMPLEX_64   (UNROUNDED_TYPE(AR_Complex_Cray1_64))
#define CRAY_COMPLEX_128   (UNROUNDED_TYPE(AR_Complex_Cray1_128))
#define IEEE_FLOAT_32   (UNROUNDED_TYPE(AR_Float_IEEE_NR_32))
#define IEEE_FLOAT_64   (UNROUNDED_TYPE(AR_Float_IEEE_NR_64))
#define IEEE_FLOAT_128   (UNROUNDED_TYPE(AR_Float_IEEE_NR_128))
#define IEEE_COMPLEX_32   (UNROUNDED_TYPE(AR_Complex_IEEE_NR_32))
#define IEEE_COMPLEX_64   (UNROUNDED_TYPE(AR_Complex_IEEE_NR_64))
#define IEEE_COMPLEX_128   (UNROUNDED_TYPE(AR_Complex_IEEE_NR_128))
#define MODESP   000 /* Single-precision (64-bit) flag */
#define MODEDP   004 /* Double-precision (128-bit) flag */
#define MODEHP   020 /* Half-precision (32-bit) flag */
#define EX_REAL64   3 /* 64-bit real */
#define EX_REAL128   4 /* 128-bit real */
#define EX_REAL32   5 /* 32-bit real */
#define EX_ILLCHAR   -1 /* invalid character */
#define EX_EXPUFLO   -3 /* floating-point underflow */
#define EX_EXPOFLO   -4 /* floating-point overflow */
#define EX_NULLFLD   -5 /* null field (no digits) */

Functions

int ar_ext_address (AR_INT_64 *intaddr, const void *extaddr, int nwords)
int ar_pass_arg_address (const ar_data *arg, const AR_TYPE *argtype)
int ar_pass_ext_address (AR_INT_64 *intaddr, const void *extaddr, int nwords)
int ar_pass_fcd_address (const char *str, long lenstr)
int ar_pass_arg_value (const ar_data *arg, const AR_TYPE *argtype)
int ar_put_real_address (AR_INT_64 *intaddr)
int ar_get_function_value (ar_data *result, const AR_TYPE *resulttype)
int ar_sim (char *function_name)
int ar_index (ar_data *result, const AR_TYPE *resulttype, const char *str1, long len1, const char *str2, long len2, long backward)
int ar_scan (ar_data *result, const AR_TYPE *resulttype, const char *str1, long len1, const char *str2, long len2, long backward)
int ar_verify (ar_data *result, const AR_TYPE *resulttype, const char *str1, long len1, const char *str2, long len2, long 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 *size)
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_convert_str_to_float (ar_data *result, const AR_TYPE *resulttype, const char *str)
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)

Variables

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

Define Documentation

#define CRAY_COMPLEX_128   (UNROUNDED_TYPE(AR_Complex_Cray1_128))

Definition at line 48 of file simulate.c.

Referenced by ar_exp(), ar_log(), ar_power(), and ar_sqrt().

#define CRAY_COMPLEX_64   (UNROUNDED_TYPE(AR_Complex_Cray1_64))

Definition at line 47 of file simulate.c.

Referenced by ar_exp(), ar_log(), ar_power(), and ar_sqrt().

#define CRAY_FLOAT_128   (UNROUNDED_TYPE(AR_Float_Cray1_128))

Definition at line 46 of file simulate.c.

Referenced by ar_cabs(), ar_exp(), ar_log(), ar_modulo(), ar_power(), and ar_sqrt().

#define CRAY_FLOAT_64   (UNROUNDED_TYPE(AR_Float_Cray1_64))

Definition at line 45 of file simulate.c.

Referenced by ar_cabs(), ar_exp(), ar_log(), ar_modulo(), ar_power(), and ar_sqrt().

#define EX_EXPOFLO   -4 /* floating-point overflow */

Definition at line 842 of file simulate.c.

Referenced by _nicverr(), ar_convert_str_to_float(), and ar_cvt_str_to_float().

#define EX_EXPUFLO   -3 /* floating-point underflow */

Definition at line 841 of file simulate.c.

Referenced by _nicverr(), ar_convert_str_to_float(), and ar_cvt_str_to_float().

#define EX_ILLCHAR   -1 /* invalid character */

Definition at line 840 of file simulate.c.

Referenced by _nicverr().

#define EX_NULLFLD   -5 /* null field (no digits) */

Definition at line 843 of file simulate.c.

Referenced by _nicverr().

#define EX_REAL128   4 /* 128-bit real */

Definition at line 838 of file simulate.c.

Referenced by _g_number(), ar_convert_str_to_float(), and ar_cvt_str_to_float().

#define EX_REAL32   5 /* 32-bit real */

Definition at line 839 of file simulate.c.

Referenced by _g_number(), ar_convert_str_to_float(), and ar_cvt_str_to_float().

#define EX_REAL64   3 /* 64-bit real */

Definition at line 837 of file simulate.c.

Referenced by _g_number(), ar_convert_str_to_float(), and ar_cvt_str_to_float().

#define IEEE_COMPLEX_128   (UNROUNDED_TYPE(AR_Complex_IEEE_NR_128))

Definition at line 55 of file simulate.c.

Referenced by ar_exp(), ar_log(), ar_power(), and ar_sqrt().

#define IEEE_COMPLEX_32   (UNROUNDED_TYPE(AR_Complex_IEEE_NR_32))

Definition at line 53 of file simulate.c.

Referenced by ar_exp(), ar_log(), ar_power(), and ar_sqrt().

#define IEEE_COMPLEX_64   (UNROUNDED_TYPE(AR_Complex_IEEE_NR_64))

Definition at line 54 of file simulate.c.

Referenced by ar_exp(), ar_log(), ar_power(), and ar_sqrt().

#define IEEE_FLOAT_128   (UNROUNDED_TYPE(AR_Float_IEEE_NR_128))

Definition at line 52 of file simulate.c.

Referenced by ar_cabs(), ar_exp(), ar_log(), ar_modulo(), ar_power(), and ar_sqrt().

#define IEEE_FLOAT_32   (UNROUNDED_TYPE(AR_Float_IEEE_NR_32))

Definition at line 50 of file simulate.c.

Referenced by ar_cabs(), ar_convert_str_to_float(), ar_exp(), ar_log(), ar_modulo(), ar_power(), and ar_sqrt().

#define IEEE_FLOAT_64   (UNROUNDED_TYPE(AR_Float_IEEE_NR_64))

Definition at line 51 of file simulate.c.

Referenced by ar_cabs(), ar_exp(), ar_log(), ar_modulo(), ar_power(), and ar_sqrt().

#define MAX_DOPE_VECTOR_WORDS   32

Definition at line 43 of file simulate.c.

Referenced by ar_reshape(), and ar_transfer().

#define MODEDP   004 /* Double-precision (128-bit) flag */

Definition at line 832 of file simulate.c.

Referenced by _g_complx(), _g_number(), _get_value(), _ld_write(), ar_convert_str_to_float(), ar_cvt_str_to_float(), and l_write().

#define MODEHP   020 /* Half-precision (32-bit) flag */

Definition at line 833 of file simulate.c.

Referenced by _g_complx(), _g_number(), _get_value(), _ld_write(), _LU2S(), _S2UL(), _S2UO(), _S2UZ(), ar_convert_str_to_float(), and ar_cvt_str_to_float().

#define MODESP   000 /* Single-precision (64-bit) flag */

Definition at line 831 of file simulate.c.

Referenced by ar_convert_str_to_float(), and ar_cvt_str_to_float().

Function Documentation

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

Definition at line 628 of file simulate.c.

References ar_clear_sim_state(), AR_ERROR_STATUS, ar_get_function_value(), ar_pass_arg_value(), ar_sim(), AR_STAT_INVALID_TYPE, CRAY_FLOAT_128, CRAY_FLOAT_64, IEEE_FLOAT_128, IEEE_FLOAT_32, IEEE_FLOAT_64, IS_ERROR_STATUS, and UNROUNDED_TYPE.

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 847 of file simulate.c.

References ar_clear_sim_state(), AR_FLOAT_128, AR_FLOAT_64, AR_FLOAT_SIZE, ar_data::ar_i128, ar_pass_ext_address(), ar_sim(), AR_STAT_INVALID_TYPE, AR_STAT_OVERFLOW, AR_STAT_UNDEFINED, AR_STAT_UNDERFLOW, AR_STAT_ZERO, AR_status(), ar_unpack_float_str(), d, EX_EXPOFLO, EX_EXPUFLO, EX_REAL128, EX_REAL32, EX_REAL64, IEEE_FLOAT_32, IS_ERROR_STATUS, MODEDP, MODEHP, MODESP, NULL, AR_INT_64::part1, AR_INT_64::part2, AR_INT_64::part3, AR_INT_64::part4, AR_INT_128::part5, AR_INT_128::part6, AR_INT_128::part7, AR_INT_128::part8, stat, UNROUNDED_TYPE, and ZERO64.

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 988 of file simulate.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.

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 577 of file simulate.c.

References ar_clear_sim_state(), AR_ERROR_STATUS, ar_get_function_value(), ar_pass_arg_value(), ar_sim(), AR_STAT_INVALID_TYPE, CRAY_COMPLEX_128, CRAY_COMPLEX_64, CRAY_FLOAT_128, CRAY_FLOAT_64, IEEE_COMPLEX_128, IEEE_COMPLEX_32, IEEE_COMPLEX_64, IEEE_FLOAT_128, IEEE_FLOAT_32, IEEE_FLOAT_64, IS_ERROR_STATUS, and UNROUNDED_TYPE.

Here is the call graph for this function:

int ar_ext_address ( AR_INT_64 *  intaddr,
const void *  extaddr,
int  nwords 
)
int ar_get_function_value ( ar_data *  result,
const AR_TYPE *  resulttype 
)
int ar_index ( ar_data *  result,
const AR_TYPE *  resulttype,
const char *  str1,
long  len1,
const char *  str2,
long  len2,
long  backward 
)

Definition at line 78 of file simulate.c.

References ar_clear_sim_state(), AR_const_false, AR_const_true, AR_ERROR_STATUS, ar_get_function_value(), AR_Int_32_S, AR_Int_46_S, AR_Int_64_S, AR_Logical, ar_pass_arg_address(), ar_pass_fcd_address(), ar_sim(), AR_STAT_INVALID_TYPE, and IS_ERROR_STATUS.

Here is the call graph for this function:

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

Definition at line 526 of file simulate.c.

References ar_clear_sim_state(), AR_ERROR_STATUS, ar_get_function_value(), ar_pass_arg_value(), ar_sim(), AR_STAT_INVALID_TYPE, CRAY_COMPLEX_128, CRAY_COMPLEX_64, CRAY_FLOAT_128, CRAY_FLOAT_64, IEEE_COMPLEX_128, IEEE_COMPLEX_32, IEEE_COMPLEX_64, IEEE_FLOAT_128, IEEE_FLOAT_32, IEEE_FLOAT_64, IS_ERROR_STATUS, and UNROUNDED_TYPE.

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 382 of file simulate.c.

References ar_clear_sim_state(), AR_ERROR_STATUS, ar_get_function_value(), AR_Int_32_S, AR_Int_46_S, AR_Int_64_S, ar_pass_arg_address(), ar_sim(), AR_STAT_INVALID_TYPE, CRAY_FLOAT_128, CRAY_FLOAT_64, IEEE_FLOAT_128, IEEE_FLOAT_32, IEEE_FLOAT_64, IS_ERROR_STATUS, and UNROUNDED_TYPE.

Here is the call graph for this function:

int ar_pass_arg_address ( const ar_data *  arg,
const AR_TYPE *  argtype 
)

Definition at line 294 of file cray1_sim.c.

References a0, AR_CLASS, AR_CLASS_FLOAT, AR_const_false, AR_const_true, ar_data::ar_i64, AR_Int_32_S, AR_Int_46_S, AR_Int_64_S, ar_internal_error(), AR_Logical, AR_STAT_INVALID_TYPE, AR_STAT_OK, ci, CRAY_COMPLEX_128, CRAY_COMPLEX_64, CRAY_FLOAT_128, CRAY_FLOAT_64, D_complex_128, D_complex_64, D_float_128, D_float_32, D_float_64, D_roundmode, IEEE_COMPLEX_128, IEEE_COMPLEX_32, IEEE_COMPLEX_64, IEEE_FLOAT_128, IEEE_FLOAT_32, IEEE_FLOAT_64, MAX_ARGS, MPP_MAX_ARGS, MPP_STACK_SIZE, NULL, numargs, numargwds, AR_INT_64::part1, AR_INT_64::part2, AR_INT_64::part3, AR_INT_64::part4, ROUND_MODE, S, s0, STACK, stack, stack_segment_id, STACK_SIZE, store_mpp_word(), store_pvp_word(), UNROUNDED_TYPE, and ZERO64.

Referenced by ar_index(), ar_modulo(), ar_power(), ar_scan(), ar_selected_real_kind(), ar_transfer(), and ar_verify().

Here is the call graph for this function:

int ar_pass_arg_value ( const ar_data *  arg,
const AR_TYPE *  argtype 
)

Definition at line 475 of file cray1_sim.c.

References a0, AR_CLASS, AR_CLASS_FLOAT, AR_const_false, AR_const_true, ar_convert_to_float(), ar_convert_to_integral(), ar_data::ar_cplx_ieee32, ar_data::ar_i64, AR_Int_32_S, AR_Int_46_S, AR_Int_64_S, ar_internal_error(), AR_Logical, AR_STAT_INVALID_TYPE, AR_STAT_OK, AR_STAT_UNDEFINED, ci, AR_IEEE_32::coeff0, AR_IEEE_32::coeff1, CRAY_COMPLEX_128, CRAY_COMPLEX_64, CRAY_FLOAT_128, CRAY_FLOAT_64, D_complex_128, D_complex_64, D_float_128, D_float_32, D_float_64, D_roundmode, AR_IEEE_32::expo, fa0, AR_CPLX_IEEE_32::icoeff0, AR_CPLX_IEEE_32::icoeff1, IEEE_COMPLEX_128, IEEE_COMPLEX_32, IEEE_COMPLEX_64, IEEE_FLOAT_128, IEEE_FLOAT_32, ieee_float_32, IEEE_FLOAT_64, ieee_float_64, AR_CPLX_IEEE_32::iexpo, integer_64, AR_CPLX_IEEE_32::isign, MAX_ARGS, MPP_MAX_ARGS, MPP_STACK_SIZE, NULL, numargs, numargwds, AR_INT_64::part1, AR_INT_64::part2, AR_INT_64::part3, AR_INT_64::part4, AR_CPLX_IEEE_32::rcoeff0, AR_CPLX_IEEE_32::rcoeff1, AR_CPLX_IEEE_32::rexpo, ROUND_MODE, AR_CPLX_IEEE_32::rsign, S, AR_IEEE_32::sign, stack, and UNROUNDED_TYPE.

Referenced by ar_cabs(), ar_exp(), ar_log(), ar_power(), and ar_sqrt().

Here is the call graph for this function:

int ar_pass_ext_address ( AR_INT_64 *  intaddr,
const void *  extaddr,
int  nwords 
)
int ar_pass_fcd_address ( const char *  str,
long  lenstr 
)

Definition at line 427 of file cray1_sim.c.

References a0, ar_ext_address(), ar_internal_error(), ar_mach_type, AR_STAT_OK, AR_STAT_UNDEFINED, ci, IS_ERROR_STATUS, MAX_ARGS, MPP_MAX_ARGS, MPP_STACK_SIZE, NULL, numargs, numargwds, AR_INT_64::part1, AR_INT_64::part2, AR_INT_64::part3, AR_INT_64::part4, S, s0, STACK, stack_segment_id, STACK_SIZE, store_mpp_word(), store_pvp_word(), T3D, and T90.

Referenced by ar_index(), ar_scan(), and ar_verify().

Here is the call graph for this function:

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 665 of file simulate.c.

References AR_CLASS, AR_CLASS_INT, ar_clear_sim_state(), AR_convert(), AR_ERROR_STATUS, AR_FLOAT_128, AR_FLOAT_64, AR_FLOAT_COMPLEX, AR_FLOAT_IS_COMPLEX, AR_FLOAT_SIZE, ar_get_function_value(), AR_Int_32_S, AR_Int_46_S, AR_Int_64_S, ar_pass_arg_address(), ar_pass_arg_value(), ar_sim(), AR_STAT_INVALID_TYPE, CRAY_COMPLEX_128, CRAY_COMPLEX_64, CRAY_FLOAT_128, CRAY_FLOAT_64, IEEE_COMPLEX_128, IEEE_COMPLEX_32, IEEE_COMPLEX_64, IEEE_FLOAT_128, IEEE_FLOAT_32, IEEE_FLOAT_64, IS_ERROR_STATUS, and UNROUNDED_TYPE.

Here is the call graph for this function:

int ar_put_real_address ( AR_INT_64 *  intaddr)

Definition at line 537 of file cray1_sim.c.

References AR_STAT_OK, AR_STAT_UNDEFINED, external_address, n_external_addresses, AR_INT_64::part1, AR_INT_64::part2, AR_INT_64::part3, and AR_INT_64::part4.

Referenced by ar_reshape(), and ar_transfer().

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

Definition at line 201 of file simulate.c.

References ar_clear_sim_state(), ar_ext_address(), AR_Int_64_S, ar_pass_ext_address(), ar_put_real_address(), ar_sim(), AR_STAT_UNDEFINED, IS_ERROR_STATUS, MAX_DOPE_VECTOR_WORDS, NULL, and AR_INT_64::part2.

Here is the call graph for this function:

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

Definition at line 119 of file simulate.c.

References ar_clear_sim_state(), AR_const_false, AR_const_true, AR_ERROR_STATUS, ar_get_function_value(), AR_Int_32_S, AR_Int_46_S, AR_Int_64_S, AR_Logical, ar_pass_arg_address(), ar_pass_fcd_address(), ar_sim(), AR_STAT_INVALID_TYPE, and IS_ERROR_STATUS.

Here is the call graph for this function:

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 438 of file simulate.c.

References ar_clear_sim_state(), AR_ERROR_STATUS, ar_get_function_value(), AR_Int_32_S, AR_Int_46_S, AR_Int_64_S, ar_pass_arg_address(), ar_sim(), AR_STAT_INVALID_TYPE, and IS_ERROR_STATUS.

Here is the call graph for this function:

int ar_sim ( char *  function_name)

Definition at line 686 of file cray1_sim.c.

References A, ADD64, AMASK, ar_c1frecip(), ar_cfadd64(), ar_cfmul64(), ar_cfsub64(), ar_check_status(), AR_compare(), AR_Compare_EQ, AR_Compare_GT, AR_Compare_LT, AR_Compare_Unord, ar_convert_to_float(), AR_CRAY_FLOATING_POINT, AR_ERROR_STATUS, ar_ext_address(), ar_state_info::ar_float_format, AR_Float_IEEE_NR_32, AR_Float_IEEE_ZE_32, AR_IEEE_FLOATING_POINT, ar_ifadd64(), ar_ifcmp64(), ar_ifdiv64(), ar_ifix64(), ar_iflt64(), ar_ifmul64(), ar_ifsub64(), ar_imul64u(), ar_internal_error(), ar_isqrt64(), ar_mach_type, AR_RECIPROCAL_ITERATION, AR_ROUND_NEAREST, AR_ROUND_ZERO, AR_ROUNDED, ar_state_info::ar_rounding_mode, ar_sim_version, ar_sqrt(), AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_OVERFLOW, AR_STAT_UNDEFINED, AR_STAT_ZERO, ar_state_register, ar_state_info::ar_truncate_bits, AR_UNROUNDED, i64_union::ari64, ARITHERR, ASB, B, BADINSTR, call_host_external(), ci, code, COPY64, D_float_32, D_roundmode, DISASM0, DISASM1, DISASM2, DISASM3, DISASM4, DISASM5, DISASMB, DISASMT, DISASMV, errno, EXTERROR, fp, fzero, getp1, HOSTEXT, ieee_float_32, ieee_float_64, IFACEERR, Internal, INTERRUPT_DIV, INTERRUPT_INP, INTERRUPT_INV, INTERRUPT_INX, INTERRUPT_OVF, INTERRUPT_UNF, IS_ERROR_STATUS, JSZP, i64_union::l64, load_mpp_word(), load_pvp_word(), MPP_DSIB_SIZE, MPP_STACK_SIZE, name, NEG64, NOINTRIN, NOT64, numargs, numargwds, one, p1, p2, AR_INT_64::part1, AR_INT_64::part2, AR_INT_64::part3, AR_INT_64::part4, prefix_check, PRINTMSG(), ret, RMMASK, S, s0, SETERRNO, SHLEFT64, SHLEFT64N, SHRIGHT64, SHRIGHT64N, sp, SR0, STACK, stack_segment_id, STACK_SIZE, store_mpp_word(), store_pvp_word(), T, t1, T3D, T3E_DSIB_LOC, T90, UNIMPL_INST, UNIMPL_PRFX, V, v0, VL, VM, VM1, VSZ, zero, and ZERO64.

Referenced by ar_cabs(), ar_convert_str_to_float(), ar_exp(), ar_index(), ar_log(), ar_modulo(), ar_power(), ar_reshape(), ar_scan(), ar_selected_real_kind(), ar_sqrt(), ar_transfer(), and ar_verify().

Here is the call graph for this function:

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

Definition at line 475 of file simulate.c.

References ar_clear_sim_state(), AR_ERROR_STATUS, ar_get_function_value(), ar_pass_arg_value(), ar_sim(), AR_STAT_INVALID_TYPE, CRAY_COMPLEX_128, CRAY_COMPLEX_64, CRAY_FLOAT_128, CRAY_FLOAT_64, IEEE_COMPLEX_128, IEEE_COMPLEX_32, IEEE_COMPLEX_64, IEEE_FLOAT_128, IEEE_FLOAT_32, IEEE_FLOAT_64, IS_ERROR_STATUS, and UNROUNDED_TYPE.

Here is the call graph for this function:

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

Definition at line 298 of file simulate.c.

References ar_clear_sim_state(), ar_ext_address(), AR_Int_64_S, ar_pass_arg_address(), ar_pass_ext_address(), ar_put_real_address(), ar_sim(), AR_STAT_UNDEFINED, inttype, IS_ERROR_STATUS, MAX_DOPE_VECTOR_WORDS, NULL, AR_INT_64::part1, AR_INT_64::part2, AR_INT_64::part3, and AR_INT_64::part4.

Here is the call graph for this function:

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

Definition at line 160 of file simulate.c.

References ar_clear_sim_state(), AR_const_false, AR_const_true, AR_ERROR_STATUS, ar_get_function_value(), AR_Int_32_S, AR_Int_46_S, AR_Int_64_S, AR_Logical, ar_pass_arg_address(), ar_pass_fcd_address(), ar_sim(), AR_STAT_INVALID_TYPE, and IS_ERROR_STATUS.

Here is the call graph for this function:

Variable Documentation

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

Definition at line 1081 of file simulate.c.

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines