#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <errno.h>
#include <sys/types.h>
#include <unistd.h>
#include "arith.internal.h"
#include "int64.h"

Include dependency graph for cray1_sim.c:

Classes
union	u
Defines
#define	YMP 7
#define	C90 8
#define	T3D 10
#define	T90 11
#define	T3E 12
#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_64 (UNROUNDED_TYPE(AR_Float_IEEE_NR_64))
#define	IEEE_FLOAT_128 (UNROUNDED_TYPE(AR_Float_IEEE_NR_128))
#define	IEEE_COMPLEX_64 (UNROUNDED_TYPE(AR_Complex_IEEE_NR_64))
#define	IEEE_COMPLEX_128 (UNROUNDED_TYPE(AR_Complex_IEEE_NR_128))
#define	DATA 0 /* Implicit data segment identifier */
#define	STACK 1 /* Stack segment identifier */
#define	STACK_SIZE 20480 /* # words to allocate for stack space */
#define	MAX_ARGS 8 /* Max # of arguments supported */
#define	MAX_EXT_ADDRS 16 /* Max # of EXT addresses passed */
#define	RMMASK 6 /* Masks RM[01] bits in SR0 */
#define	INTERRUPT_INV 8
#define	INTERRUPT_DIV 16
#define	INTERRUPT_OVF 32
#define	INTERRUPT_UNF 64
#define	INTERRUPT_INX 128
#define	INTERRUPT_INP 256
#define	DISASM0(fmt)
#define	DISASM1(fmt, x)
#define	DISASM2(fmt, x, y)
#define	DISASM3(fmt, x, y, z)
#define	DISASM4(fmt, x, y, z, v)
#define	DISASM5(fmt, x, y, z, v, w)
#define	DISASMB(b, c, ft)
#define	DISASMT(t, c, ft)
#define	DISASMV(v, ft)
#define	set_a_size(s)
#define	NOINTRIN 1 /* Unknown/unsupported intrinsic name */
#define	ARITHERR 2 /* Arithmetic error detected by intrinsic */
#define	EXTERROR 3 /* Unsupported external called by intrinsic */
#define	SETERRNO 4 /* Set errno = ERANGE */
#define	IFACEERR 5 /* Unsupported simulation interface */
#define	HOSTEXT 6 /* Call host system external */
#define	UNIMPL_INST 7 /* Unimplemented instruction encountered */
#define	UNIMPL_PRFX 8 /* Unimplemented prefixed instruction encountered */
#define	getp1(pc) ( (((int) code[(pc)2])<<8) \| code[(pc)2+1] )
#define	prefix_check(p) if (p) { status = UNIMPL_PRFX; break; } else
#define	LO32(i) ((int64) (((u*)&(i))->ui32.p2))
#define	HI32(i) ((int64) (((u*)&(i))->ui32.p1))
#define	CRAY_AHDR_SIZE 8 /* # words in cray a.out files */
#define	PAGESZ 256 /* # words in data space pages read in */
#define	PAGESHFT 8 /* Shift to get page # */
Typedefs
typedef unsigned long long	int64
Functions
static void	open_arith_file ()
static int64	load_pvp_word (long vaddr)
static void	store_pvp_word (long vaddr, int64 word)
static int	ar_imul64u (int64 *result, int64 opnd1, int64 opnd2)
int	ar_clear_sim_state (AR_TYPE resulttype)
int	ar_ext_address (int64 intaddr, const char extaddr, int length)
int	ar_pass_arg_address (const ar_data arg, const AR_TYPE argtype)
int	ar_pass_ext_address (int64 extdesc, const char addr, 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 *extdesc)
int	ar_get_function_value (ar_data result, AR_TYPE resulttype)
static int	call_host_external (char *func)
static int	ar_check_status (int status, AR_IEEE_64 *rr)
int	ar_sim (char *intrinsic)
Variables
static const char	USMID [] = "@(#)30/cray1_sim.c 30.0 03/18/98 12:06:00"
int	ar_mach_type = 0
int	ar_rounding_modes = 0
int	ar_underflow_modes = 0
char	AR_libmv2 []
char	AR_version []
static AR_TYPE	integer_64_s = AR_Int_64_S
static AR_TYPE	integer_64_u = AR_Int_64_U
static AR_TYPE	integer_128_s = AR_Int_128_S
static AR_TYPE	integer_128_u = AR_Int_128_U
static AR_TYPE	cray_float_64 = (AR_TYPE) CRAY_FLOAT_64
static AR_TYPE	cray_float_128 = (AR_TYPE) CRAY_FLOAT_128
static AR_TYPE	cray_complex_64 = (AR_TYPE) CRAY_COMPLEX_64
static AR_TYPE	cray_complex_128 = (AR_TYPE) CRAY_COMPLEX_128
static AR_TYPE	ieee_float_64 = (AR_TYPE) IEEE_FLOAT_64
static AR_TYPE	ieee_float_128 = (AR_TYPE) IEEE_FLOAT_128
static AR_TYPE	ieee_complex_64 = (AR_TYPE) IEEE_COMPLEX_64
static AR_TYPE	ieee_complex_128 = (AR_TYPE) IEEE_COMPLEX_128
static int	ar_sim_version = 0
static unsigned char *	code = NULL
static int64 *	stack = NULL
static int	JSZP
static int	VSZ
static int64	AMASK
static int64	ASB
static int64	A [8]
static int64	S [8]
static int64	B [64]
static int64	T [64]
static int	SR0
static int	VL
static int64	VM
static int64	VM1
static int64 *	V
static int	numargs
static int	numargwds
static int	n_external_addresses
static char *	external_address [MAX_EXT_ADDRS]
static long	external_length [MAX_EXT_ADDRS]
static int	idf_fd
static long	idf_size
static long	text_size
static long	data_size
static long	data_offset
static int	shared_text = 0
static long	data_address
static int64 **	data_page
static int	ndata_pages