osprey/be/com/wn_fio.cxx File Reference

#include <stdint.h>
#include <values.h>
#include <isam.h>
#include "defs.h"
#include "strtab.h"
#include "stab.h"
#include "wn.h"
#include "wn_util.h"
#include "wio.h"
#include "config.h"
#include "targ_sim.h"
#include "targ_const.h"
#include "targ_const_private.h"
#include "const.h"
#include "flags.h"
#include "wn_lower.h"
#include "srcpos.h"
#include "stblock.h"
#include "be_symtab.h"
#include <wn_fio.h>
#include "opt_points_to.h"
#include "fb_whirl.h"

Include dependency graph for wn_fio.cxx:

Go to the source code of this file.

Data Types

type  impdo_info
type  marked_set
type  FIOSTRUCTID_INFO
type  FIOSTRUCT_INFO
type  alist
type  blist
type  clist
type  auxst

Defines

#define __STDC_LIMIT_MACROS
#define STACK_LENGTH   25
#define DIM_OFFSET   56
#define DIM_SZ   24
#define GLOBAL_LEVEL   1
#define HOST_LEVEL   GLOBAL_LEVEL + 1
#define INTERNAL_LEVEL   HOST_LEVEL + 1
#define NO_NESTING   0
#define NESTED_DOPE   1
#define NESTED_ITEM   2
#define FIRST_CALL(x)   (x & 2)
#define LAST_CALL(x)   (x & 1)
#define MAX_NESTED_IMPL   50
#define Impdo_index(x)   ((x)->index)
#define Impdo_next(x)   ((x)->next)
#define Marked_st(x)   ((x)->st)
#define Marked_next(x)   ((x)->next)
#define WNOPR(w)   (WN_operator(w))
#define MAX_DIM   7
#define FIM_EXIST   0
#define FIM_OPENED   2
#define FIM_NUMBER   4
#define FIM_NAMED   6
#define FIM_RECL   8
#define FIM_NEXTREC   10
#define FIM_ASSOCIATEVARIABLE   12
#define GET_RUNTIME_ST(x)
#define GEN_IO_CALL_0(bl, op, ios1, ios2)   Gen_Io_Calls (bl, op, ios1, ios2, 0, NULL, NULL, NULL, NULL);
#define GEN_IO_CALL_1(bl, op, ios1, ios2, k1)   Gen_Io_Calls (bl, op, ios1, ios2, 1, k1, NULL, NULL, NULL);
#define GEN_IO_CALL_2(bl, op, ios1, ios2, k1, k2)   Gen_Io_Calls (bl, op, ios1, ios2, 2, k1, k2, NULL, NULL);
#define GEN_IO_CALL_3(bl, op, ios1, ios2, k1, k2, k3)   Gen_Io_Calls (bl, op, ios1, ios2, 3, k1, k2, k3, NULL);
#define GEN_IO_CALL_4(bl, op, ios1, ios2, k1, k2, k3, k4)   Gen_Io_Calls (bl, op, ios1, ios2, 4, k1, k2, k3, k4);
#define Action(x)   (actions & (x))
#define WN_type_pointed(x)   TY_pointed(WN_type(x))
#define FIO_OFFSET(i)
#define FIO_TYPE(i)
#define FIO_SIZE(i)
#define Int_Type   ((Pointer_Size == 4) ? MTYPE_I4 : MTYPE_I8)
#define OPC_IntWord   ((Pointer_Size == 4) ? OPC_I4INTCONST : OPC_I8INTCONST)
#define TYUNKNOWN   0
#define TYADDR   1
#define TYBYTE   2
#define TYSHORT   3
#define TYINT   4
#define TYLONGLONG   5
#define TYREAL   6
#define TYDREAL   7
#define TYCOMPLEX   8
#define TYDCOMPLEX   9
#define TYLOGICAL1   10
#define TYLOGICAL2   11
#define TYLOGICAL4   12
#define TYLOGICAL8   13
#define TYCHAR   14
#define TYSUBR   15
#define TYSTRUCTURE   16
#define TYNML   17
#define TYQUAD   18
#define TYQUADCOMPLEX   19
#define TYQUADLONG   20
#define DVTYPE_UNUSED   0
#define DVTYPE_TYPELESS   1
#define DVTYPE_INTEGER   2
#define DVTYPE_REAL   3
#define DVTYPE_COMPLEX   4
#define DVTYPE_LOGICAL   5
#define DVTYPE_ASCII   6
#define DVTYPE_DERIVEDBYTE   7
#define DVTYPE_DERIVEDWORD   8
#define WRITE_STMT   0
#define READ_STMT   1
#define READ_WRITE_MASK   1
#define NAMELIST_MODE(x)   ((x) & NML_MASK)
#define READ_MODE(x)   ((x) & READ_WRITE_MASK)
#define WRITE_MODE(x)   (!((x) & READ_WRITE_MASK))

Typedefs

typedef struct impdo_info IMPDO_INFO
typedef struct marked_set MARKED_SET
typedef struct alist DUMMIES
typedef struct blist ITEM
typedef struct clist LIST
typedef struct auxst AUXST

Enumerations

enum  FIOOPER {
  FIOOPER_NONE = 0, FIOOPER_FIRST = 1, FIO_EXT_READ_FORMAT_start = 1, FIO_EXT_READ_UNFORMAT_start = 2,
  FIO_EXT_READ_LIST_start = 3, FIO_EXT_READ_NAMELIST_start = 4, FIO_EXT_WRITE_FORMAT_start = 5, FIO_EXT_WRITE_UNFORMAT_start = 6,
  FIO_EXT_WRITE_LIST_start = 7, FIO_EXT_WRITE_NAMELIST_start = 8, FIO_EXT_REWRITE_FORMAT_start = 9, FIO_EXT_REWRITE_UNFORMAT_start = 10,
  FIO_EXT_REWRITE_LIST_start = 11, FIO_EXT_READ_FORMAT_end = 12, FIO_EXT_READ_UNFORMAT_end = 13, FIO_EXT_READ_LIST_end = 14,
  FIO_EXT_WRITE_FORMAT_end = 15, FIO_EXT_WRITE_UNFORMAT_end = 16, FIO_EXT_WRITE_LIST_end = 17, FIO_EXT_REWRITE_FORMAT_end = 18,
  FIO_EXT_REWRITE_UNFORMAT_end = 19, FIO_EXT_REWRITE_LIST_end = 20, FIO_INT_READ_FORMAT_start = 21, FIO_INT_READ_LIST_start = 22,
  FIO_INT_WRITE_FORMAT_start = 23, FIO_INT_WRITE_LIST_start = 24, FIO_INT_READ_FORMAT_end = 25, FIO_INT_READ_LIST_end = 26,
  FIO_INT_WRITE_FORMAT_end = 27, FIO_INT_WRITE_LIST_end = 28, FIO_DIR_READ_FORMAT_start = 29, FIO_DIR_READ_UNFORMAT_start = 30,
  FIO_DIR_WRITE_FORMAT_start = 31, FIO_DIR_WRITE_UNFORMAT_start = 32, FIO_DIR_READ_FORMAT_end = 33, FIO_DIR_READ_UNFORMAT_end = 34,
  FIO_DIR_WRITE_FORMAT_end = 35, FIO_DIR_WRITE_UNFORMAT_end = 36, FIO_FORMAT_ADDR4_item = 37, FIO_FORMAT_ADDR8_item = 38,
  FIO_FORMAT_CHAR_item = 39, FIO_FORMAT_I1_item = 40, FIO_FORMAT_I2_item = 41, FIO_FORMAT_I4_item = 42,
  FIO_FORMAT_I8_item = 43, FIO_FORMAT_L1_item = 44, FIO_FORMAT_L2_item = 45, FIO_FORMAT_L4_item = 46,
  FIO_FORMAT_L8_item = 47, FIO_FORMAT_R4_item = 48, FIO_FORMAT_R8_item = 49, FIO_FORMAT_R16_item = 50,
  FIO_FORMAT_C4_item = 51, FIO_FORMAT_C8_item = 52, FIO_FORMAT_C16_item = 53, FIO_FORMAT_ADDR4_value = 54,
  FIO_FORMAT_ADDR8_value = 55, FIO_FORMAT_CHAR_value = 56, FIO_FORMAT_I1_value = 57, FIO_FORMAT_I2_value = 58,
  FIO_FORMAT_I4_value = 59, FIO_FORMAT_I8_value = 60, FIO_FORMAT_L1_value = 61, FIO_FORMAT_L2_value = 62,
  FIO_FORMAT_L4_value = 63, FIO_FORMAT_L8_value = 64, FIO_FORMAT_R4_value = 65, FIO_FORMAT_R8_value = 66,
  FIO_FORMAT_R16_value = 67, FIO_FORMAT_C4_value = 68, FIO_FORMAT_C8_value = 69, FIO_FORMAT_C16_value = 70,
  FIO_UNFORMAT_ADDR4_item = 71, FIO_UNFORMAT_ADDR8_item = 72, FIO_UNFORMAT_CHAR_item = 73, FIO_UNFORMAT_I1_item = 74,
  FIO_UNFORMAT_I2_item = 75, FIO_UNFORMAT_I4_item = 76, FIO_UNFORMAT_I8_item = 77, FIO_UNFORMAT_L1_item = 78,
  FIO_UNFORMAT_L2_item = 79, FIO_UNFORMAT_L4_item = 80, FIO_UNFORMAT_L8_item = 81, FIO_UNFORMAT_R4_item = 82,
  FIO_UNFORMAT_R8_item = 83, FIO_UNFORMAT_R16_item = 84, FIO_UNFORMAT_C4_item = 85, FIO_UNFORMAT_C8_item = 86,
  FIO_UNFORMAT_C16_item = 87, FIO_UNFORMAT_ADDR4_value = 88, FIO_UNFORMAT_ADDR8_value = 89, FIO_UNFORMAT_CHAR_value = 90,
  FIO_UNFORMAT_I1_value = 91, FIO_UNFORMAT_I2_value = 92, FIO_UNFORMAT_I4_value = 93, FIO_UNFORMAT_I8_value = 94,
  FIO_UNFORMAT_L1_value = 95, FIO_UNFORMAT_L2_value = 96, FIO_UNFORMAT_L4_value = 97, FIO_UNFORMAT_L8_value = 98,
  FIO_UNFORMAT_R4_value = 99, FIO_UNFORMAT_R8_value = 100, FIO_UNFORMAT_R16_value = 101, FIO_UNFORMAT_C4_value = 102,
  FIO_UNFORMAT_C8_value = 103, FIO_UNFORMAT_C16_value = 104, FIO_LIST_ADDR4_item = 105, FIO_LIST_ADDR8_item = 106,
  FIO_LIST_CHAR_item = 107, FIO_LIST_I1_item = 108, FIO_LIST_I2_item = 109, FIO_LIST_I4_item = 110,
  FIO_LIST_I8_item = 111, FIO_LIST_L1_item = 112, FIO_LIST_L2_item = 113, FIO_LIST_L4_item = 114,
  FIO_LIST_L8_item = 115, FIO_LIST_R4_item = 116, FIO_LIST_R8_item = 117, FIO_LIST_R16_item = 118,
  FIO_LIST_C4_item = 119, FIO_LIST_C8_item = 120, FIO_LIST_C16_item = 121, FIO_LIST_ADDR4_value = 122,
  FIO_LIST_ADDR8_value = 123, FIO_LIST_CHAR_value = 124, FIO_LIST_I1_value = 125, FIO_LIST_I2_value = 126,
  FIO_LIST_I4_value = 127, FIO_LIST_I8_value = 128, FIO_LIST_L1_value = 129, FIO_LIST_L2_value = 130,
  FIO_LIST_L4_value = 131, FIO_LIST_L8_value = 132, FIO_LIST_R4_value = 133, FIO_LIST_R8_value = 134,
  FIO_LIST_R16_value = 135, FIO_LIST_C4_value = 136, FIO_LIST_C8_value = 137, FIO_LIST_C16_value = 138,
  FIO_BACKSPACE = 139, FIO_CLOSE = 140, FIO_DELETE = 141, FIO_ENDFILE = 142,
  FIO_FIND = 143, FIO_INQUIRE = 144, FIO_OPEN = 145, FIO_REWIND = 146,
  FIO_UNLOCK = 147, FIO_DEFINEFILE = 148, FIO_CR_READ_UNFORMATTED = 149, FIO_CR_WRITE_UNFORMATTED = 150,
  FIO_CR_READ_FORMATTED = 151, FIO_CR_WRITE_FORMATTED = 152, FIO_CR_READ_NAMELIST = 153, FIO_CR_WRITE_NAMELIST = 154,
  FIO_INQLENGTH = 155, FIO_CR_OPEN = 156, FIO_CR_CLOSE = 157, FIO_CR_ENDFILE = 158,
  FIO_CR_REWIND = 159, FIO_CR_INQUIRE = 160, FIO_CR_BACKSPACE = 161, FIO_CR_BUFFERIN = 162,
  FIO_CR_BUFFEROUT = 163, FIOOPER_LAST = 164
}
enum  FIOITEMTYPE {
  FIOITEMTYPE_NONE = 0, FIOITEMTYPE_FIRST = 1, FIT_ADDRESS4 = 1, FIT_ADDRESS8 = 2,
  FIT_CHARACTER = 3, FIT_INTEGER1 = 4, FIT_INTEGER2 = 5, FIT_INTEGER4 = 6,
  FIT_INTEGER8 = 7, FIT_LOGICAL1 = 8, FIT_LOGICAL2 = 9, FIT_LOGICAL4 = 10,
  FIT_LOGICAL8 = 11, FIT_REAL4 = 12, FIT_REAL8 = 13, FIT_REAL16 = 14,
  FIT_COMPLEX4 = 15, FIT_COMPLEX8 = 16, FIT_COMPLEX16 = 17, FIT_RECORD = 18,
  FIOITEMTYPE_LAST = 18
}
enum  FIOFORMATTYPE {
  FIOFORMATTYPE_NONE = 0, FIOFORMATTYPE_FIRST = 1, FFT_FORMAT = 1, FFT_UNFORMAT = 2,
  FFT_LIST = 3, FIOFORMATTYPE_LAST = 3
}
enum  FIOSTRUCTID {
  FIOSTRUCTID_NONE = 0, FIOSTRUCTID_FIRST = 1, FID_CILIST = 1, FID_ICILIST = 2,
  FID_OLIST = 3, FID_FLIST = 4, FID_INLIST = 5, FID_ALIST = 6,
  FID_CLLIST = 7, FID_KEYSPEC = 8, FID_CRAY_CLIST = 9, FID_CRAY_FCD = 10,
  FID_CRAY_IOLIST = 11, FID_CRAY_OPENLIST = 12, FID_CRAY_CLOSELIST = 13, FID_CRAY_INQLIST = 14,
  FID_CRAY_DOPEVEC = 15, FID_IOSCALAR_ENTRY = 16, FID_IOARRAY_ENTRY = 17, FID_IOIMPLIEDDO_ENTRY = 18,
  FIOSTRUCTID_LAST = 18
}
enum  FIOSTRUCT {
  FIOSTRUCT_NONE = 0, FIOSTRUCT_FIRST = 1, FSC_CIERR = 1, FSC_CIUNIT = 2,
  FSC_CIEND = 3, FSC_CIFMT = 4, FSC_CIREC = 5, FSC_CIMATCH = 6,
  FSC_CIKEYTYPE = 7, FSC_CIKEYVAL = 8, FSC_CIKEYID = 9, FSC_CINML = 10,
  FSC_CIKEYVALLEN = 11, FSC_CIADVANCE = 12, FSC_CIADVANCELEN = 13, FSC_CIEOR = 14,
  FSC_CISIZE = 15, FSC_CIVFMT = 16, FSC_CIVFMTFP = 17, FSI_ICIERR = 18,
  FSI_ICIUNIT = 19, FSI_ICIEND = 20, FSI_ICIFMT = 21, FSI_ICIRLEN = 22,
  FSI_ICIRNUM = 23, FSI_ICIVFMT = 24, FSI_ICIVFMTFP = 25, FSO_OERR = 26,
  FSO_OUNIT = 27, FSO_OFNM = 28, FSO_OFNMLEN = 29, FSO_OSTA = 30,
  FSO_OACC = 31, FSO_OFM = 32, FSO_ORL = 33, FSO_OBLNK = 34,
  FSO_OCC = 35, FSO_OORG = 36, FSO_OSHARED = 37, FSO_OREADONLY = 38,
  FSO_ONKEYS = 39, FSO_OKEYS = 40, FSO_OASSOCV = 41, FSO_OMAXREC = 42,
  FSO_ODFNM = 43, FSO_ODFNMLEN = 44, FSO_ODISP = 45, FSO_ORECTYPE = 46,
  FSO_OCONV = 47, FSO_OCONVLEN = 48, FSO_OBUFFSIZE = 49, FSO_ODIRECT = 50,
  FSO_OACTION = 51, FSO_OACTIONLEN = 52, FSO_ODELIM = 53, FSO_ODELIMLEN = 54,
  FSO_OPAD = 55, FSO_OPADLEN = 56, FSO_OPOSITION = 57, FSO_OPOSITIONLEN = 58,
  FSF_FERR = 59, FSF_FUNIT = 60, FSF_FREC = 61, FSN_INERR = 62,
  FSN_INUNIT = 63, FSN_INFILE = 64, FSN_INFILEN = 65, FSN_INEX = 66,
  FSN_INOPEN = 67, FSN_INNUM = 68, FSN_INNAMED = 69, FSN_INNAME = 70,
  FSN_INNAMLEN = 71, FSN_INACC = 72, FSN_INACCLEN = 73, FSN_INSEQ = 74,
  FSN_INSEQLEN = 75, FSN_INDIR = 76, FSN_INDIRLEN = 77, FSN_INFMT = 78,
  FSN_INFMTLEN = 79, FSN_INFORM = 80, FSN_INFORMLEN = 81, FSN_INUNF = 82,
  FSN_INUNFLEN = 83, FSN_INRECL = 84, FSN_INNREC = 85, FSN_INBLANK = 86,
  FSN_INBLANKLEN = 87, FSN_INDEFAULTFILE = 88, FSN_INDEFAULTFILELEN = 89, FSN_INCC = 90,
  FSN_INCCLEN = 91, FSN_INKEYED = 92, FSN_INKEYEDLEN = 93, FSN_INORG = 94,
  FSN_INORGLEN = 95, FSN_INRECORDTYPE = 96, FSN_INRECORDTYPELEN = 97, FSN_INCONV = 98,
  FSN_INCONVLEN = 99, FSN_INBUFFSIZE = 100, FSN_INACTION = 101, FSN_INACTIONLEN = 102,
  FSN_INDELIM = 103, FSN_INDELIMLEN = 104, FSN_INPAD = 105, FSN_INPADLEN = 106,
  FSN_INPOSITION = 107, FSN_INPOSITIONLEN = 108, FSN_INREAD = 109, FSN_INREADLEN = 110,
  FSN_INREADWRITE = 111, FSN_INREADWRITELEN = 112, FSN_INWRITE = 113, FSN_INWRITELEN = 114,
  FSA_AERR = 115, FSA_AUNIT = 116, FSL_CLERR = 117, FSL_CLUNIT = 118,
  FSL_CLSTA = 119, FSK_START = 120, FSK_END = 121, FSK_KEYTYPE = 122,
  FCR_CI_WORD1 = 123, FCR_CI_UNIT = 124, FCR_CI_IOSTAT = 125, FCR_CI_REC = 126,
  FCR_CI_PARSFMT = 127, FCR_CI_FMTSRC = 128, FCR_CI_ADVANCE = 129, FCR_CI_SIZE = 130,
  FCR_FCD_ADDR = 131, FCR_FCD_LEN = 132, FCR_IOL_HEAD = 133, FCR_OPEN_VERSION = 134,
  FCR_OPEN_UNIT = 135, FCR_OPEN_IOSTAT = 136, FCR_OPEN_ERR = 137, FCR_OPEN_FILE = 138,
  FCR_OPEN_STATUS = 139, FCR_OPEN_ACCESS = 140, FCR_OPEN_FORM = 141, FCR_OPEN_RECL = 142,
  FCR_OPEN_BLANK = 143, FCR_OPEN_POSITION = 144, FCR_OPEN_ACTION = 145, FCR_OPEN_DELIM = 146,
  FCR_OPEN_PAD = 147, FCR_CLOSE_VERSION = 148, FCR_CLOSE_UNIT = 149, FCR_CLOSE_IOSTAT = 150,
  FCR_CLOSE_ERR = 151, FCR_CLOSE_STATUS = 152, FCR_INQ_VERSION = 153, FCR_INQ_UNIT = 154,
  FCR_INQ_FILE = 155, FCR_INQ_IOSTAT = 156, FCR_INQ_ERR = 157, FCR_INQ_EXIST = 158,
  FCR_INQ_OPENED = 159, FCR_INQ_NUMBER = 160, FCR_INQ_NAMED = 161, FCR_INQ_NAME = 162,
  FCR_INQ_ACCESS = 163, FCR_INQ_SEQUENTIAL = 164, FCR_INQ_DIRECT = 165, FCR_INQ_FORM = 166,
  FCR_INQ_FORMATTED = 167, FCR_INQ_UNFORMATTED = 168, FCR_INQ_RECL = 169, FCR_INQ_NEXTREC = 170,
  FCR_INQ_BLANK = 171, FCR_INQ_POSITION = 172, FCR_INQ_ACTION = 173, FCR_INQ_READ = 174,
  FCR_INQ_WRITE = 175, FCR_INQ_READWRITE = 176, FCR_INQ_DELIM = 177, FCR_INQ_PAD = 178,
  FCR_DV_BASE_PTR = 179, FCR_DV_BASE_LEN = 180, FCR_DV_FLAG_INFO = 181, FCR_DV_TYPE_LEN = 182,
  FCR_DV_ORIG_BASE = 183, FCR_DV_ORIG_SIZE = 184, FCR_DV_DIM1_LB = 185, FCR_DV_DIM1_EXTENT = 186,
  FCR_DV_DIM1_STRIDE = 187, FCR_DV_DIM2_LB = 188, FCR_DV_DIM2_EXTENT = 189, FCR_DV_DIM2_STRIDE = 190,
  FCR_DV_DIM3_LB = 191, FCR_DV_DIM3_EXTENT = 192, FCR_DV_DIM3_STRIDE = 193, FCR_DV_DIM4_LB = 194,
  FCR_DV_DIM4_EXTENT = 195, FCR_DV_DIM4_STRIDE = 196, FCR_DV_DIM5_LB = 197, FCR_DV_DIM5_EXTENT = 298,
  FCR_DV_DIM5_STRIDE = 299, FCR_DV_DIM6_LB = 200, FCR_DV_DIM6_EXTENT = 201, FCR_DV_DIM6_STRIDE = 202,
  FCR_DV_DIM7_LB = 203, FCR_DV_DIM7_EXTENT = 204, FCR_DV_DIM7_STRIDE = 205, FCR_IOSCALAR_ENTRY = 206,
  FCR_IOSCALAR_TYPE_T = 207, FCR_IOSCALAR_ADDR = 208, FCR_IOSCALAR_CHAR_LEN = 209, FCR_IOARRAY_ENTRY = 210,
  FCR_IOARRAY_DV_ADDR = 211, FCR_IOARRAY_FLAG = 212, FCR_IOARRAY_IDX1 = 213, FCR_IOARRAY_IDX2 = 214,
  FCR_IOARRAY_IDX3 = 215, FCR_IOARRAY_IDX4 = 216, FCR_IOARRAY_IDX5 = 217, FCR_IOARRAY_IDX6 = 218,
  FCR_IOARRAY_IDX7 = 219, FCR_IOIMPLIEDDO_ENTRY = 220, FCR_IOIMPLIEDDO_VAR_ADDR = 221, FCR_IOIMPLIEDDO_BEGIN_CNT = 222,
  FCR_IOIMPLIEDDO_END_CNT = 223, FCR_IOIMPLIEDDO_INC_CNT = 224, FIOSTRUCT_LAST = 224
}
enum  FIOCLASS {
  FIOCLASS_NONE = 0, FIOCLASS_FIRST = 1, FCL_EXT_FORMATTED = 1, FCL_EXT_UNFORMATTED = 2,
  FCL_EXT_LIST = 3, FCL_EXT_NAMELIST = 4, FCL_INT_FORMATTED = 5, FCL_INT_LIST = 6,
  FCL_DIR_FORMATTED = 7, FCL_DIR_UNFORMATTED = 8, FIOCLASS_LAST = 8
}
enum  arb_enum { ARB_UBOUND, ARB_LBOUND, ARB_STRIDE }

Functions/Subroutines

static BOOL cwh_io_analyse_io_item (WN *tree, IMPDO_INFO *impdo_set, INT32 mode)
static BOOL cwh_io_analyse_expr (WN *tree, IMPDO_INFO *impdo_set, INT32 mode)
static BOOL cwh_io_analyse_arr (WN *tree, IMPDO_INFO *impdo_set, INT32 mode)
static INT32 cwh_io_analyse_index_expr (WN *tree, IMPDO_INFO *impdo_set, INT32 mode)
static void cwh_stab_free_auxst (void)
static INT32 member (ST *st, IMPDO_INFO *impdo_set)
static INT32 cwh_io_search_implied_do_index (WN *tree, IMPDO_INFO *impdo_set)
static WN * Substitute_1_For_Impdo_Index_Val (WN *tree, IMPDO_INFO *impdo)
static void cwh_io_unmark (void)
static void cwh_io_add_st_to_marked_set (ST *st)
static BOOL OPCODE_has_aux (const OPCODE opc)
static ST * Make_IoRuntime_ST (FIOOPER)
static void Gen_Io_Calls (WN *, FIOOPER, WN *, WN *, INT32, WN *, WN *, WN *, WN *)
WN * WN_CreateNewLabel (void)
static WN * extract_calls (WN *, WN *)
static INT32 lower_f77_io_items (WN *, WN *, WN *, WN *, WN *, FIOOPER, BOOL, INT32 *, INT32, INT32)
static void lower_f77_record_items (WN *, WN *, WN *, WN *, WN *, WN *, FIOOPER, ST **, TY_IDX *, INT32 *, FLD_HANDLE &, INT32 *, INT32 *, INT32, TY_IDX, INT64)
static WN * Get_ST_Ldid (ST_IDX st)
static void io_set_addr_passed_flag (ST *st)
static void io_set_addr_saved_flag (ST *st)
static WN * Get_ARB_WN (const ARB_HANDLE arb, arb_enum whattoget)
static TY_IDX Make_Simple_Array_Type (const char *name, INT32 n_elems, TY_IDX elem_ty)
static void Alloc_More_For_Dummy_Array (void)
static void Add_To_Dummy_List (WN *dummy)
static char * Remove_Trailing_Blanks (char *s)
TY_IDX Find_array_TY (TY_IDX ty)
TY_IDX Find_scalar_TY (TY_IDX ty)
static WN * create_lda_of_temp (WN *block, WN *tree, TY_IDX ty)
static WN * create_pointer_to_node (WN *block, WN *tree, TY_IDX ty, BOOL deref)
BOOL Type_is_logical (TY_IDX ty)
static void Make_IoStruct_TY (FIOSTRUCTID id)
static ST * Get_IoStruct_ST (WN *block, FIOSTRUCTID id, BOOL clear)
static ST * Get_KeyStruct_ST (INT32 nitems)
static ST * Get_UnitPointer_ST (void)
static void Init_fioruntime_ty ()
static WN * Make_IoAddr_WN (ST *st)
static WN * Gen_Parm_WN (WN *wn)
static void Gen_Impld_Io_Calls (WN *block, FIOFORMATTYPE form, FIOITEMTYPE type, WN *iostat1, WN *impld_item, WN *arr_item, WN *mp_unit_ptr)
static void Gen_Iolist_PutFieldConst (WN *block, ST *st, INT32 foffset, INT32 ftype, INT64 value)
static TY_IDX Create_Maligned_TY (INT32 offset, TY_IDX ty)
static void Gen_Iolist_PutFieldWN (WN *block, ST *st, INT32 foffset, INT32 ftype, WN *wn)
static void Gen_Iolist_PutAddrWN (WN *block, ST *st, INT32 foffset, INT32 ftype, WN *wn)
static void Gen_Io_GetFieldST (WN *block, ST *var, ST *st, FIOSTRUCT field)
static void Gen_Io_GetFieldWN (WN *block, WN *wn, ST *st, FIOSTRUCT field)
static void Gen_Io_PutFieldST (WN *block, ST *st, FIOSTRUCT field, ST *var)
static void Gen_Io_PutFieldWN (WN *block, ST *st, FIOSTRUCT field, WN *wn)
static void Gen_Io_PutKeyFieldWN (WN *block, ST *st, WN **wn, INT32 nkeys)
static void Gen_Io_PutFieldConst (WN *block, ST *st, FIOSTRUCT field, INT64 value)
static void Gen_Io_PutAddrWN (WN *block, ST *st, FIOSTRUCT field, WN *wn)
static void Set_Cilist_Fields (WN *block, ST *st, WN *unit_wn, WN **items, WN *rec_wn, WN *parsfmt_wn, WN *fmtsrc_wn, WN *advance_wn, WN *size_wn, WN *varfmt)
static void Build_Io_Mask (INT32 *iomask, INT32 ioshift, WN *wn)
static WN * Create_fcd (WN *block, WN *kid1, WN *kid2)
static void copyout_temp_to_var (WN *addr, ST *st, TY_IDX ty)
static WN * get_32bit_cilist_item (WN *cilist_item, TY_IDX ty)
static void process_iostat (WN **block1, WN **block2, BOOL flag, WN *iostat, LABEL_IDX err, LABEL_IDX end, LABEL_IDX eor, BOOL zero_escape_freq)
static void process_inqvar (WN **block, WN *var)
static mINT32 search_implied_do_index (WN *array_index, ST *implied_do_index)
static FIOITEMTYPE get_FIT_type (TY_IDX ty)
static void lower_record_items (WN *block, FIOFORMATTYPE form, WN *iostat, BOOL mode, TY_IDX rty_idx, WN *addr, INT64 roffset)
static void lower_io_items (WN *block, WN *tree, FIOFORMATTYPE form, WN *iostat, INT32 kid_first, INT32 kid_last)
INT32 Cray_Type_From_TY (TY_IDX typ)
static INT32 Dv_Type_From_TY (TY_IDX typ)
static WN * Create_Dope_From_IoItem (WN *block, WN *item)
static WN * Create_DopeVector_WN (WN *block, WN *arr_item, TY_IDX ity, TY_IDX ety, BOOL impl_do)
static WN * Replace_Impl_Idx (WN *expr)
static void Make_Cray_Io_Call (WN *block, FIOOPER form, WN *iostat1, WN *iostat2, WN *cilist_wn, WN *stack_wn, ST *iolist_st, UINT64 word)
static void Create_Null_Call (WN *block, FIOOPER form, WN *cilist_wn, WN *iostat1, WN *iostat2, WN *stack_wn)
static void make_dope_vector_ty (int ndims_on_entry)
static void Add_To_Iolist (FIOSTRUCTID id, FLD_HANDLE &last_field, INT32 *offset, INT32 ndims)
static INT32 Create_Io_Entry (WN *block, WN *item, WN *cilist_wn, WN *stack_wn, WN *iostat1, WN *iostat2, FIOOPER form, ST **iolist_st, TY_IDX *iolist_ty, INT32 *iolist_size, FLD_HANDLE &last_field, INT32 *offset, INT32 *icount, INT32 nested, BOOL need_loop)
static WN * Convert_Iol_Item (WN *item, TY_IDX fty)
static INT32 Create_Field_Entry (WN *block, WN *item, WN *cilist_wn, WN *stack_wn, WN *iostat1, WN *iostat2, FIOOPER form, ST **iolist_st, TY_IDX *iolist_ty, INT32 *iolist_size, FLD_HANDLE &last_field, INT32 *offset, INT32 *icount, INT32 nested, FLD_HANDLE fld, INT64 foffset)
static INT32 lower_f77_io_items (WN *block, WN *tree, WN *cilist_wn, WN *iostat1, WN *iostat2, FIOOPER form, INT32 nested, INT32 *offset, INT32 kid_first, INT32 kid_last)
static void lower_cray_io_items (WN *block, WN *tree, INT32 kid_first, INT32 kid_last, BOOL needs_new_iolist_table, INT32 *word_count, INT32 flflag, WN *cilist_wn, FIOOPER form)
WN * lower_io_statement (WN *tree, LOWER_ACTIONS actions)
static AUXST * cwh_stab_find_auxst (ST *st, BOOL create)
BOOL * cwh_stab_visited (ST *st)
static void cwh_stab_free_list (LIST **lp)
static ST * cwh_io_ST_base (ST *st)
void Lower_IO_Init (void)

Variables

static OPCODE opc_lda
static OPCODE opc_const
static INT32 fcd_size
static ST * stack_st = NULL
static TY_IDX stack_ty = (TY_IDX) 0
static ST * cilist_st = NULL
static WN * cr_iostat1 = NULL
static WN * cr_iostat2 = NULL
static WN * copyout_block = NULL
static ST * impl_idx [MAX_NESTED_IMPL]
static INT32 num_impl
static INT32 first_last
static MARKED_SET * marked_set
static INT32 local_sequence
static char seq_buff [10]
static IOLIB current_io_library
static TY_IDX dope_vector_ty [MAX_DIM+1]
INT32 mp_io
static const char * fio_names [FIOOPER_LAST+1]
static ST * fio_sts [FIOOPER_LAST+1]
static FIOOPER fio_item_ops [FIOFORMATTYPE_LAST+1][FIOITEMTYPE_LAST+1]
static FIOOPER fio_value_ops [FIOFORMATTYPE_LAST+1][FIOITEMTYPE_LAST+1]
static INT32 fio_dummy_max = 0
static INT32 fio_dummy_count
static BOOL * fio_dummy_ref
static ST ** fio_dummy_st
static TY_IDX * fio_dummy_tyidx
static WN_OFFSET * fio_dummy_ofst
static TY_IDX fioruntime_ty = (TY_IDX) 0
static TY_IDX fiostruct_ty [FIOSTRUCTID_LAST+1]
static ST * fiostruct_st [FIOSTRUCTID_LAST+1]
static PU * fio_current_pu = NULL
static PU * mp_fio_current_pu = NULL
static PU * namelist_current_pu = NULL
static PU * cray_iolist_current_pu = NULL
static WN * namelist_node_list = NULL
static WN * namelist_node = NULL
static ST * container_block_for_iolists = NULL
static INT32 num_iolists = 0
static FIOSTRUCTID_INFO fiostructid_info [FIOSTRUCTID_LAST+1]
static FIOSTRUCT_INFO fiostruct_info [FIOSTRUCT_LAST+1]
static INT32 fio_maskcode [MTYPE_LAST+1]
static AUXST * Top_Auxst [INTERNAL_LEVEL+1] = {NULL,NULL,NULL,NULL}

Define Documentation

#define __STDC_LIMIT_MACROS

Definition at line 44 of file wn_fio.cxx.

#define Action ( x   )     (actions & (x))

Definition at line 764 of file wn_fio.cxx.

Referenced by lower_base_reference(), lower_bit_field_id(), lower_complex_expr(), lower_complex_maps(), lower_copy_maps(), lower_io_statement(), lower_linearize_array_addr(), lower_map(), lower_maps_reset(), lower_quad_maps(), and lower_recip().

#define DIM_OFFSET   56

Definition at line 78 of file wn_fio.cxx.

#define DIM_SZ   24

Definition at line 79 of file wn_fio.cxx.

Referenced by cwh_dope_read_bound(), cwh_dope_store_bound(), cwh_types_dim_struct_TY(), cwh_types_dim_TY(), and cwh_types_shared_dope().

#define DVTYPE_ASCII   6

Referenced by _ALLOCATE(), _cntig_chk(), _DEALLOC(), _DEALLOCATE(), _frwd(), _FWN(), _fwwd(), _gdc_dflt2len(), _get_dc_param(), _get_holl(), _get_quoholl(), _getnlval(), _INQIL(), _ld_read(), _ld_write(), _map_to_dv(), _nexdata(), _nl_stride_dv(), _nlrdent(), _nlread(), _nlstrent(), _rb(), _rdfmt(), _rdunf(), _REALLOC(), _stride_dv(), _strip_mine(), _unpack_arry(), _wb(), _wf_setup(), _wnl90to77(), _wrfmt(), _wrunf(), _xfer_iolist(), Dv_Type_From_TY(), and GET_STRIDE_FROM_DESC().

#define DVTYPE_COMPLEX   4

Referenced by _g_complx(), _gdc_dflt2len(), _gdc_kind2len(), _gdc_star2len(), _get_dc_param(), _get_holl(), _get_quoholl(), _gocthex(), _ld_read(), _ld_write(), _nexdata(), _rdfmt(), _wnl90to77(), _wnl_beautify(), _wrfmt(), and Dv_Type_From_TY().

#define DVTYPE_DERIVEDBYTE   7

Referenced by _ALLOCATE(), _DEALLOCATE(), _nl_strd_derv(), _REALLOC(), and GET_STRIDE_FROM_DESC().

#define DVTYPE_DERIVEDWORD   8

Referenced by _ALLOCATE(), _DEALLOCATE(), _nl_strd_derv(), _REALLOC(), Dv_Type_From_TY(), and GET_STRIDE_FROM_DESC().

#define DVTYPE_INTEGER   2

Referenced by _beautify(), _g_complx(), _g_number(), _gdc_dflt2len(), _gdc_kind2len(), _gdc_star2len(), _get_dc_param(), _get_value(), _ld_write(), and Dv_Type_From_TY().

#define DVTYPE_LOGICAL   5

Referenced by _gdc_dflt2len(), _gdc_kind2len(), _gdc_star2len(), _get_dc_param(), _get_value(), _ld_write(), _nexdata(), and Dv_Type_From_TY().

#define DVTYPE_REAL   3

Referenced by _g_number(), _gdc_dflt2len(), _gdc_kind2len(), _gdc_star2len(), _get_dc_param(), _get_holl(), _get_quoholl(), _get_value(), _gocthex(), _ld_write(), _mr_scan_complex(), _rdfmt(), _s_scan_extensions(), _wnl_beautify(), _wrfmt(), and Dv_Type_From_TY().

#define DVTYPE_TYPELESS   1

Referenced by __READ(), __WRITE(), _beautify(), _FRU(), _frwd(), _FWN(), _FWU(), _fwwd(), _gdc_dflt2len(), _get_dc_param(), _getnlval(), _ld_write(), _nlrdent(), _nlstrent(), _rb(), _RUI(), _wb(), _wnl90to77(), and _WUI().

#define DVTYPE_UNUSED   0

Referenced by _FRN(), and _rnl90to77().

#define FIM_ASSOCIATEVARIABLE   12

Definition at line 428 of file wn_fio.cxx.

Referenced by lower_io_statement().

#define FIM_EXIST   0

Definition at line 422 of file wn_fio.cxx.

Referenced by lower_io_statement().

#define FIM_NAMED   6

Definition at line 425 of file wn_fio.cxx.

Referenced by lower_io_statement().

#define FIM_NEXTREC   10

Definition at line 427 of file wn_fio.cxx.

Referenced by lower_io_statement().

#define FIM_NUMBER   4

Definition at line 424 of file wn_fio.cxx.

Referenced by lower_io_statement().

#define FIM_OPENED   2

Definition at line 423 of file wn_fio.cxx.

Referenced by lower_io_statement().

#define FIM_RECL   8

Definition at line 426 of file wn_fio.cxx.

Referenced by lower_io_statement().

#define FIO_OFFSET ( i   ) 

Value:

((Pointer_Size == 4) ? fiostruct_info[i].offset32 \
            : fiostruct_info[i].offset64)

Definition at line 1865 of file wn_fio.cxx.

Referenced by Create_Dope_From_IoItem(), Create_DopeVector_WN(), and Create_Io_Entry().

#define FIO_SIZE ( i   ) 

Value:

((Pointer_Size == 4) ? fiostructid_info[i].size32 \
            : fiostructid_info[i].size64)

Definition at line 1869 of file wn_fio.cxx.

Referenced by Add_To_Iolist(), and make_dope_vector_ty().

#define FIO_TYPE ( i   ) 

Value:

((Pointer_Size == 4) ? fiostruct_info[i].type32 \
            : fiostruct_info[i].type64)

Definition at line 1867 of file wn_fio.cxx.

Referenced by Create_Dope_From_IoItem(), Create_DopeVector_WN(), and Create_Io_Entry().

#define FIRST_CALL ( x   )     (x & 2)

Definition at line 94 of file wn_fio.cxx.

Referenced by lower_io_statement().

#define GEN_IO_CALL_0 ( bl,
op,
ios1,
ios2   )     Gen_Io_Calls (bl, op, ios1, ios2, 0, NULL, NULL, NULL, NULL);

Definition at line 753 of file wn_fio.cxx.

Referenced by lower_io_statement().

#define GEN_IO_CALL_1 ( bl,
op,
ios1,
ios2,
k1   )     Gen_Io_Calls (bl, op, ios1, ios2, 1, k1, NULL, NULL, NULL);

Definition at line 755 of file wn_fio.cxx.

Referenced by lower_io_items(), and lower_io_statement().

#define GEN_IO_CALL_2 ( bl,
op,
ios1,
ios2,
k1,
k2   )     Gen_Io_Calls (bl, op, ios1, ios2, 2, k1, k2, NULL, NULL);

Definition at line 757 of file wn_fio.cxx.

Referenced by lower_io_items(), lower_io_statement(), and lower_record_items().

#define GEN_IO_CALL_3 ( bl,
op,
ios1,
ios2,
k1,
k2,
k3   )     Gen_Io_Calls (bl, op, ios1, ios2, 3, k1, k2, k3, NULL);

Definition at line 759 of file wn_fio.cxx.

Referenced by lower_cray_io_items(), lower_io_items(), lower_io_statement(), lower_record_items(), and Make_Cray_Io_Call().

#define GEN_IO_CALL_4 ( bl,
op,
ios1,
ios2,
k1,
k2,
k3,
k4   )     Gen_Io_Calls (bl, op, ios1, ios2, 4, k1, k2, k3, k4);

Definition at line 761 of file wn_fio.cxx.

Referenced by lower_io_items(), and lower_record_items().

#define GET_RUNTIME_ST ( x   ) 

Value:

(fio_sts[x] == NULL ? Make_IoRuntime_ST (x) : \
            fio_sts[x])

Definition at line 748 of file wn_fio.cxx.

Referenced by Gen_Io_Calls().

#define GLOBAL_LEVEL   1

Definition at line 81 of file wn_fio.cxx.

#define HOST_LEVEL   GLOBAL_LEVEL + 1

Definition at line 82 of file wn_fio.cxx.

Referenced by cwh_stab_adjust_base_name(), cwh_stab_emit_commons_and_equivalences(), fei_next_func_idx(), fei_object(), fei_proc_imp(), and fei_seg().

#define Impdo_index ( x   )     ((x)->index)

Definition at line 123 of file wn_fio.cxx.

Referenced by cwh_io_analyse_io_item(), cwh_io_conv_array_to_dope(), cwh_io_conv_arrsection_to_dope(), cwh_io_create_dope_from_item(), member(), and Substitute_1_For_Impdo_Index_Val().

#define Impdo_next ( x   )     ((x)->next)

Definition at line 124 of file wn_fio.cxx.

Referenced by cwh_io_analyse_io_item(), cwh_io_conv_array_to_dope(), cwh_io_conv_arrsection_to_dope(), cwh_io_create_dope_from_item(), and member().

#define Int_Type   ((Pointer_Size == 4) ? MTYPE_I4 : MTYPE_I8)

Definition at line 1871 of file wn_fio.cxx.

Referenced by Create_Io_Entry().

#define INTERNAL_LEVEL   HOST_LEVEL + 1

Definition at line 83 of file wn_fio.cxx.

Referenced by fei_next_func_idx(), and fei_proc_imp().

#define LAST_CALL ( x   )     (x & 1)

Definition at line 95 of file wn_fio.cxx.

Referenced by lower_cray_io_items(), and lower_io_statement().

#define Marked_next ( x   )     ((x)->next)

Definition at line 126 of file wn_fio.cxx.

Referenced by cwh_io_add_st_to_marked_set(), and cwh_io_unmark().

#define Marked_st ( x   )     ((x)->st)

Definition at line 125 of file wn_fio.cxx.

Referenced by cwh_io_add_st_to_marked_set(), and cwh_io_unmark().

#define MAX_DIM   7

Definition at line 144 of file wn_fio.cxx.

Referenced by Create_Io_Entry(), and lower_f77_io_items().

#define MAX_NESTED_IMPL   50

Definition at line 105 of file wn_fio.cxx.

#define NAMELIST_MODE ( x   )     ((x) & NML_MASK)

Definition at line 11703 of file wn_fio.cxx.

Referenced by cwh_io_ioitem(), fei_control_list(), and fei_IO_list().

#define NESTED_DOPE   1

Definition at line 88 of file wn_fio.cxx.

Referenced by Create_Io_Entry(), and lower_f77_io_items().

#define NESTED_ITEM   2

Definition at line 91 of file wn_fio.cxx.

Referenced by Create_Io_Entry(), and lower_f77_io_items().

#define NO_NESTING   0

Definition at line 87 of file wn_fio.cxx.

#define OPC_IntWord   ((Pointer_Size == 4) ? OPC_I4INTCONST : OPC_I8INTCONST)

Definition at line 1872 of file wn_fio.cxx.

Referenced by Create_Io_Entry().

#define READ_MODE ( x   )     ((x) & READ_WRITE_MASK)

Definition at line 11704 of file wn_fio.cxx.

Referenced by cwh_io_analyse_arr(), cwh_io_analyse_expr(), and cwh_io_ioitem().

#define READ_STMT   1

Referenced by cvrt_exp_to_pdg(), fei_formatted_read(), fei_unformatted_read(), and lower_f77_io_items().

#define READ_WRITE_MASK   1

Definition at line 11702 of file wn_fio.cxx.

#define STACK_LENGTH   25

Definition at line 77 of file wn_fio.cxx.

Referenced by lower_cray_io_items(), lower_f77_io_items(), Lower_IO_Init(), and lower_io_statement().

#define TYADDR   1

Definition at line 2767 of file wn_fio.cxx.

Referenced by do_fioxa4(), do_fioxa4_mp(), do_fioxa4v(), do_fioxa4v_mp(), do_fioxa8(), do_fioxa8_mp(), do_fioxa8v(), do_fioxa8v_mp(), do_lioxa4(), do_lioxa4_mp(), do_lioxa4v(), do_lioxa4v_mp(), do_lioxa8(), do_lioxa8_mp(), do_lioxa8v(), do_lioxa8v_mp(), Gen_Impld_Io_Calls(), l_write(), NAMEgetvar(), and NAMEs_wsNe_work().

#define TYBYTE   2

Definition at line 2768 of file wn_fio.cxx.

Referenced by do_fioxi1(), do_fioxi1_mp(), do_fioxi1v(), do_fioxi1v_mp(), do_lioxi1(), do_lioxi1_mp(), do_lioxi1v(), do_lioxi1v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYCHAR   14

Definition at line 2780 of file wn_fio.cxx.

Referenced by do_fioxh1(), do_fioxh1_mp(), do_fioxh1v(), do_fioxh1v_mp(), do_lioxh1(), do_lioxh1_mp(), do_lioxh1v(), do_lioxh1v_mp(), Gen_Impld_Io_Calls(), l_CHAR(), l_read(), l_write(), NAMEgetvar(), rd_ed(), and wrt_G().

#define TYCOMPLEX   8

Definition at line 2774 of file wn_fio.cxx.

Referenced by do_lioxc4(), do_lioxc4_mp(), do_lioxc4v(), do_lioxc4v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYDCOMPLEX   9

Definition at line 2775 of file wn_fio.cxx.

Referenced by do_lioxc8(), do_lioxc8_mp(), do_lioxc8v(), do_lioxc8v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYDREAL   7

Definition at line 2773 of file wn_fio.cxx.

Referenced by do_f4f8(), do_fio8_mp(), do_fioxc8(), do_fioxc8_mp(), do_fioxc8v(), do_fioxc8v_mp(), do_fioxr8(), do_fioxr8_mp(), do_fioxr8v(), do_fioxr8v_mp(), do_lioxr8(), do_lioxr8_mp(), do_lioxr8v(), do_lioxr8v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYINT   4

Definition at line 2770 of file wn_fio.cxx.

Referenced by do_fioi4_mp(), do_fioxi4(), do_fioxi4_mp(), do_fioxi4v(), do_fioxi4v_mp(), do_lioxi4(), do_lioxi4_mp(), do_lioxi4v(), do_lioxi4v_mp(), en_fio(), Gen_Impld_Io_Calls(), l_C(), l_L(), l_R(), l_R16(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYLOGICAL1   10

Definition at line 2776 of file wn_fio.cxx.

Referenced by do_fioxl1(), do_fioxl1_mp(), do_fioxl1v(), do_fioxl1v_mp(), do_lioxl1(), do_lioxl1_mp(), do_lioxl1v(), do_lioxl1v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYLOGICAL2   11

Definition at line 2777 of file wn_fio.cxx.

Referenced by do_fioxl2(), do_fioxl2_mp(), do_fioxl2v(), do_fioxl2v_mp(), do_lioxl2(), do_lioxl2_mp(), do_lioxl2v(), do_lioxl2v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYLOGICAL4   12

Definition at line 2778 of file wn_fio.cxx.

Referenced by do_fioxl4(), do_fioxl4_mp(), do_fioxl4v(), do_fioxl4v_mp(), do_lioxl4(), do_lioxl4_mp(), do_lioxl4v(), do_lioxl4v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYLOGICAL8   13

Definition at line 2779 of file wn_fio.cxx.

Referenced by do_fioxl8(), do_fioxl8_mp(), do_fioxl8v(), do_fioxl8v_mp(), do_lioxl8(), do_lioxl8_mp(), do_lioxl8v(), do_lioxl8v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYLONGLONG   5

Definition at line 2771 of file wn_fio.cxx.

Referenced by do_fioi8_mp(), do_fioxi8(), do_fioxi8_mp(), do_fioxi8v(), do_fioxi8v_mp(), do_lioxi8(), do_lioxi8_mp(), do_lioxi8v(), do_lioxi8v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYNML   17

Definition at line 2783 of file wn_fio.cxx.

#define TYQUAD   18

Definition at line 2784 of file wn_fio.cxx.

Referenced by do_fioxc16(), do_fioxc16_mp(), do_fioxc16v(), do_fioxc16v_mp(), do_fioxr16(), do_fioxr16_mp(), do_fioxr16v(), do_fioxr16v_mp(), do_lioxr16(), do_lioxr16_mp(), do_lioxr16v(), do_lioxr16v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYQUADCOMPLEX   19

Definition at line 2785 of file wn_fio.cxx.

Referenced by do_lioxc16(), do_lioxc16_mp(), do_lioxc16v(), do_lioxc16v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYQUADLONG   20

Definition at line 2786 of file wn_fio.cxx.

#define TYREAL   6

Definition at line 2772 of file wn_fio.cxx.

Referenced by do_f4f8(), do_fior4_mp(), do_fioxc4(), do_fioxc4_mp(), do_fioxc4v(), do_fioxc4v_mp(), do_fioxr4(), do_fioxr4_mp(), do_fioxr4v(), do_fioxr4v_mp(), do_lioxr4(), do_lioxr4_mp(), do_lioxr4v(), do_lioxr4v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYSHORT   3

Definition at line 2769 of file wn_fio.cxx.

Referenced by do_fioxi2(), do_fioxi2_mp(), do_fioxi2v(), do_fioxi2v_mp(), do_lioxi2(), do_lioxi2_mp(), do_lioxi2v(), do_lioxi2v_mp(), Gen_Impld_Io_Calls(), l_read(), l_write(), NAMEgetvar(), NAMEs_wsNe_work(), rd_ed(), and wrt_G().

#define TYSTRUCTURE   16

Definition at line 2782 of file wn_fio.cxx.

Referenced by Gen_Impld_Io_Calls().

#define TYSUBR   15

Definition at line 2781 of file wn_fio.cxx.

#define TYUNKNOWN   0

Definition at line 2766 of file wn_fio.cxx.

Referenced by Gen_Impld_Io_Calls().

#define WN_type_pointed ( x   )     TY_pointed(WN_type(x))

Definition at line 766 of file wn_fio.cxx.

Referenced by lower_io_items().

#define WNOPR ( w   )     (WN_operator(w))

Definition at line 127 of file wn_fio.cxx.

Referenced by arrsection_to_array(), Convert_Iol_Item(), Create_Field_Entry(), Create_Io_Entry(), cwh_addr_do_bounds_check(), cwh_addr_find_address(), cwh_addr_find_section(), cwh_addr_nonc_recast(), cwh_addr_substr_util(), cwh_addr_WN_ST(), cwh_convert_to_ty(), cwh_dope_from_expression(), cwh_expr_extract_arrayexp(), cwh_expr_temp(), cwh_inline_allocate(), cwh_intrin_wrap_value_parm(), cwh_io_analyse_arr(), cwh_io_analyse_expr(), cwh_io_analyse_index_expr(), cwh_io_analyse_io_item(), cwh_io_conv_array_to_dope(), cwh_io_conv_arrsection_to_dope(), cwh_io_create_dope_from_item(), cwh_io_search_implied_do_index(), cwh_mp_region(), cwh_stab_const_ST(), cwh_stmt_call_helper(), cwh_types_array_temp_TY(), cwh_types_mk_basic_TY(), cwh_types_mk_character_TY(), cwh_types_WN_TY(), fei_addr_con(), fei_allocate(), fei_arg_addr(), fei_concat(), fei_cvtop(), fei_doloop(), fei_fcd(), fei_nseq_subscr(), fei_seq_subscr(), Replace_Impl_Idx(), and TCON_from_stack().

#define WRITE_MODE ( x   )     (!((x) & READ_WRITE_MASK))

Definition at line 11705 of file wn_fio.cxx.

#define WRITE_STMT   0

Referenced by cvrt_exp_to_pdg(), fei_formatted_write(), fei_iolength(), fei_unformatted_write(), and lower_f77_io_items().

Typedef Documentation

typedef struct auxst AUXST

typedef struct alist DUMMIES

typedef struct impdo_info IMPDO_INFO

Definition at line 111 of file wn_fio.cxx.

typedef struct blist ITEM

typedef struct clist LIST

typedef struct marked_set MARKED_SET

Definition at line 120 of file wn_fio.cxx.

Enumeration Type Documentation

enum arb_enum

Enumerator:
ARB_UBOUND 
ARB_LBOUND 
ARB_STRIDE 

Definition at line 1912 of file wn_fio.cxx.

enum FIOCLASS

Enumerator:
FIOCLASS_NONE 
FIOCLASS_FIRST 
FCL_EXT_FORMATTED 
FCL_EXT_UNFORMATTED 
FCL_EXT_LIST 
FCL_EXT_NAMELIST 
FCL_INT_FORMATTED 
FCL_INT_LIST 
FCL_DIR_FORMATTED 
FCL_DIR_UNFORMATTED 
FIOCLASS_LAST 

Definition at line 708 of file wn_fio.cxx.

enum FIOFORMATTYPE

Enumerator:
FIOFORMATTYPE_NONE 
FIOFORMATTYPE_FIRST 
FFT_FORMAT 
FFT_UNFORMAT 
FFT_LIST 
FIOFORMATTYPE_LAST 

Definition at line 380 of file wn_fio.cxx.

enum FIOITEMTYPE

Enumerator:
FIOITEMTYPE_NONE 
FIOITEMTYPE_FIRST 
FIT_ADDRESS4 
FIT_ADDRESS8 
FIT_CHARACTER 
FIT_INTEGER1 
FIT_INTEGER2 
FIT_INTEGER4 
FIT_INTEGER8 
FIT_LOGICAL1 
FIT_LOGICAL2 
FIT_LOGICAL4 
FIT_LOGICAL8 
FIT_REAL4 
FIT_REAL8 
FIT_REAL16 
FIT_COMPLEX4 
FIT_COMPLEX8 
FIT_COMPLEX16 
FIT_RECORD 
FIOITEMTYPE_LAST 

Definition at line 352 of file wn_fio.cxx.

enum FIOOPER

Enumerator:
FIOOPER_NONE 
FIOOPER_FIRST 
FIO_EXT_READ_FORMAT_start 
FIO_EXT_READ_UNFORMAT_start 
FIO_EXT_READ_LIST_start 
FIO_EXT_READ_NAMELIST_start 
FIO_EXT_WRITE_FORMAT_start 
FIO_EXT_WRITE_UNFORMAT_start 
FIO_EXT_WRITE_LIST_start 
FIO_EXT_WRITE_NAMELIST_start 
FIO_EXT_REWRITE_FORMAT_start 
FIO_EXT_REWRITE_UNFORMAT_start 
FIO_EXT_REWRITE_LIST_start 
FIO_EXT_READ_FORMAT_end 
FIO_EXT_READ_UNFORMAT_end 
FIO_EXT_READ_LIST_end 
FIO_EXT_WRITE_FORMAT_end 
FIO_EXT_WRITE_UNFORMAT_end 
FIO_EXT_WRITE_LIST_end 
FIO_EXT_REWRITE_FORMAT_end 
FIO_EXT_REWRITE_UNFORMAT_end 
FIO_EXT_REWRITE_LIST_end 
FIO_INT_READ_FORMAT_start 
FIO_INT_READ_LIST_start 
FIO_INT_WRITE_FORMAT_start 
FIO_INT_WRITE_LIST_start 
FIO_INT_READ_FORMAT_end 
FIO_INT_READ_LIST_end 
FIO_INT_WRITE_FORMAT_end 
FIO_INT_WRITE_LIST_end 
FIO_DIR_READ_FORMAT_start 
FIO_DIR_READ_UNFORMAT_start 
FIO_DIR_WRITE_FORMAT_start 
FIO_DIR_WRITE_UNFORMAT_start 
FIO_DIR_READ_FORMAT_end 
FIO_DIR_READ_UNFORMAT_end 
FIO_DIR_WRITE_FORMAT_end 
FIO_DIR_WRITE_UNFORMAT_end 
FIO_FORMAT_ADDR4_item 
FIO_FORMAT_ADDR8_item 
FIO_FORMAT_CHAR_item 
FIO_FORMAT_I1_item 
FIO_FORMAT_I2_item 
FIO_FORMAT_I4_item 
FIO_FORMAT_I8_item 
FIO_FORMAT_L1_item 
FIO_FORMAT_L2_item 
FIO_FORMAT_L4_item 
FIO_FORMAT_L8_item 
FIO_FORMAT_R4_item 
FIO_FORMAT_R8_item 
FIO_FORMAT_R16_item 
FIO_FORMAT_C4_item 
FIO_FORMAT_C8_item 
FIO_FORMAT_C16_item 
FIO_FORMAT_ADDR4_value 
FIO_FORMAT_ADDR8_value 
FIO_FORMAT_CHAR_value 
FIO_FORMAT_I1_value 
FIO_FORMAT_I2_value 
FIO_FORMAT_I4_value 
FIO_FORMAT_I8_value 
FIO_FORMAT_L1_value 
FIO_FORMAT_L2_value 
FIO_FORMAT_L4_value 
FIO_FORMAT_L8_value 
FIO_FORMAT_R4_value 
FIO_FORMAT_R8_value 
FIO_FORMAT_R16_value 
FIO_FORMAT_C4_value 
FIO_FORMAT_C8_value 
FIO_FORMAT_C16_value 
FIO_UNFORMAT_ADDR4_item 
FIO_UNFORMAT_ADDR8_item 
FIO_UNFORMAT_CHAR_item 
FIO_UNFORMAT_I1_item 
FIO_UNFORMAT_I2_item 
FIO_UNFORMAT_I4_item 
FIO_UNFORMAT_I8_item 
FIO_UNFORMAT_L1_item 
FIO_UNFORMAT_L2_item 
FIO_UNFORMAT_L4_item 
FIO_UNFORMAT_L8_item 
FIO_UNFORMAT_R4_item 
FIO_UNFORMAT_R8_item 
FIO_UNFORMAT_R16_item 
FIO_UNFORMAT_C4_item 
FIO_UNFORMAT_C8_item 
FIO_UNFORMAT_C16_item 
FIO_UNFORMAT_ADDR4_value 
FIO_UNFORMAT_ADDR8_value 
FIO_UNFORMAT_CHAR_value 
FIO_UNFORMAT_I1_value 
FIO_UNFORMAT_I2_value 
FIO_UNFORMAT_I4_value 
FIO_UNFORMAT_I8_value 
FIO_UNFORMAT_L1_value 
FIO_UNFORMAT_L2_value 
FIO_UNFORMAT_L4_value 
FIO_UNFORMAT_L8_value 
FIO_UNFORMAT_R4_value 
FIO_UNFORMAT_R8_value 
FIO_UNFORMAT_R16_value 
FIO_UNFORMAT_C4_value 
FIO_UNFORMAT_C8_value 
FIO_UNFORMAT_C16_value 
FIO_LIST_ADDR4_item 
FIO_LIST_ADDR8_item 
FIO_LIST_CHAR_item 
FIO_LIST_I1_item 
FIO_LIST_I2_item 
FIO_LIST_I4_item 
FIO_LIST_I8_item 
FIO_LIST_L1_item 
FIO_LIST_L2_item 
FIO_LIST_L4_item 
FIO_LIST_L8_item 
FIO_LIST_R4_item 
FIO_LIST_R8_item 
FIO_LIST_R16_item 
FIO_LIST_C4_item 
FIO_LIST_C8_item 
FIO_LIST_C16_item 
FIO_LIST_ADDR4_value 
FIO_LIST_ADDR8_value 
FIO_LIST_CHAR_value 
FIO_LIST_I1_value 
FIO_LIST_I2_value 
FIO_LIST_I4_value 
FIO_LIST_I8_value 
FIO_LIST_L1_value 
FIO_LIST_L2_value 
FIO_LIST_L4_value 
FIO_LIST_L8_value 
FIO_LIST_R4_value 
FIO_LIST_R8_value 
FIO_LIST_R16_value 
FIO_LIST_C4_value 
FIO_LIST_C8_value 
FIO_LIST_C16_value 
FIO_BACKSPACE 
FIO_CLOSE 
FIO_DELETE 
FIO_ENDFILE 
FIO_FIND 
FIO_INQUIRE 
FIO_OPEN 
FIO_REWIND 
FIO_UNLOCK 
FIO_DEFINEFILE 
FIO_CR_READ_UNFORMATTED 
FIO_CR_WRITE_UNFORMATTED 
FIO_CR_READ_FORMATTED 
FIO_CR_WRITE_FORMATTED 
FIO_CR_READ_NAMELIST 
FIO_CR_WRITE_NAMELIST 
FIO_INQLENGTH 
FIO_CR_OPEN 
FIO_CR_CLOSE 
FIO_CR_ENDFILE 
FIO_CR_REWIND 
FIO_CR_INQUIRE 
FIO_CR_BACKSPACE 
FIO_CR_BUFFERIN 
FIO_CR_BUFFEROUT 
FIOOPER_LAST 

Definition at line 147 of file wn_fio.cxx.

enum FIOSTRUCT

Enumerator:
FIOSTRUCT_NONE 
FIOSTRUCT_FIRST 
FSC_CIERR 
FSC_CIUNIT 
FSC_CIEND 
FSC_CIFMT 
FSC_CIREC 
FSC_CIMATCH 
FSC_CIKEYTYPE 
FSC_CIKEYVAL 
FSC_CIKEYID 
FSC_CINML 
FSC_CIKEYVALLEN 
FSC_CIADVANCE 
FSC_CIADVANCELEN 
FSC_CIEOR 
FSC_CISIZE 
FSC_CIVFMT 
FSC_CIVFMTFP 
FSI_ICIERR 
FSI_ICIUNIT 
FSI_ICIEND 
FSI_ICIFMT 
FSI_ICIRLEN 
FSI_ICIRNUM 
FSI_ICIVFMT 
FSI_ICIVFMTFP 
FSO_OERR 
FSO_OUNIT 
FSO_OFNM 
FSO_OFNMLEN 
FSO_OSTA 
FSO_OACC 
FSO_OFM 
FSO_ORL 
FSO_OBLNK 
FSO_OCC 
FSO_OORG 
FSO_OSHARED 
FSO_OREADONLY 
FSO_ONKEYS 
FSO_OKEYS 
FSO_OASSOCV 
FSO_OMAXREC 
FSO_ODFNM 
FSO_ODFNMLEN 
FSO_ODISP 
FSO_ORECTYPE 
FSO_OCONV 
FSO_OCONVLEN 
FSO_OBUFFSIZE 
FSO_ODIRECT 
FSO_OACTION 
FSO_OACTIONLEN 
FSO_ODELIM 
FSO_ODELIMLEN 
FSO_OPAD 
FSO_OPADLEN 
FSO_OPOSITION 
FSO_OPOSITIONLEN 
FSF_FERR 
FSF_FUNIT 
FSF_FREC 
FSN_INERR 
FSN_INUNIT 
FSN_INFILE 
FSN_INFILEN 
FSN_INEX 
FSN_INOPEN 
FSN_INNUM 
FSN_INNAMED 
FSN_INNAME 
FSN_INNAMLEN 
FSN_INACC 
FSN_INACCLEN 
FSN_INSEQ 
FSN_INSEQLEN 
FSN_INDIR 
FSN_INDIRLEN 
FSN_INFMT 
FSN_INFMTLEN 
FSN_INFORM 
FSN_INFORMLEN 
FSN_INUNF 
FSN_INUNFLEN 
FSN_INRECL 
FSN_INNREC 
FSN_INBLANK 
FSN_INBLANKLEN 
FSN_INDEFAULTFILE 
FSN_INDEFAULTFILELEN 
FSN_INCC 
FSN_INCCLEN 
FSN_INKEYED 
FSN_INKEYEDLEN 
FSN_INORG 
FSN_INORGLEN 
FSN_INRECORDTYPE 
FSN_INRECORDTYPELEN 
FSN_INCONV 
FSN_INCONVLEN 
FSN_INBUFFSIZE 
FSN_INACTION 
FSN_INACTIONLEN 
FSN_INDELIM 
FSN_INDELIMLEN 
FSN_INPAD 
FSN_INPADLEN 
FSN_INPOSITION 
FSN_INPOSITIONLEN 
FSN_INREAD 
FSN_INREADLEN 
FSN_INREADWRITE 
FSN_INREADWRITELEN 
FSN_INWRITE 
FSN_INWRITELEN 
FSA_AERR 
FSA_AUNIT 
FSL_CLERR 
FSL_CLUNIT 
FSL_CLSTA 
FSK_START 
FSK_END 
FSK_KEYTYPE 
FCR_CI_WORD1 
FCR_CI_UNIT 
FCR_CI_IOSTAT 
FCR_CI_REC 
FCR_CI_PARSFMT 
FCR_CI_FMTSRC 
FCR_CI_ADVANCE 
FCR_CI_SIZE 
FCR_FCD_ADDR 
FCR_FCD_LEN 
FCR_IOL_HEAD 
FCR_OPEN_VERSION 
FCR_OPEN_UNIT 
FCR_OPEN_IOSTAT 
FCR_OPEN_ERR 
FCR_OPEN_FILE 
FCR_OPEN_STATUS 
FCR_OPEN_ACCESS 
FCR_OPEN_FORM 
FCR_OPEN_RECL 
FCR_OPEN_BLANK 
FCR_OPEN_POSITION 
FCR_OPEN_ACTION 
FCR_OPEN_DELIM 
FCR_OPEN_PAD 
FCR_CLOSE_VERSION 
FCR_CLOSE_UNIT 
FCR_CLOSE_IOSTAT 
FCR_CLOSE_ERR 
FCR_CLOSE_STATUS 
FCR_INQ_VERSION 
FCR_INQ_UNIT 
FCR_INQ_FILE 
FCR_INQ_IOSTAT 
FCR_INQ_ERR 
FCR_INQ_EXIST 
FCR_INQ_OPENED 
FCR_INQ_NUMBER 
FCR_INQ_NAMED 
FCR_INQ_NAME 
FCR_INQ_ACCESS 
FCR_INQ_SEQUENTIAL 
FCR_INQ_DIRECT 
FCR_INQ_FORM 
FCR_INQ_FORMATTED 
FCR_INQ_UNFORMATTED 
FCR_INQ_RECL 
FCR_INQ_NEXTREC 
FCR_INQ_BLANK 
FCR_INQ_POSITION 
FCR_INQ_ACTION 
FCR_INQ_READ 
FCR_INQ_WRITE 
FCR_INQ_READWRITE 
FCR_INQ_DELIM 
FCR_INQ_PAD 
FCR_DV_BASE_PTR 
FCR_DV_BASE_LEN 
FCR_DV_FLAG_INFO 
FCR_DV_TYPE_LEN 
FCR_DV_ORIG_BASE 
FCR_DV_ORIG_SIZE 
FCR_DV_DIM1_LB 
FCR_DV_DIM1_EXTENT 
FCR_DV_DIM1_STRIDE 
FCR_DV_DIM2_LB 
FCR_DV_DIM2_EXTENT 
FCR_DV_DIM2_STRIDE 
FCR_DV_DIM3_LB 
FCR_DV_DIM3_EXTENT 
FCR_DV_DIM3_STRIDE 
FCR_DV_DIM4_LB 
FCR_DV_DIM4_EXTENT 
FCR_DV_DIM4_STRIDE 
FCR_DV_DIM5_LB 
FCR_DV_DIM5_EXTENT 
FCR_DV_DIM5_STRIDE 
FCR_DV_DIM6_LB 
FCR_DV_DIM6_EXTENT 
FCR_DV_DIM6_STRIDE 
FCR_DV_DIM7_LB 
FCR_DV_DIM7_EXTENT 
FCR_DV_DIM7_STRIDE 
FCR_IOSCALAR_ENTRY 
FCR_IOSCALAR_TYPE_T 
FCR_IOSCALAR_ADDR 
FCR_IOSCALAR_CHAR_LEN 
FCR_IOARRAY_ENTRY 
FCR_IOARRAY_DV_ADDR 
FCR_IOARRAY_FLAG 
FCR_IOARRAY_IDX1 
FCR_IOARRAY_IDX2 
FCR_IOARRAY_IDX3 
FCR_IOARRAY_IDX4 
FCR_IOARRAY_IDX5 
FCR_IOARRAY_IDX6 
FCR_IOARRAY_IDX7 
FCR_IOIMPLIEDDO_ENTRY 
FCR_IOIMPLIEDDO_VAR_ADDR 
FCR_IOIMPLIEDDO_BEGIN_CNT 
FCR_IOIMPLIEDDO_END_CNT 
FCR_IOIMPLIEDDO_INC_CNT 
FIOSTRUCT_LAST 

Definition at line 430 of file wn_fio.cxx.

enum FIOSTRUCTID

Enumerator:
FIOSTRUCTID_NONE 
FIOSTRUCTID_FIRST 
FID_CILIST 
FID_ICILIST 
FID_OLIST 
FID_FLIST 
FID_INLIST 
FID_ALIST 
FID_CLLIST 
FID_KEYSPEC 
FID_CRAY_CLIST 
FID_CRAY_FCD 
FID_CRAY_IOLIST 
FID_CRAY_OPENLIST 
FID_CRAY_CLOSELIST 
FID_CRAY_INQLIST 
FID_CRAY_DOPEVEC 
FID_IOSCALAR_ENTRY 
FID_IOARRAY_ENTRY 
FID_IOIMPLIEDDO_ENTRY 
FIOSTRUCTID_LAST 

Definition at line 393 of file wn_fio.cxx.

Function Documentation

static void Add_To_Dummy_List ( WN *  dummy  )  [static]

Definition at line 2016 of file wn_fio.cxx.

References Alloc_More_For_Dummy_Array(), CLASS_VAR, fio_dummy_count, fio_dummy_max, fio_dummy_ofst, fio_dummy_ref, fio_dummy_tyidx, io_set_addr_saved_flag(), OPR_ADD, OPR_LDA, OPR_LDID, OPR_MPY, ST_class, WN_kid0(), WN_kid1(), WN_offset(), WN_operator(), WN_st(), and WN_ty().

Referenced by Gen_Io_PutAddrWN(), Gen_Iolist_PutAddrWN(), lower_cray_io_items(), and lower_io_statement().

static void Add_To_Iolist ( FIOSTRUCTID  id,
FLD_HANDLE &  last_field,
INT32 *  offset,
INT32  ndims 
) [static]

Definition at line 6502 of file wn_fio.cxx.

References dope_vector_ty, Fail_FmtAssertion(), FID_IOARRAY_ENTRY, FIO_SIZE, fiostruct_ty, FLD_Init(), Make_IoStruct_TY(), New_FLD(), Pointer_Size, and Save_Str().

Referenced by Create_Io_Entry().

static void Alloc_More_For_Dummy_Array ( void   )  [static]

Definition at line 1993 of file wn_fio.cxx.

References BOOL, fio_dummy_max, fio_dummy_ofst, fio_dummy_ref, fio_dummy_tyidx, malloc, and realloc.

Referenced by Add_To_Dummy_List().

static void Build_Io_Mask ( INT32 *  iomask,
INT32  ioshift,
WN *  wn 
) [static]

Definition at line 4221 of file wn_fio.cxx.

References INT32, KIND_ARRAY, KIND_POINTER, mtype, OPR_ILOAD, OPR_LDA, OPR_LDID, TY_etype, TY_kind, TY_mtype, TY_pointed, WN_operator(), and WN_ty().

Referenced by lower_io_statement().

static WN* Convert_Iol_Item ( WN *  item,
TY_IDX  fty 
) [static]

Definition at line 7372 of file wn_fio.cxx.

References IOL_ARRAY, IOL_CHAR, IOL_CHAR_ARRAY, IOL_EXPR, IOL_VAR, KIND_ARRAY, MTYPE_U1, OPC_I4INTCONST, OPR_LDA, TY_AR_etype, TY_is_character, TY_kind, TY_mtype, TY_pointer, TY_size, WN_COPY_Tree(), WN_CreateIntconst, WN_CreateIoItem1, WN_CreateIoItem2, WN_CreateIoItem3, WN_io_item(), WN_kid0(), WN_set_ty(), and WNOPR.

Referenced by Create_Field_Entry().

static void copyout_temp_to_var ( WN *  addr,
ST *  st,
TY_IDX  ty 
) [static]

Definition at line 4470 of file wn_fio.cxx.

References Be_Type_Tbl, Fail_FmtAssertion(), FALSE, Make_Pointer_Type(), MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_I8, MTYPE_name, MTYPE_U1, MTYPE_U2, MTYPE_U4, MTYPE_U8, NULL, OPC_I1ISTORE, OPC_I2ISTORE, OPC_I4I4LDID, OPC_I8I4LDID, OPC_I8ISTORE, OPC_U1ISTORE, OPC_U2ISTORE, OPC_U4U4LDID, OPC_U8ISTORE, OPC_U8U4LDID, TY_mtype, wn, WN_CreateBlock, WN_CreateIstore, WN_CreateLdid, and WN_INSERT_BlockLast.

Referenced by get_32bit_cilist_item().

INT32 Cray_Type_From_TY ( TY_IDX  typ  ) 

Definition at line 5908 of file wn_fio.cxx.

References DevAssert, MTYPE_C4, MTYPE_C8, MTYPE_CQ, MTYPE_F4, MTYPE_F8, MTYPE_FQ, MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_I8, MTYPE_U1, MTYPE_U2, MTYPE_U4, MTYPE_U8, TY_mtype, TYPE_ID, and Type_is_logical().

Referenced by Create_Io_Entry().

static WN* Create_Dope_From_IoItem ( WN *  block,
WN *  item 
) [static]

Definition at line 5977 of file wn_fio.cxx.

References dope_header::a_contig, dope_header::assoc, assoc(), FALSE, FCR_DV_BASE_LEN, FCR_DV_BASE_PTR, FCR_DV_DIM1_EXTENT, FCR_DV_DIM1_LB, FCR_DV_DIM1_STRIDE, FCR_DV_FLAG_INFO, FCR_DV_ORIG_BASE, FCR_DV_ORIG_SIZE, FCR_DV_TYPE_LEN, FID_CRAY_DOPEVEC, FIO_OFFSET, FIO_TYPE, Gen_Iolist_PutAddrWN(), Gen_Iolist_PutFieldConst(), Gen_Iolist_PutFieldWN(), Get_IoStruct_ST(), INT64, f90_type::int_len, Make_IoAddr_WN(), dope_header::n_dim, Target_Byte_Sex, f90_type::type, UINT64, WN_COPY_Tree(), WN_kid0(), WN_kid1(), and WN_kid2().

Referenced by lower_io_statement().

static WN* Create_DopeVector_WN ( WN *  block,
WN *  arr_item,
TY_IDX  ity,
TY_IDX  ety,
BOOL  impl_do 
) [static]

Definition at line 6082 of file wn_fio.cxx.

References dope_header::a_contig, ARB_const_lbnd, ARB_const_ubnd, ARB_lbnd_val, ARB_LBOUND, ARB_ubnd_val, ARB_UBOUND, dope_header::assoc, assoc(), f90_type::dec_len, DevAssert, f90_type::dpflag, Dv_Type_From_TY(), FALSE, FCR_DV_BASE_LEN, FCR_DV_BASE_PTR, FCR_DV_DIM1_EXTENT, FCR_DV_DIM1_LB, FCR_DV_DIM1_STRIDE, FCR_DV_FLAG_INFO, FCR_DV_ORIG_BASE, FCR_DV_ORIG_SIZE, FCR_DV_TYPE_LEN, FID_CRAY_DOPEVEC, FIO_OFFSET, FIO_TYPE, Gen_Iolist_PutAddrWN(), Gen_Iolist_PutFieldConst(), Gen_Iolist_PutFieldWN(), Get_ARB_WN(), Get_IoStruct_ST(), i, INT32, INT64, f90_type::int_len, IOL_CHAR_ARRAY, Is_True, KIND_ARRAY, f90_type::kind_or_star, Make_IoAddr_WN(), MTYPE_I8, dope_header::n_dim, NULL, OPC_I8INTCONST, OPR_INTCONST, OPR_IO_ITEM, dope_header::ptr_alloc, Target_Byte_Sex, TY_AR_etype, TY_AR_ndims, TY_arb(), TY_is_character, TY_kind, TY_pointer, TY_size, Ty_Table, f90_type::type, UINT64, WN_Add, WN_const_val(), WN_COPY_Tree(), WN_CreateIntconst, WN_Delete, WN_element_size(), WN_Intconst(), WN_io_item(), WN_kid0(), WN_kid1(), WN_kid2(), WN_Mpy, WN_operator(), WN_operator_is, and WN_Sub.

Referenced by Create_Io_Entry().

static WN* Create_fcd ( WN *  block,
WN *  kid1,
WN *  kid2 
) [static]

Definition at line 4444 of file wn_fio.cxx.

References FALSE, fcd_size, FCR_FCD_ADDR, FCR_FCD_LEN, FID_CRAY_FCD, Gen_Io_PutAddrWN(), Gen_Io_PutFieldWN(), Get_IoStruct_ST(), opc_lda, OPC_U4INTCONST, ST_type, TY_pointer, WN_COPY_Tree(), WN_CreateIntconst, WN_CreateLda, and WN_CreateMload.

Referenced by lower_io_statement().

static INT32 Create_Field_Entry ( WN *  block,
WN *  item,
WN *  cilist_wn,
WN *  stack_wn,
WN *  iostat1,
WN *  iostat2,
FIOOPER  form,
ST **  iolist_st,
TY_IDX *  iolist_ty,
INT32 *  iolist_size,
FLD_HANDLE &  last_field,
INT32 *  offset,
INT32 *  icount,
INT32  nested,
FLD_HANDLE  fld,
INT64  foffset 
) [static]

Definition at line 7431 of file wn_fio.cxx.

References Convert_Iol_Item(), Create_Io_Entry(), Fail_FmtAssertion(), FALSE, FLD_type, INT32, KIND_ARRAY, KIND_POINTER, KIND_SCALAR, KIND_STRUCT, lower_f77_record_items(), Make_Pointer_Type(), MTYPE_name, OPR_LDA, TRUE, TY_AR_etype, TY_kind, TY_mtype, void, WN_kid0(), WN_lda_offset(), and WNOPR.

Referenced by lower_f77_record_items().

static INT32 Create_Io_Entry ( WN *  block,
WN *  item,
WN *  cilist_wn,
WN *  stack_wn,
WN *  iostat1,
WN *  iostat2,
FIOOPER  form,
ST **  iolist_st,
TY_IDX *  iolist_ty,
INT32 *  iolist_size,
FLD_HANDLE &  last_field,
INT32 *  offset,
INT32 *  icount,
INT32  nested,
BOOL  need_loop 
) [static]

Definition at line 6532 of file wn_fio.cxx.

References abort, Add_To_Iolist(), ARB_const_lbnd, ARB_const_ubnd, ARB_dimension(), ARB_lbnd_tree, ARB_lbnd_val, ARB_LBOUND, ARB_ubnd_tree, ARB_ubnd_val, ARB_UBOUND, ARI_bnd, ARI_ndims, Be_Type_Tbl, BOOL, Boolean_type, Cray_Type_From_TY(), Create_DopeVector_WN(), create_pointer_to_node(), Create_Preg(), extract_calls(), Fail_FmtAssertion(), FALSE, FCR_IOARRAY_DV_ADDR, FCR_IOARRAY_ENTRY, FCR_IOARRAY_FLAG, FCR_IOARRAY_IDX1, FCR_IOIMPLIEDDO_BEGIN_CNT, FCR_IOIMPLIEDDO_END_CNT, FCR_IOIMPLIEDDO_ENTRY, FCR_IOIMPLIEDDO_INC_CNT, FCR_IOIMPLIEDDO_VAR_ADDR, FCR_IOSCALAR_ADDR, FCR_IOSCALAR_CHAR_LEN, FCR_IOSCALAR_TYPE_T, FID_CRAY_IOLIST, FID_IOARRAY_ENTRY, FID_IOIMPLIEDDO_ENTRY, FID_IOSCALAR_ENTRY, FIO_CR_READ_FORMATTED, FIO_CR_READ_NAMELIST, FIO_CR_READ_UNFORMATTED, FIO_OFFSET, FIO_TYPE, fiostruct_ty, first_last, FLD_name, FLD_next, FLD_ofst, FLD_type, fprintf(), Gen_Iolist_PutAddrWN(), Gen_Iolist_PutFieldConst(), Gen_Iolist_PutFieldWN(), Gen_Temp_Symbol(), Get_ARB_WN(), Get_IoStruct_ST(), i, iolist_header_type::icount, idx, ioarray_entry_type::indflag, INT32, Int_Type, ioentry_header_type::ioentsize, iolist_header_type::ioetsize, IOL_ARRAY, IOL_CHAR, IOL_CHAR_ARRAY, IOL_DOPE, IOL_EXPR, IOL_IMPLIED_DO, IOL_IMPLIED_DO_1TRIP, IOL_LOGICAL, IOL_VAR, iolist_header_type::iolfirst, iolist_header_type::iollast, KIND_POINTER, KIND_SCALAR, KIND_STRUCT, lower_f77_io_items(), lower_f77_record_items(), Make_Cray_Io_Call(), Make_IoAddr_WN(), MAX_DIM, mtype, MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_name, MTYPE_To_PREG, MTYPE_To_TY, MTYPE_U8, MTYPE_V, NESTED_DOPE, NESTED_ITEM, New_FLD(), new_item(), NULL, num_impl, OPC_I4INTCONST, OPC_IntWord, OPC_U4ARRAY, OPC_U8ARRAY, OPCODE_make_op(), OPR_ADD, OPR_ARRAY, OPR_CONST, OPR_CVTL, OPR_INTCONST, OPR_LDA, OPR_LDID, Pointer_Size, Pointer_type, Replace_Impl_Idx(), Save_Str(), Set_FLD_last_field(), Set_ST_type, Set_TY_size, ST_type, start, STC_val, step(), Target_Byte_Sex, TRUE, TY_AR_etype, TY_AR_ndims, TY_arb(), TY_arinfo, TY_fld, TY_kind, TY_mtype, TY_pointed, TY_size, Ty_Table, UINT64, ioentry_header_type::valtype, iolist_header_type::version, WN_const_val(), WN_COPY_Tree(), WN_Create(), WN_CreateExp2, WN_CreateGoto, WN_CreateIntconst, WN_CreateIoItem1, WN_CreateNewLabel(), WN_CreateTruebr, WN_Delete, WN_element_size(), WN_end, WN_GE, WN_idname_offset(), WN_Iload(), WN_index, WN_INSERT_BlockLast, WN_intrinsic(), WN_Istore(), WN_kid(), WN_kid0(), WN_kid1(), WN_kid_count(), WN_label_number(), WN_lda_offset(), WN_Ldid(), WN_LdidPreg(), WN_LE, WN_load_offset(), WN_operator(), WN_Select, WN_set_ty(), WN_st(), WN_start, WN_step, WN_Stid(), WN_StidIntoPreg(), WN_Sub, WN_ty(), WN_Zerocon(), and WNOPR.

Referenced by Create_Field_Entry(), and lower_f77_io_items().

static WN* create_lda_of_temp ( WN *  block,
WN *  tree,
TY_IDX  ty 
) [static]

Definition at line 2127 of file wn_fio.cxx.

References FALSE, Gen_Temp_Symbol(), Is_True, MTYPE_To_TY, OPR_PARM, Pointer_type, ST_type, TY_mtype, TYPE_ID, WN_COPY_Tree(), WN_INSERT_BlockLast, WN_Lda(), WN_operator_is, WN_rtype(), WN_Stid(), and WN_store_offset().

Referenced by create_pointer_to_node().

static TY_IDX Create_Maligned_TY ( INT32  offset,
TY_IDX  ty 
) [static]

Definition at line 3059 of file wn_fio.cxx.

References align, compute_offset_alignment(), FALSE, INT32, Make_Align_Type(), Make_Pointer_Type(), MTYPE_M, MTYPE_To_TY, TY_align, and TY_pointer.

Referenced by Gen_Io_PutAddrWN(), and Gen_Iolist_PutAddrWN().

static void Create_Null_Call ( WN *  block,
FIOOPER  form,
WN *  cilist_wn,
WN *  iostat1,
WN *  iostat2,
WN *  stack_wn 
) [static]

Definition at line 6387 of file wn_fio.cxx.

References CLASS_VAR, Current_pu, EXPORT_LOCAL, FID_CRAY_IOLIST, fiostruct_ty, first_last, io_set_addr_passed_flag(), iolist_header_type::ioetsize, iolist_header_type::iolfirst, iolist_header_type::iollast, Make_Cray_Io_Call(), Make_IoStruct_TY(), New_ST(), NULL, Pointer_Size, Save_Str(), SCLASS_AUTO, Set_TY_size, ST_Init(), Target_Byte_Sex, Ty_Table, UINT64, and iolist_header_type::version.

Referenced by lower_f77_io_items(), and lower_f77_record_items().

static WN* create_pointer_to_node ( WN *  block,
WN *  tree,
TY_IDX  ty,
BOOL  deref 
) [static]

Definition at line 2169 of file wn_fio.cxx.

References BOOL, CLASS_PREG, create_lda_of_temp(), extract_calls(), Get_Current_PU, LANG_F77, LANG_F90, Language, OPC_U4ADD, OPC_U8ADD, OPR_ADD, OPR_ARRAY, OPR_ILOAD, OPR_INTRINSIC_OP, OPR_ISTORE, OPR_LDA, OPR_LDID, OPR_STID, Pointer_Mtype, Pointer_type, PU_f90_lang(), ST_class, TY_is_character, TY_mtype, Ty_Table, TYPE_ID, WN_Add, WN_desc(), WN_Intconst(), WN_kid0(), WN_kid1(), WN_Lda(), WN_load_offset(), WN_opcode(), WN_operator(), WN_rtype(), WN_st(), and WN_store_offset().

Referenced by Create_Io_Entry(), lower_cray_io_items(), and lower_io_statement().

static void cwh_io_add_st_to_marked_set ( ST *  st  )  [static]

Definition at line 12389 of file wn_fio.cxx.

References malloc, Marked_next, and Marked_st.

Referenced by cwh_io_analyse_arr(), cwh_io_analyse_expr(), and cwh_io_analyse_io_item().

static BOOL cwh_io_analyse_arr ( WN *  tree,
IMPDO_INFO *  impdo_set,
INT32  mode 
) [static]

Definition at line 12189 of file wn_fio.cxx.

References addr(), BOOL, CLASS_BLOCK, cwh_io_add_st_to_marked_set(), cwh_io_analyse_expr(), cwh_io_analyse_index_expr(), cwh_io_ST_base(), cwh_stab_visited(), FALSE, i, INT32, KIND_STRUCT, OPR_LDA, READ_MODE, ST_class, ST_type, TRUE, TY_kind, visited, WN_kid(), WN_kid0(), WN_kid_count(), WN_st(), and WNOPR.

Referenced by cwh_io_analyse_io_item().

static BOOL cwh_io_analyse_expr ( WN *  tree,
IMPDO_INFO *  impdo_set,
INT32  mode 
) [static]

Definition at line 12147 of file wn_fio.cxx.

References BOOL, cwh_io_add_st_to_marked_set(), cwh_io_ST_base(), cwh_stab_visited(), FALSE, i, INT32, OPCODE_has_aux(), READ_MODE, TRUE, visited, WN_kid(), WN_kid_count(), WN_opcode(), and WN_st().

Referenced by cwh_io_analyse_arr(), cwh_io_analyse_expr(), cwh_io_analyse_index_expr(), and cwh_io_analyse_io_item().

static INT32 cwh_io_analyse_index_expr ( WN *  tree,
IMPDO_INFO *  impdo_set,
INT32  mode 
) [static]

Definition at line 12253 of file wn_fio.cxx.

References BOOL, cwh_io_analyse_expr(), cwh_io_ST_base(), cwh_stab_visited(), i, INT32, member(), OPR_ADD, OPR_CONST, OPR_INTCONST, OPR_LDID, OPR_SUB, OPR_TRIPLET, pos(), visited, WN_kid(), WN_kid0(), WN_kid1(), WN_operator_is, WN_st(), and WNOPR.

Referenced by cwh_io_analyse_arr(), cwh_io_analyse_index_expr(), and cwh_io_analyse_io_item().

static BOOL cwh_io_analyse_io_item ( WN *  tree,
IMPDO_INFO *  impdo_set,
INT32  mode 
) [static]

Definition at line 11979 of file wn_fio.cxx.

References BOOL, cwh_io_add_st_to_marked_set(), cwh_io_analyse_arr(), cwh_io_analyse_expr(), cwh_io_analyse_index_expr(), cwh_io_ST_base(), cwh_stab_visited(), DevAssert, FALSE, i, Impdo_index, Impdo_next, index(), INT32, IOL_ARRAY, IOL_CHAR, IOL_CHAR_ARRAY, IOL_DOPE, IOL_EXPR, IOL_IMPLIED_DO, IOL_LOGICAL, IOL_VAR, KIND_ARRAY, KIND_POINTER, KIND_STRUCT, malloc, MTYPE_I4, OPR_ARRAY, OPR_CVTL, OPR_ILOAD, OPR_LDA, ST_btype, TRUE, TY_AR_etype, TY_kind, TY_pointed, visited, WN_end, WN_index, WN_intrinsic(), WN_io_item(), WN_kid(), WN_kid0(), WN_kid1(), WN_kid_count(), WN_st(), WN_start, WN_step, WN_ty(), and WNOPR.

Referenced by cwh_io_analyse_io_item(), cwh_io_analyse_io_statement(), and lower_f77_io_items().

static INT32 cwh_io_search_implied_do_index ( WN *  tree,
IMPDO_INFO *  impdo_set 
) [static]

Definition at line 12359 of file wn_fio.cxx.

References i, INT32, member(), OPR_LDID, pos(), WN_kid(), WN_kid_count(), WN_st(), and WNOPR.

Referenced by cwh_io_conv_array_to_dope(), cwh_io_conv_arrsection_to_dope(), and cwh_io_search_implied_do_index().

static ST* cwh_io_ST_base ( ST *  st  )  [static]

Definition at line 11951 of file wn_fio.cxx.

References base, Expand_ST_into_base_and_ofst(), INT64, and ST_ofst.

Referenced by cwh_io_analyse_arr(), cwh_io_analyse_expr(), cwh_io_analyse_index_expr(), and cwh_io_analyse_io_item().

static void cwh_io_unmark ( void   )  [static]

Definition at line 12411 of file wn_fio.cxx.

References BOOL, cwh_stab_visited(), FALSE, free(), Marked_next, Marked_st, and visited.

Referenced by fei_formatted_read(), fei_formatted_write(), fei_iolength(), fei_unformatted_read(), fei_unformatted_write(), and lower_f77_io_items().

static AUXST* cwh_stab_find_auxst ( ST *  st,
BOOL  create 
) [static]

Definition at line 11812 of file wn_fio.cxx.

References auxst::altentry, auxst::assign_id, BE_ST_io_auxst(), BE_ST_set_io_auxst(), auxst::comlist, auxst::dummy, FALSE, clist::first, auxst::fstarg, auxst::isalt, clist::last, malloc, auxst::next, auxst::nlist, NULL, o, auxst::pos, auxst::pragma, ST_level, ST_st_idx, auxst::stem, auxst::stptr, USRCPOS_clear, and auxst::visited.

Referenced by cwh_stab_visited().

static void cwh_stab_free_auxst ( void   )  [static]

Definition at line 11908 of file wn_fio.cxx.

References auxst::altentry, BE_ST_set_io_auxst(), auxst::comlist, CURRENT_SYMTAB, cwh_stab_free_list(), free(), n, auxst::next, auxst::nlist, NULL, o, ST_st_idx, auxst::stem, and auxst::stptr.

Referenced by lower_f77_io_items().

static void cwh_stab_free_list ( LIST **  lp  )  [static]

Definition at line 11876 of file wn_fio.cxx.

References clist::first, free(), i, n, next, and NULL.

Referenced by cwh_stab_free_auxst().

BOOL* cwh_stab_visited ( ST *  st  ) 

Definition at line 11858 of file wn_fio.cxx.

References cwh_stab_find_auxst(), o, TRUE, and auxst::visited.

Referenced by cwh_io_analyse_arr(), cwh_io_analyse_expr(), cwh_io_analyse_index_expr(), cwh_io_analyse_io_item(), and cwh_io_unmark().

static INT32 Dv_Type_From_TY ( TY_IDX  typ  )  [static]

Definition at line 5942 of file wn_fio.cxx.

References DevAssert, DVTYPE_ASCII, DVTYPE_COMPLEX, DVTYPE_DERIVEDWORD, DVTYPE_INTEGER, DVTYPE_LOGICAL, DVTYPE_REAL, MTYPE_is_complex, MTYPE_is_float, MTYPE_is_integral, MTYPE_is_pointer, MTYPE_is_str, MTYPE_is_unsigned, TY_mtype, TYPE_ID, and Type_is_logical().

Referenced by Create_DopeVector_WN().

static WN * extract_calls ( WN *  block,
WN *  tree 
) [static]

Definition at line 4265 of file wn_fio.cxx.

References Be_Type_Tbl, BOOL, Fail_FmtAssertion(), FALSE, Gen_Temp_Symbol(), Get_Return_Info(), Get_Return_Pregs(), i, INT32, INTRN_C4VALTMP, INTRN_C8VALTMP, INTRN_CQVALTMP, INTRN_F4VALTMP, INTRN_F8VALTMP, INTRN_FQVALTMP, INTRN_I4VALTMP, INTRN_I8VALTMP, INTRN_U4C4ADRTMP, INTRN_U4C8ADRTMP, INTRN_U4CQADRTMP, INTRN_U4F4ADRTMP, INTRN_U4F8ADRTMP, INTRN_U4FQADRTMP, INTRN_U4I1ADRTMP, INTRN_U4I2ADRTMP, INTRN_U4I4ADRTMP, INTRN_U4I8ADRTMP, INTRN_U4VADRTMP, INTRN_U4VALTMP, INTRN_U8C4ADRTMP, INTRN_U8C8ADRTMP, INTRN_U8CQADRTMP, INTRN_U8F4ADRTMP, INTRN_U8F8ADRTMP, INTRN_U8FQADRTMP, INTRN_U8I1ADRTMP, INTRN_U8I2ADRTMP, INTRN_U8I4ADRTMP, INTRN_U8I8ADRTMP, INTRN_U8VADRTMP, INTRN_U8VALTMP, io_set_addr_saved_flag(), MTYPE_C4, MTYPE_C8, MTYPE_CQ, MTYPE_F4, MTYPE_F8, MTYPE_FQ, MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_I8, MTYPE_To_TY, MTYPE_U4, MTYPE_U8, MTYPE_UNKNOWN, OPCODE_is_call(), OPR_INTRINSIC_OP, OPR_PARM, Pointer_type, RETURN_INFO_count(), RETURN_INFO_preg(), TRUE, Use_Simulated, WHIRL_Return_Info_On, WN_COPY_Tree(), WN_Delete, WN_INSERT_BlockLast, WN_intrinsic(), WN_kid(), WN_kid0(), WN_kid_count(), WN_Lda(), WN_Ldid(), WN_LdidPreg(), WN_opcode(), WN_operator(), and WN_Stid().

Referenced by Create_Io_Entry(), create_pointer_to_node(), lower_io_items(), and lower_io_statement().

TY_IDX Find_array_TY ( TY_IDX  ty  ) 

Definition at line 2060 of file wn_fio.cxx.

References DevAssert, KIND_ARRAY, KIND_FUNCTION, KIND_POINTER, KIND_SCALAR, KIND_STRUCT, KIND_VOID, TY_kind, TY_pointed, and Ty_Table.

Referenced by Type_is_logical().

TY_IDX Find_scalar_TY ( TY_IDX  ty  ) 

Definition at line 2095 of file wn_fio.cxx.

References DevAssert, KIND_ARRAY, KIND_FUNCTION, KIND_POINTER, KIND_SCALAR, KIND_STRUCT, KIND_VOID, TY_AR_etype, and TY_kind.

Referenced by Type_is_logical().

static void Gen_Impld_Io_Calls ( WN *  block,
FIOFORMATTYPE  form,
FIOITEMTYPE  type,
WN *  iostat1,
WN *  impld_item,
WN *  arr_item,
WN *  mp_unit_ptr 
) [static]

Definition at line 2789 of file wn_fio.cxx.

References Be_Type_Tbl, CLASS_FUNC, CURRENT_SYMTAB, EXPORT_PREEMPTIBLE, Fail_FmtAssertion(), FFT_FORMAT, FFT_LIST, FFT_UNFORMAT, FIOFORMATTYPE_LAST, FIOITEMTYPE_LAST, FIOITEMTYPE_NONE, fioruntime_ty, FIT_ADDRESS4, FIT_ADDRESS8, FIT_CHARACTER, FIT_COMPLEX16, FIT_COMPLEX4, FIT_COMPLEX8, FIT_INTEGER1, FIT_INTEGER2, FIT_INTEGER4, FIT_INTEGER8, FIT_LOGICAL1, FIT_LOGICAL2, FIT_LOGICAL4, FIT_LOGICAL8, FIT_REAL16, FIT_REAL4, FIT_REAL8, FIT_RECORD, Gen_Parm_WN(), Gen_Temp_Symbol(), GLOBAL_SYMTAB, i, Init_fioruntime_ty(), INT32, Make_IoAddr_WN(), MTYPE_I4, MTYPE_I8, New_PU(), New_ST(), NULL, OPC_I4CALL, OPC_I4INTCONST, OPC_I4STID, OPC_I8STID, Pointer_Size, pu, PU_Init(), Save_Str(), SCLASS_EXTERN, size, ST_Init(), ST_st_idx, ST_type, strcpy, strlen(), TY_AR_etype, TY_pointed, TY_size, Ty_Table, TYADDR, TYBYTE, TYCHAR, TYCOMPLEX, TYDCOMPLEX, TYDREAL, TYINT, TYLOGICAL1, TYLOGICAL2, TYLOGICAL4, TYLOGICAL8, TYLONGLONG, TYQUAD, TYQUADCOMPLEX, TYREAL, TYSHORT, TYSTRUCTURE, TYUNKNOWN, wn, WN_COPY_Tree(), WN_Create(), WN_CreateIntconst, WN_CreateStid, WN_end, WN_index, WN_INSERT_BlockLast, WN_kid(), WN_kid0(), WN_Set_Call_Non_Data_Mod, WN_Set_Call_Non_Data_Ref, WN_Set_Call_Parm_Mod, WN_Set_Call_Parm_Ref, WN_st(), WN_st_idx(), WN_start, WN_step, and WN_ty().

Referenced by lower_io_items().

static void Gen_Io_Calls ( WN *  block,
FIOOPER  op,
WN *  iostat1,
WN *  iostat2,
INT32  kids,
WN *  kid0,
WN *  kid1,
WN *  kid2,
WN *  kid3 
) [static]

Definition at line 2671 of file wn_fio.cxx.

References Be_Type_Tbl, CLASS_VAR, Fail_FmtAssertion(), FIO_CR_READ_NAMELIST, FIO_CR_WRITE_NAMELIST, fio_dummy_count, fio_dummy_ofst, fio_dummy_ref, fio_dummy_tyidx, FIO_INQLENGTH, Gen_Parm_WN(), GET_RUNTIME_ST, i, INT32, io_set_addr_passed_flag(), NULL, OPC_I4CALL, OPC_VCALL, Pointer_type, ST_class, ST_st_idx, wn, WN_COPY_Tree(), WN_Create(), WN_CreateParm, WN_DELETE_Tree(), WN_INSERT_BlockLast, WN_kid(), WN_kid0(), WN_kid1(), WN_kid2(), WN_kid3(), WN_kid_count(), WN_Lda(), WN_Ldid(), WN_PARM_BY_REFERENCE, WN_PARM_DUMMY, WN_Set_Call_Non_Data_Mod, WN_Set_Call_Non_Data_Ref, WN_Set_Call_Non_Parm_Ref, WN_Set_Call_Parm_Mod, WN_Set_Call_Parm_Ref, and WN_st_idx().

static void Gen_Io_GetFieldST ( WN *  block,
ST *  var,
ST *  st,
FIOSTRUCT  field 
) [static]

Definition at line 3419 of file wn_fio.cxx.

References Be_Type_Tbl, Fail_FmtAssertion(), INT32, MTYPE_I4, MTYPE_I8, MTYPE_name, FIOSTRUCT_INFO::offset32, FIOSTRUCT_INFO::offset64, OPC_I4I4LDID, OPC_I4I8CVT, OPC_I4STID, OPC_I8I4LDID, OPC_I8I8LDID, OPC_I8STID, Pointer_Size, ST_btype, ST_type, FIOSTRUCT_INFO::type32, FIOSTRUCT_INFO::type64, wn, WN_CreateExp1, WN_CreateLdid, WN_CreateStid, and WN_INSERT_BlockLast.

static void Gen_Io_GetFieldWN ( WN *  block,
WN *  wn,
ST *  st,
FIOSTRUCT  field 
) [static]

Definition at line 3483 of file wn_fio.cxx.

References Be_Type_Tbl, Fail_FmtAssertion(), INT32, MTYPE_I4, MTYPE_I8, MTYPE_name, FIOSTRUCT_INFO::offset32, FIOSTRUCT_INFO::offset64, OPC_I4I4LDID, OPC_I4I8CVT, OPC_I4STID, OPC_I8I4LDID, OPC_I8I8LDID, OPC_I8STID, Pointer_Size, ST_btype, ST_type, FIOSTRUCT_INFO::type32, FIOSTRUCT_INFO::type64, WN_CreateExp1, WN_CreateLdid, WN_CreateStid, WN_Delete, WN_INSERT_BlockLast, and WN_st().

static void Gen_Io_PutAddrWN ( WN *  block,
ST *  st,
FIOSTRUCT  field,
WN *  wn 
) [static]

Definition at line 4089 of file wn_fio.cxx.

References Add_To_Dummy_List(), Be_Type_Tbl, Create_Maligned_TY(), Fail_FmtAssertion(), fcd_size, FmtAssert, INT32, MTYPE_I4, MTYPE_I8, MTYPE_M, MTYPE_name, MTYPE_U4, MTYPE_U8, FIOSTRUCT_INFO::offset32, FIOSTRUCT_INFO::offset64, OPC_I4I4LDID, OPC_I8I8LDID, opc_lda, OPC_MLOAD, OPC_U4ADD, OPC_U4ARRAY, OPC_U4INTCONST, OPC_U4LDA, OPC_U4STID, OPC_U4U4ILOAD, OPC_U4U4LDID, OPC_U4U8CVT, OPC_U8ADD, OPC_U8ARRAY, OPC_U8LDA, OPC_U8STID, OPC_U8U4CVT, OPC_U8U8ILOAD, OPC_U8U8LDID, OPR_INTCONST, Pointer_Size, ST_type, TY_pointer, FIOSTRUCT_INFO::type32, FIOSTRUCT_INFO::type64, WN_const_val(), WN_CreateExp1, WN_CreateIntconst, WN_CreateLda, WN_CreateMstore, WN_CreateStid, WN_INSERT_BlockLast, WN_opcode(), and WN_operator().

Referenced by Create_fcd(), lower_io_statement(), and Set_Cilist_Fields().

static void Gen_Io_PutFieldConst ( WN *  block,
ST *  st,
FIOSTRUCT  field,
INT64  value 
) [static]

Definition at line 4038 of file wn_fio.cxx.

References Be_Type_Tbl, Fail_FmtAssertion(), INT32, MTYPE_I4, MTYPE_I8, MTYPE_name, MTYPE_U4, MTYPE_U8, NULL, FIOSTRUCT_INFO::offset32, FIOSTRUCT_INFO::offset64, OPC_I4INTCONST, OPC_I4STID, OPC_I8INTCONST, OPC_I8STID, OPC_U4INTCONST, OPC_U4STID, OPC_U8INTCONST, OPC_U8STID, Pointer_Size, FIOSTRUCT_INFO::type32, FIOSTRUCT_INFO::type64, wn, WN_CreateIntconst, WN_CreateStid, and WN_INSERT_BlockLast.

Referenced by lower_io_statement().

static void Gen_Io_PutFieldST ( WN *  block,
ST *  st,
FIOSTRUCT  field,
ST *  var 
) [static]

Definition at line 3553 of file wn_fio.cxx.

References Be_Type_Tbl, Fail_FmtAssertion(), INT32, MTYPE_F10, MTYPE_F4, MTYPE_F8, MTYPE_FQ, MTYPE_I4, MTYPE_I8, MTYPE_name, FIOSTRUCT_INFO::offset32, FIOSTRUCT_INFO::offset64, OPC_F10F10LDID, OPC_F4F4LDID, OPC_F8F8LDID, OPC_FQFQLDID, OPC_I4F10CVT, OPC_I4F4CVT, OPC_I4F8CVT, OPC_I4FQCVT, OPC_I4I4LDID, OPC_I4I8CVT, OPC_I4STID, OPC_I8F10CVT, OPC_I8F4CVT, OPC_I8F8CVT, OPC_I8FQCVT, OPC_I8I4LDID, OPC_I8I8LDID, OPC_I8STID, Pointer_Size, ST_btype, FIOSTRUCT_INFO::type32, FIOSTRUCT_INFO::type64, wn, WN_CreateExp1, WN_CreateLdid, WN_CreateStid, and WN_INSERT_BlockLast.

static void Gen_Io_PutFieldWN ( WN *  block,
ST *  st,
FIOSTRUCT  field,
WN *  wn 
) [static]

Definition at line 3649 of file wn_fio.cxx.

References Be_Type_Tbl, Fail_FmtAssertion(), INT32, MTYPE_F10, MTYPE_F4, MTYPE_F8, MTYPE_FQ, MTYPE_I4, MTYPE_I8, MTYPE_name, MTYPE_U4, MTYPE_U8, NULL, FIOSTRUCT_INFO::offset32, FIOSTRUCT_INFO::offset64, OPC_F10F10LDID, OPC_F4F4LDID, OPC_F8F8LDID, OPC_FQFQLDID, OPC_I4F10CVT, OPC_I4F4CVT, OPC_I4F8CVT, OPC_I4FQCVT, OPC_I4I4LDID, OPC_I4I8CVT, OPC_I4INTCONST, OPC_I4STID, OPC_I4U8CVT, OPC_I8F10CVT, OPC_I8F4CVT, OPC_I8F8CVT, OPC_I8FQCVT, OPC_I8I4CVT, OPC_I8I4LDID, OPC_I8I8LDID, OPC_I8INTCONST, OPC_I8STID, OPC_I8U4CVT, OPC_U4I8CVT, OPC_U4INTCONST, OPC_U4LDA, OPC_U4STID, OPC_U4U8CVT, OPC_U8I4CVT, OPC_U8INTCONST, OPC_U8LDA, OPC_U8STID, OPC_U8U4CVT, OPCODE_is_expression(), OPCODE_name(), Pointer_Size, ST_btype, FIOSTRUCT_INFO::type32, FIOSTRUCT_INFO::type64, WN_const_val(), WN_CreateExp1, WN_CreateIntconst, WN_CreateLdid, WN_CreateStid, WN_Delete, WN_INSERT_BlockLast, WN_offset(), WN_opcode(), WN_rtype(), and WN_st().

Referenced by Create_fcd(), and lower_io_statement().

static void Gen_Io_PutKeyFieldWN ( WN *  block,
ST *  st,
WN **  wn,
INT32  nkeys 
) [static]

Definition at line 3928 of file wn_fio.cxx.

References Be_Type_Tbl, Fail_FmtAssertion(), i, INT32, MTYPE_F10, MTYPE_F4, MTYPE_F8, MTYPE_FQ, MTYPE_I2, MTYPE_I4, MTYPE_I8, MTYPE_name, NULL, OPC_F10F10LDID, OPC_F4F4LDID, OPC_F8F8LDID, OPC_FQFQLDID, OPC_I2STID, OPC_I4F10CVT, OPC_I4F4CVT, OPC_I4F8CVT, OPC_I4FQCVT, OPC_I4I4LDID, OPC_I4I8CVT, OPC_I4INTCONST, OPC_I4STID, OPC_I8I8LDID, OPC_I8INTCONST, OPC_U4LDA, OPC_U8LDA, OPCODE_is_expression(), OPCODE_name(), ST_btype, WN_const_val(), WN_CreateExp1, WN_CreateIntconst, WN_CreateLdid, WN_CreateStid, WN_Delete, WN_INSERT_BlockLast, WN_offset(), WN_opcode(), WN_rtype(), and WN_st().

Referenced by lower_io_statement().

static void Gen_Iolist_PutAddrWN ( WN *  block,
ST *  st,
INT32  foffset,
INT32  ftype,
WN *  wn 
) [static]

Definition at line 3346 of file wn_fio.cxx.

References Add_To_Dummy_List(), Be_Type_Tbl, Create_Maligned_TY(), Fail_FmtAssertion(), fcd_size, FmtAssert, MTYPE_I4, MTYPE_I8, MTYPE_M, MTYPE_name, MTYPE_U4, MTYPE_U8, OPC_I4I4LDID, OPC_I8I8LDID, opc_lda, OPC_MLOAD, OPC_U4ADD, OPC_U4ARRAY, OPC_U4INTCONST, OPC_U4LDA, OPC_U4STID, OPC_U4U4ILOAD, OPC_U4U4LDID, OPC_U4U8CVT, OPC_U8ADD, OPC_U8ARRAY, OPC_U8LDA, OPC_U8STID, OPC_U8U4CVT, OPC_U8U8ILOAD, OPC_U8U8LDID, OPCODE_name(), OPR_INTCONST, ST_type, TY_pointer, WN_const_val(), WN_CreateExp1, WN_CreateIntconst, WN_CreateLda, WN_CreateMstore, WN_CreateStid, WN_INSERT_BlockLast, WN_opcode(), and WN_operator().

Referenced by Create_Dope_From_IoItem(), Create_DopeVector_WN(), Create_Io_Entry(), and lower_cray_io_items().

static void Gen_Iolist_PutFieldConst ( WN *  block,
ST *  st,
INT32  foffset,
INT32  ftype,
INT64  value 
) [static]

Definition at line 3025 of file wn_fio.cxx.

References Be_Type_Tbl, Fail_FmtAssertion(), MTYPE_I4, MTYPE_I8, MTYPE_name, MTYPE_U4, MTYPE_U8, NULL, OPC_I4INTCONST, OPC_I4STID, OPC_I8INTCONST, OPC_I8STID, OPC_U4INTCONST, OPC_U4STID, OPC_U8INTCONST, OPC_U8STID, wn, WN_CreateIntconst, WN_CreateStid, and WN_INSERT_BlockLast.

Referenced by Create_Dope_From_IoItem(), Create_DopeVector_WN(), Create_Io_Entry(), lower_cray_io_items(), lower_f77_io_items(), and Make_Cray_Io_Call().

static void Gen_Iolist_PutFieldWN ( WN *  block,
ST *  st,
INT32  foffset,
INT32  ftype,
WN *  wn 
) [static]

Definition at line 3078 of file wn_fio.cxx.

References Be_Type_Tbl, Fail_FmtAssertion(), INT32, MTYPE_F10, MTYPE_F4, MTYPE_F8, MTYPE_FQ, MTYPE_I4, MTYPE_I8, MTYPE_name, MTYPE_U4, MTYPE_U8, NULL, OPC_F10F10LDID, OPC_F4F4LDID, OPC_F8F8LDID, OPC_FQFQLDID, OPC_I4F10CVT, OPC_I4F4CVT, OPC_I4F8CVT, OPC_I4FQCVT, OPC_I4I4LDID, OPC_I4I8CVT, OPC_I4INTCONST, OPC_I4STID, OPC_I4U8CVT, OPC_I8F10CVT, OPC_I8F4CVT, OPC_I8F8CVT, OPC_I8FQCVT, OPC_I8I4CVT, OPC_I8I4LDID, OPC_I8I8LDID, OPC_I8INTCONST, OPC_I8STID, OPC_I8U4CVT, OPC_U4I8CVT, OPC_U4INTCONST, OPC_U4LDA, OPC_U4STID, OPC_U4U8CVT, OPC_U8I4CVT, OPC_U8INTCONST, OPC_U8LDA, OPC_U8STID, OPC_U8U4CVT, OPCODE_is_expression(), OPCODE_name(), ST_btype, WN_const_val(), WN_CreateExp1, WN_CreateIntconst, WN_CreateLdid, WN_CreateStid, WN_Delete, WN_INSERT_BlockLast, WN_offset(), WN_opcode(), WN_rtype(), and WN_st().

Referenced by Create_Dope_From_IoItem(), Create_DopeVector_WN(), Create_Io_Entry(), and lower_cray_io_items().

static WN* Gen_Parm_WN ( WN *  wn  )  [static]

Definition at line 2643 of file wn_fio.cxx.

References Be_Type_Tbl, MTYPE_U4, MTYPE_U8, opc, OPCODE_has_1ty(), OPCODE_rtype(), TYPE_ID, WN_CreateParm, WN_opcode(), WN_PARM_BY_REFERENCE, WN_PARM_BY_VALUE, and WN_ty().

Referenced by Gen_Impld_Io_Calls(), and Gen_Io_Calls().

static WN* get_32bit_cilist_item ( WN *  cilist_item,
TY_IDX  ty 
) [static]

Definition at line 4531 of file wn_fio.cxx.

References copyout_temp_to_var(), FALSE, Gen_Temp_Symbol(), Make_Pointer_Type(), mtype, MTYPE_I4, MTYPE_is_signed, MTYPE_To_TY, MTYPE_U4, opc_lda, TY_mtype, TYPE_ID, wn, and WN_CreateLda.

Referenced by lower_io_statement().

static WN* Get_ARB_WN ( const ARB_HANDLE  arb,
arb_enum  whattoget 
) [static]

Definition at line 1942 of file wn_fio.cxx.

References ARB_const_lbnd, ARB_const_stride, ARB_const_ubnd, ARB_lbnd_val, ARB_lbnd_var(), ARB_LBOUND, ARB_STRIDE, ARB_stride_val, ARB_stride_var(), ARB_ubnd_val, ARB_ubnd_var(), ARB_UBOUND, Fail_FmtAssertion(), Get_ST_Ldid(), MTYPE_I8, NULL, and WN_Intconst().

Referenced by Create_DopeVector_WN(), and Create_Io_Entry().

static FIOITEMTYPE get_FIT_type ( TY_IDX  ty  )  [static]

Definition at line 5032 of file wn_fio.cxx.

References BOOL, Fail_FmtAssertion(), FIT_ADDRESS4, FIT_ADDRESS8, FIT_CHARACTER, FIT_COMPLEX16, FIT_COMPLEX4, FIT_COMPLEX8, FIT_INTEGER1, FIT_INTEGER2, FIT_INTEGER4, FIT_INTEGER8, FIT_LOGICAL1, FIT_LOGICAL2, FIT_LOGICAL4, FIT_LOGICAL8, FIT_REAL16, FIT_REAL4, FIT_REAL8, FIT_RECORD, INT32, mtype, MTYPE_C4, MTYPE_C8, MTYPE_CQ, MTYPE_F10, MTYPE_F4, MTYPE_F8, MTYPE_FQ, MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_I8, MTYPE_M, MTYPE_name, MTYPE_U1, MTYPE_U4, MTYPE_U8, MTYPE_UNKNOWN, TY_is_character, TY_is_logical, TY_mtype, and Ty_Table.

Referenced by lower_io_items(), and lower_record_items().

static ST* Get_IoStruct_ST ( WN *  block,
FIOSTRUCTID  id,
BOOL  clear 
) [static]

Definition at line 2377 of file wn_fio.cxx.

References CLASS_VAR, Current_pu, EXPORT_LOCAL, FID_CRAY_DOPEVEC, FID_CRAY_FCD, FID_CRAY_IOLIST, fiostruct_ty, FIOSTRUCTID_FIRST, FIOSTRUCTID_LAST, i, INT32, io_set_addr_passed_flag(), local_sequence, Make_IoStruct_TY(), New_ST(), NULL, OPC_U4INTCONST, OPC_U4LDA, OPC_U8INTCONST, OPC_U8LDA, Pointer_Size, Save_Str(), Save_Str2(), SCLASS_AUTO, seq_buff, Set_ST_name_idx(), sprintf(), ST_Init(), ST_type, TY_pointer, TY_size, wn, WN_CreateIntconst, WN_CreateLda, WN_CreateMstore, and WN_INSERT_BlockLast.

Referenced by Create_Dope_From_IoItem(), Create_DopeVector_WN(), Create_fcd(), Create_Io_Entry(), lower_cray_io_items(), lower_f77_io_items(), lower_f77_record_items(), and lower_io_statement().

static ST* Get_KeyStruct_ST ( INT32  nitems  )  [static]

Definition at line 2448 of file wn_fio.cxx.

References ARB_Init(), CLASS_VAR, EXPORT_LOCAL, FID_KEYSPEC, fiostruct_ty, INT32, io_set_addr_saved_flag(), KIND_ARRAY, KIND_POINTER, Make_IoStruct_TY(), MTYPE_align_req, MTYPE_I8, MTYPE_UNKNOWN, New_ARB(), New_ST(), New_TY(), Pointer_Mtype, Pointer_Size, Save_Str(), SCLASS_AUTO, Set_ARB_first_dimen(), Set_ARB_last_dimen(), Set_TY_align, Set_TY_arb(), Set_TY_etype(), Set_TY_pointed(), sprintf(), ST_Init(), TY_Init(), and TY_size.

Referenced by lower_io_statement().

static WN* Get_ST_Ldid ( ST_IDX  st  )  [static]

Definition at line 1919 of file wn_fio.cxx.

References r, ST_type, TY_mtype, and WN_Ldid().

Referenced by Get_ARB_WN().

static ST* Get_UnitPointer_ST ( void   )  [static]

Definition at line 2512 of file wn_fio.cxx.

References Be_Type_Tbl, CLASS_VAR, Current_pu, EXPORT_LOCAL, io_set_addr_saved_flag(), KIND_POINTER, MTYPE_I4, New_ST(), New_TY(), NULL, Pointer_Mtype, Pointer_Size, Save_Str(), SCLASS_AUTO, Set_TY_align, Set_TY_pointed(), ST_Init(), and TY_Init().

Referenced by lower_io_items(), lower_io_statement(), and lower_record_items().

static void Init_fioruntime_ty (  )  [static]

Definition at line 2543 of file wn_fio.cxx.

References Be_Type_Tbl, fioruntime_ty, KIND_FUNCTION, KIND_POINTER, MTYPE_I4, MTYPE_UNKNOWN, New_TY(), New_TYLIST(), Pointer_Mtype, Pointer_Size, Save_Str(), TY::Set_pu_flag(), Set_TY_align, Set_TY_pointed(), Set_TY_tylist(), Set_TYLIST_type(), TY_HAS_PROTOTYPE, and TY_Init().

Referenced by Gen_Impld_Io_Calls(), and Make_IoRuntime_ST().

static void io_set_addr_passed_flag ( ST *  st  )  [static]

Definition at line 1928 of file wn_fio.cxx.

References Set_ST_addr_passed(), Set_ST_addr_saved(), WHIRL_Addr_Passed_On, and WHIRL_Addr_Saved_For_Passed_On.

Referenced by Create_Null_Call(), Gen_Io_Calls(), Get_IoStruct_ST(), lower_cray_io_items(), lower_f77_io_items(), Lower_IO_Init(), lower_io_statement(), and Make_IoAddr_WN().

static void io_set_addr_saved_flag ( ST *  st  )  [static]

Definition at line 1935 of file wn_fio.cxx.

References Set_ST_addr_saved(), and WHIRL_Addr_Saved_On.

Referenced by Add_To_Dummy_List(), extract_calls(), Get_KeyStruct_ST(), and Get_UnitPointer_ST().

static void lower_cray_io_items ( WN *  block,
WN *  tree,
INT32  kid_first,
INT32  kid_last,
BOOL  needs_new_iolist_table,
INT32 *  word_count,
INT32  flflag,
WN *  cilist_wn,
FIOOPER  form 
) [static]

Definition at line 7950 of file wn_fio.cxx.

References Add_To_Dummy_List(), Be_Type_Tbl, ioarray_entry_type::boundchk, create_pointer_to_node(), Current_pu, Enter_TY, Fail_FmtAssertion(), FALSE, fcd_size, FID_CRAY_IOLIST, fiostruct_ty, FLD_Init(), GEN_IO_CALL_3, Gen_Iolist_PutAddrWN(), Gen_Iolist_PutFieldConst(), Gen_Iolist_PutFieldWN(), Gen_Temp_Symbol(), Get_Current_PU, Get_IoStruct_ST(), i, iolist_header_type::icount, ioarray_entry_type::indflag, INT32, io_set_addr_passed_flag(), ioentry_header_type::ioentsize, iolist_header_type::ioetsize, IOL_CHAR, IOL_DOPE, IOL_EXPR, IOL_IMPLIED_DO, IOL_VAR, iolist_header_type::iolfirst, iolist_reuse_limit, iolist_header_type::iollast, KIND_POINTER, KIND_SCALAR, KIND_STRUCT, LAST_CALL, Make_Pointer_Type(), Make_Simple_Array_Type(), MTYPE_name, MTYPE_U8, New_FLD(), NULL, offset, opc_lda, OPR_INTCONST, Pointer_Size, Pointer_type, PU_has_region, Save_Str(), Set_TY_size, sprintf(), St_Block_Union(), ST_type, STACK_LENGTH, stack_ty, str, strcpy, Target_Byte_Sex, TRUE, TY_kind, TY_mtype, TY_name, TY_pointer, Ty_Table, UINT64, ioentry_header_type::valtype, iolist_header_type::version, WN_const_val(), WN_CreateLda, WN_end, WN_index, WN_intrinsic(), WN_kid(), WN_kid0(), WN_kid1(), WN_kid2(), WN_kid_count(), WN_operator(), WN_st(), WN_start, WN_step, and WN_ty().

Referenced by lower_io_statement().

static INT32 lower_f77_io_items ( WN *  block,
WN *  tree,
WN *  cilist_wn,
WN *  iostat1,
WN *  iostat2,
FIOOPER  form,
INT32  nested,
INT32 *  offset,
INT32  kid_first,
INT32  kid_last 
) [static]

Definition at line 7692 of file wn_fio.cxx.

References Be_Type_Tbl, BOOL, Create_Io_Entry(), Create_Null_Call(), Current_pu, cwh_io_analyse_io_item(), cwh_io_unmark(), cwh_stab_free_auxst(), dope_vector_ty, dump_tree(), FALSE, FID_CRAY_IOLIST, FIO_CR_READ_FORMATTED, FIO_CR_READ_NAMELIST, FIO_CR_READ_UNFORMATTED, fiostruct_ty, first_last, FLD_Init(), fprintf(), Gen_Iolist_PutFieldConst(), Gen_Temp_Symbol(), Get_IoStruct_ST(), i, iolist_header_type::icount, INT32, io_set_addr_passed_flag(), iolist_header_type::ioetsize, iolist_header_type::iolfirst, iolist_header_type::iollast, Make_Cray_Io_Call(), make_dope_vector_ty(), Make_Pointer_Type(), Make_Simple_Array_Type(), MAX_DIM, MTYPE_U8, NESTED_DOPE, NESTED_ITEM, New_FLD(), NULL, opc_lda, Pointer_Size, READ_STMT, Save_Str(), Set_FLD_last_field(), Set_TY_size, STACK_LENGTH, stack_ty, Target_Byte_Sex, TRUE, TY_flist, TY_name, Ty_Table, UINT64, iolist_header_type::version, WN_CreateLda, WN_kid(), and WRITE_STMT.

static INT32 lower_f77_io_items ( WN *  ,
WN *  ,
WN *  ,
WN *  ,
WN *  ,
FIOOPER  ,
BOOL  ,
INT32 *  ,
INT32  ,
INT32   
) [static]

Referenced by Create_Io_Entry(), and lower_io_statement().

static void lower_f77_record_items ( WN *  block,
WN *  rec,
WN *  cilist_wn,
WN *  stack_wn,
WN *  iostat1,
WN *  iostat2,
FIOOPER  form,
ST **  iolist_st,
TY_IDX *  iolist_ty,
INT32 *  iolist_size,
FLD_HANDLE &  last_field,
INT32 *  offset,
INT32 *  icount,
INT32  nested,
TY_IDX  rty,
INT64  roffset 
) [static]

Definition at line 7532 of file wn_fio.cxx.

References Create_Field_Entry(), Create_Null_Call(), Fail_FmtAssertion(), FALSE, FID_CRAY_IOLIST, fiostruct_ty, first_last, FLD_last_field(), FLD_ofst, FLD_type, Get_IoStruct_ST(), iolist_header_type::icount, INT64, iolist_header_type::ioetsize, iolist_header_type::iolfirst, iolist_header_type::iollast, Is_True, KIND_ARRAY, KIND_POINTER, KIND_SCALAR, KIND_STRUCT, KIND_VOID, Make_Cray_Io_Call(), Make_fld_iter(), MTYPE_name, Pointer_Size, Set_FLD_last_field(), Set_ST_type, Set_TY_size, ST_type, Target_Byte_Sex, TY_AR_etype, TY_fld, TY_kind, TY_mtype, Ty_Table, UINT64, and iolist_header_type::version.

Referenced by Create_Field_Entry(), and Create_Io_Entry().

void Lower_IO_Init ( void   ) 

Definition at line 12492 of file wn_fio.cxx.

References Be_Type_Tbl, Current_pu, FIOSTRUCTID_FIRST, FIOSTRUCTID_LAST, Gen_Temp_Symbol(), i, INT32, io_set_addr_passed_flag(), local_sequence, Make_Simple_Array_Type(), MTYPE_U8, NULL, STACK_LENGTH, stack_ty, and TY_name.

static void lower_io_items ( WN *  block,
WN *  tree,
FIOFORMATTYPE  form,
WN *  iostat,
INT32  kid_first,
INT32  kid_last 
) [static]

Definition at line 5382 of file wn_fio.cxx.

References Boolean_type, Create_Preg(), extract_calls(), FALSE, fio_item_ops, fio_value_ops, FIT_COMPLEX16, FIT_COMPLEX4, FIT_COMPLEX8, FIT_RECORD, Gen_Impld_Io_Calls(), GEN_IO_CALL_1, GEN_IO_CALL_2, GEN_IO_CALL_3, GEN_IO_CALL_4, get_FIT_type(), Get_UnitPointer_ST(), i, Implied_Do_Io_Opt, INT32, INT64, IOL_ARRAY, IOL_CHAR, IOL_CHAR_ARRAY, IOL_EXPR, IOL_IMPLIED_DO, IOL_IMPLIED_DO_1TRIP, IOL_LOGICAL, IOL_VAR, KIND_ARRAY, KIND_POINTER, KIND_STRUCT, lower_record_items(), Make_IoAddr_WN(), mINT32, mp_io, mtype, MTYPE_C4, MTYPE_C8, MTYPE_CQ, MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_To_PREG, MTYPE_V, NULL, opc_const, OPC_F4IMAGPART, OPC_F4REALPART, OPC_F8IMAGPART, OPC_F8REALPART, OPC_FQIMAGPART, OPC_FQREALPART, OPC_I4INTCONST, OPCODE_make_op(), OPR_ADD, OPR_ARRAY, OPR_CONST, OPR_ILOAD, OPR_INTCONST, OPR_LDA, OPR_LDID, OPR_SUB, Pointer_type, search_implied_do_index(), size, ST_type, start, STC_val, step(), TRUE, TY_AR_const_lbnd, TY_AR_etype, TY_AR_lbnd_val, TY_kind, TY_mtype, TY_pointed, TY_size, Ty_Table, WN_Add, WN_const_val(), WN_COPY_Tree(), WN_CreateBlock, WN_CreateDO, WN_CreateExp1, WN_CreateExp2, WN_CreateGoto, WN_CreateIdname, WN_CreateIntconst, WN_CreateNewLabel(), WN_CreateTruebr, WN_Delete, WN_DELETE_Tree(), WN_desc(), WN_end, WN_GE, WN_idname_offset(), WN_Iload(), WN_index, WN_INSERT_BlockLast, WN_intrinsic(), WN_io_item(), WN_Istore(), WN_kid(), WN_kid0(), WN_kid1(), WN_kid2(), WN_kid_count(), WN_label_number(), WN_Ldid(), WN_LdidPreg(), WN_LE, WN_num_dim, WN_offset(), WN_operator(), WN_operator_is, WN_rtype(), WN_Select, WN_st(), WN_start, WN_step, WN_Stid(), WN_StidIntoPreg(), WN_ty(), WN_type, WN_type_pointed, and WN_Zerocon().

Referenced by lower_io_statement().

WN* lower_io_statement ( WN *  tree,
LOWER_ACTIONS  actions 
)

Definition at line 8482 of file wn_fio.cxx.

References abort, Action, Add_To_Dummy_List(), cilist_header::advcode, Be_Type_Tbl, BOOL, Build_Io_Mask(), BZERO, CHARTYPE, CLASS_CONST, Create_Dope_From_IoItem(), Create_fcd(), create_pointer_to_node(), Cur_PU_Feedback, current_io_library, Current_pu, FEEDBACK::Delete(), cilist_header::dflag, cilist_header::edcode, eeeflag, cilist_header::endflag, cilist_header::eorflag, cilist_header::errflag, extract_calls(), Fail_FmtAssertion(), FALSE, FEEDBACK::FB_set_in_out_same(), fcd_size, FCL_DIR_FORMATTED, FCL_DIR_UNFORMATTED, FCL_EXT_FORMATTED, FCL_EXT_LIST, FCL_EXT_NAMELIST, FCL_EXT_UNFORMATTED, FCL_INT_FORMATTED, FCL_INT_LIST, FCR_CI_ADVANCE, FCR_CI_FMTSRC, FCR_CI_IOSTAT, FCR_CI_PARSFMT, FCR_CI_REC, FCR_CI_SIZE, FCR_CI_UNIT, FCR_CI_WORD1, FCR_CLOSE_ERR, FCR_CLOSE_IOSTAT, FCR_CLOSE_STATUS, FCR_CLOSE_UNIT, FCR_FCD_LEN, FCR_INQ_ACCESS, FCR_INQ_ACTION, FCR_INQ_BLANK, FCR_INQ_DELIM, FCR_INQ_DIRECT, FCR_INQ_ERR, FCR_INQ_EXIST, FCR_INQ_FILE, FCR_INQ_FORM, FCR_INQ_FORMATTED, FCR_INQ_IOSTAT, FCR_INQ_NAME, FCR_INQ_NAMED, FCR_INQ_NEXTREC, FCR_INQ_NUMBER, FCR_INQ_OPENED, FCR_INQ_PAD, FCR_INQ_POSITION, FCR_INQ_READ, FCR_INQ_READWRITE, FCR_INQ_RECL, FCR_INQ_SEQUENTIAL, FCR_INQ_UNFORMATTED, FCR_INQ_UNIT, FCR_INQ_WRITE, FCR_OPEN_ACCESS, FCR_OPEN_ACTION, FCR_OPEN_BLANK, FCR_OPEN_DELIM, FCR_OPEN_ERR, FCR_OPEN_FILE, FCR_OPEN_FORM, FCR_OPEN_IOSTAT, FCR_OPEN_PAD, FCR_OPEN_POSITION, FCR_OPEN_RECL, FCR_OPEN_STATUS, FCR_OPEN_UNIT, FFT_FORMAT, FFT_LIST, FFT_UNFORMAT, FID_ALIST, FID_CILIST, FID_CLLIST, FID_CRAY_CLIST, FID_CRAY_CLOSELIST, FID_CRAY_FCD, FID_CRAY_INQLIST, FID_CRAY_OPENLIST, FID_FLIST, FID_ICILIST, FID_INLIST, FID_OLIST, FIM_ASSOCIATEVARIABLE, FIM_EXIST, FIM_NAMED, FIM_NEXTREC, FIM_NUMBER, FIM_OPENED, FIM_RECL, FIO_BACKSPACE, FIO_CLOSE, FIO_CR_BACKSPACE, FIO_CR_CLOSE, FIO_CR_ENDFILE, FIO_CR_INQUIRE, FIO_CR_OPEN, FIO_CR_READ_FORMATTED, FIO_CR_READ_NAMELIST, FIO_CR_READ_UNFORMATTED, FIO_CR_REWIND, FIO_CR_WRITE_FORMATTED, FIO_CR_WRITE_NAMELIST, FIO_CR_WRITE_UNFORMATTED, FIO_DEFINEFILE, FIO_DELETE, FIO_DIR_READ_FORMAT_end, FIO_DIR_READ_FORMAT_start, FIO_DIR_READ_UNFORMAT_end, FIO_DIR_READ_UNFORMAT_start, FIO_DIR_WRITE_FORMAT_end, FIO_DIR_WRITE_FORMAT_start, FIO_DIR_WRITE_UNFORMAT_end, FIO_DIR_WRITE_UNFORMAT_start, fio_dummy_count, FIO_ENDFILE, FIO_EXT_READ_FORMAT_end, FIO_EXT_READ_FORMAT_start, FIO_EXT_READ_LIST_end, FIO_EXT_READ_LIST_start, FIO_EXT_READ_NAMELIST_start, FIO_EXT_READ_UNFORMAT_end, FIO_EXT_READ_UNFORMAT_start, FIO_EXT_REWRITE_FORMAT_end, FIO_EXT_REWRITE_FORMAT_start, FIO_EXT_REWRITE_LIST_end, FIO_EXT_REWRITE_LIST_start, FIO_EXT_REWRITE_UNFORMAT_end, FIO_EXT_REWRITE_UNFORMAT_start, FIO_EXT_WRITE_FORMAT_end, FIO_EXT_WRITE_FORMAT_start, FIO_EXT_WRITE_LIST_end, FIO_EXT_WRITE_LIST_start, FIO_EXT_WRITE_NAMELIST_start, FIO_EXT_WRITE_UNFORMAT_end, FIO_EXT_WRITE_UNFORMAT_start, FIO_FIND, FIO_INQLENGTH, FIO_INQUIRE, FIO_INT_READ_FORMAT_end, FIO_INT_READ_FORMAT_start, FIO_INT_READ_LIST_end, FIO_INT_READ_LIST_start, FIO_INT_WRITE_FORMAT_end, FIO_INT_WRITE_FORMAT_start, FIO_INT_WRITE_LIST_end, FIO_INT_WRITE_LIST_start, FIO_OPEN, FIO_REWIND, FIO_UNLOCK, FIOCLASS_NONE, FIRST_CALL, cilist_header::fmt, fprintf(), Frame_Pointer_Preg_Offset, free(), FSA_AERR, FSA_AUNIT, FSC_CIEND, FSC_CIERR, FSC_CIFMT, FSC_CIKEYID, FSC_CIKEYTYPE, FSC_CIKEYVAL, FSC_CIKEYVALLEN, FSC_CIMATCH, FSC_CINML, FSC_CIREC, FSC_CIUNIT, FSC_CIVFMT, FSC_CIVFMTFP, FSF_FERR, FSF_FREC, FSF_FUNIT, FSI_ICIEND, FSI_ICIERR, FSI_ICIFMT, FSI_ICIRLEN, FSI_ICIRNUM, FSI_ICIUNIT, FSI_ICIVFMT, FSI_ICIVFMTFP, FSL_CLERR, FSL_CLSTA, FSL_CLUNIT, FSN_INACC, FSN_INACCLEN, FSN_INBLANK, FSN_INBLANKLEN, FSN_INCC, FSN_INCCLEN, FSN_INDEFAULTFILE, FSN_INDEFAULTFILELEN, FSN_INDIR, FSN_INDIRLEN, FSN_INERR, FSN_INEX, FSN_INFILE, FSN_INFILEN, FSN_INFMT, FSN_INFMTLEN, FSN_INFORM, FSN_INFORMLEN, FSN_INKEYED, FSN_INKEYEDLEN, FSN_INNAME, FSN_INNAMED, FSN_INNAMLEN, FSN_INNREC, FSN_INNUM, FSN_INOPEN, FSN_INORG, FSN_INORGLEN, FSN_INRECL, FSN_INRECORDTYPE, FSN_INRECORDTYPELEN, FSN_INSEQ, FSN_INSEQLEN, FSN_INUNF, FSN_INUNFLEN, FSN_INUNIT, FSO_OACC, FSO_OASSOCV, FSO_OBLNK, FSO_OCC, FSO_ODFNM, FSO_ODFNMLEN, FSO_ODISP, FSO_OERR, FSO_OFM, FSO_OFNM, FSO_OFNMLEN, FSO_OKEYS, FSO_OMAXREC, FSO_ONKEYS, FSO_OORG, FSO_OREADONLY, FSO_ORECTYPE, FSO_ORL, FSO_OSHARED, FSO_OSTA, FSO_OUNIT, GEN_IO_CALL_0, GEN_IO_CALL_1, GEN_IO_CALL_2, GEN_IO_CALL_3, Gen_Io_PutAddrWN(), Gen_Io_PutFieldConst(), Gen_Io_PutFieldWN(), Gen_Io_PutKeyFieldWN(), Gen_Temp_Symbol(), get_32bit_cilist_item(), Get_Current_PU, Get_IoStruct_ST(), Get_KeyStruct_ST(), Get_UnitPointer_ST(), i, cilist_header::icount, Index_to_char_array(), INT32, INT64, io_set_addr_passed_flag(), IOC_ACCESS, IOC_ACTION, IOC_ADVANCE, IOC_ASSOCIATEVARIABLE, IOC_BLANK, IOC_CARRIAGECONTROL, IOC_CR_EDFLAG, IOC_CR_EEEFLAG, IOC_CR_FLFLAG, IOC_DEFAULTFILE, IOC_DELIM, IOC_DIRECT, IOC_DISPOSE, IOC_END, IOC_EOR, IOC_ERR, IOC_ERRFLAG, IOC_EXIST, IOC_FILE, IOC_FORM, IOC_FORMATTED, IOC_INQLENGTH_VAR, IOC_IOSTAT, IOC_KEY, IOC_KEY_CHARACTER, IOC_KEY_END, IOC_KEY_INTEGER, IOC_KEY_START, IOC_KEYED, IOC_KEYEQ, IOC_KEYGE, IOC_KEYGT, IOC_KEYID, IOC_MAXREC, IOC_NAME, IOC_NAMED, IOC_NEXTREC, IOC_NML, IOC_NUMBER, IOC_OPENED, IOC_ORGANIZATION, IOC_PAD, IOC_POSITION, IOC_READ, IOC_READONLY, IOC_READWRITE, IOC_REC, IOC_RECCOUNT, IOC_RECL, IOC_RECORDTYPE, IOC_SEQUENTIAL, IOC_SHARED, IOC_SIZE, IOC_STATUS, IOC_TYPE, IOC_U, IOC_UNFORMATTED, IOC_VARFMT, IOC_VARFMT_ORIGFMT, IOC_WRITE, IOF_ASSIGNED_VAR, IOF_CHAR_EXPR, IOF_CR_FMTSRC, IOF_CR_FMTSRC_DOPE, IOF_CR_PARSFMT, IOF_LABEL, IOF_LIST_DIRECTED, IOF_NAMELIST_DIRECTED, IOF_NONE, IOF_UNFORMATTED, IOITEM_LAST, IOL_ARRAY, IOLIB_CRAY, IOLIB_MIPS, IOS_ACCEPT, IOS_BACKSPACE, IOS_CLOSE, IOS_CR_BACKSPACE, IOS_CR_CLOSE, IOS_CR_ENDFILE, IOS_CR_FRF, IOS_CR_FRN, IOS_CR_FRU, IOS_CR_FWF, IOS_CR_FWN, IOS_CR_FWU, IOS_CR_INQUIRE, IOS_CR_OPEN, IOS_CR_REWIND, IOS_DECODE, IOS_DEFINEFILE, IOS_DELETE, IOS_ENCODE, IOS_ENDFILE, IOS_FIND, IOS_INQLENGTH, IOS_INQUIRE, IOS_NAMELIST, IOS_OPEN, IOS_PRINT, IOS_READ, IOS_REWIND, IOS_REWRITE, IOS_TYPE, IOS_UNLOCK, IOS_WRITE, cilist_header::iostatflg, IOU_DEFAULT, IOU_DOPE, IOU_EXTERNAL, IOU_INTERNAL, IOU_NONE, Is_True, ISEQUAL, ISGREAT, ISGTEQ, L, LANG_F77, LANG_F90, Language, LAST_CALL, lineno, Lmt_DevWarn, LONGTYPE, lower_block(), lower_cray_io_items(), lower_f77_io_items(), lower_io_items(), LOWER_IO_STATEMENT, Make_IoAddr_WN(), Make_Pointer_Type(), Make_Simple_Array_Type(), malloc, mp_io, MTYPE_A4, MTYPE_A8, MTYPE_I4, MTYPE_STRING, MTYPE_To_TY, MTYPE_U4, MTYPE_U8, NULL, num_impl, offset, OPC_A4INTCONST, OPC_A4LDA, OPC_A8INTCONST, OPC_A8LDA, opc_const, OPC_I4INTCONST, OPC_I4STID, OPC_I8INTCONST, OPC_IO, opc_lda, OPC_U4INTCONST, OPC_U4LDA, OPC_U4U4LDID, OPC_U8INTCONST, OPC_U8LDA, OPC_U8U8LDID, OPCODE_name(), OPR_INTCONST, OPR_LDA, OPR_LDID, Pointer_Mtype, Pointer_Size, Pointer_type, process_inqvar(), process_iostat(), PU_f90_lang(), PU_has_region, realloc, s, FEEDBACK::Same_in_out(), Set_Cilist_Fields(), FIOSTRUCTID_INFO::size32, FIOSTRUCTID_INFO::size64, size_wn(), source_position::srcpos, ST_class, ST_type, STACK_LENGTH, stack_ty, STC_val, cilist_header::stksize, str, table_size, Target_Byte_Sex, target_io_library, TCON_cp, TCON_ty, TRUE, TY_is_character, TY_name, TY_pointer, TY_size, Ty_Table, cilist_header::uflag, UINT64, USRCPOS_linenum, cilist_header::version, WN_const_val(), WN_COPY_Tree(), WN_CreateBlock, WN_CreateIntconst, WN_CreateLda, WN_CreateLdid, WN_CreateStid, WN_Delete, WN_first(), WN_Get_Linenum(), WN_INSERT_BlockLast, WN_io_item(), WN_IO_Library, WN_io_statement(), WN_kid(), WN_kid0(), WN_kid1(), WN_kid2(), WN_kid_count(), WN_label_number(), WN_LdidPreg(), WN_next(), WN_offset(), WN_opcode(), WN_operator(), WN_operator_is, WN_rtype(), WN_Set_Linenum(), WN_st(), WN_Stid(), and WN_ty().

Referenced by lower_bit_field_id().

static void lower_record_items ( WN *  block,
FIOFORMATTYPE  form,
WN *  iostat,
BOOL  mode,
TY_IDX  rty_idx,
WN *  addr,
INT64  roffset 
) [static]

Definition at line 5140 of file wn_fio.cxx.

References Create_Preg(), Fail_FmtAssertion(), FALSE, fio_item_ops, FIT_ADDRESS4, FIT_ADDRESS8, FIT_CHARACTER, FIT_COMPLEX16, FIT_COMPLEX4, FIT_COMPLEX8, FIT_INTEGER1, FIT_INTEGER2, FIT_INTEGER4, FIT_INTEGER8, FIT_LOGICAL1, FIT_LOGICAL2, FIT_LOGICAL4, FIT_LOGICAL8, FIT_REAL16, FIT_REAL4, FIT_REAL8, FIT_RECORD, FLD_last_field(), FLD_ofst, FLD_type, GEN_IO_CALL_2, GEN_IO_CALL_3, GEN_IO_CALL_4, get_FIT_type(), Get_UnitPointer_ST(), INT32_MAX, INT64, Is_True, KIND_ARRAY, KIND_POINTER, KIND_SCALAR, KIND_STRUCT, KIND_VOID, Make_fld_iter(), Make_IoAddr_WN(), Make_Pointer_Type(), mp_io, MTYPE_I4, MTYPE_name, MTYPE_To_PREG, NULL, offset, opc_const, OPC_I4INTCONST, OPC_I8INTCONST, opc_lda, Pointer_type, size, TY_AR_etype, TY_fld, TY_kind, TY_mtype, TY_pointer, TY_size, Ty_Table, void, WN_Add, WN_COPY_Tree(), WN_CreateBlock, WN_CreateDO, WN_CreateIdname, WN_CreateIntconst, WN_CreateLda, WN_INSERT_BlockLast, WN_LdidPreg(), WN_LE, WN_st(), and WN_StidIntoPreg().

Referenced by lower_io_items().

static void Make_Cray_Io_Call ( WN *  block,
FIOOPER  form,
WN *  iostat1,
WN *  iostat2,
WN *  cilist_wn,
WN *  stack_wn,
ST *  iolist_st,
UINT64  word 
) [static]

Definition at line 6366 of file wn_fio.cxx.

References first_last, GEN_IO_CALL_3, Gen_Iolist_PutFieldConst(), MTYPE_U8, NULL, opc_lda, ST_type, TY_pointer, WN_COPY_Tree(), and WN_CreateLda.

Referenced by Create_Io_Entry(), Create_Null_Call(), lower_f77_io_items(), and lower_f77_record_items().

static void make_dope_vector_ty ( int  ndims_on_entry  )  [static]

Definition at line 6439 of file wn_fio.cxx.

References Be_Type_Tbl, dope_vector_ty, FID_IOARRAY_ENTRY, FIO_SIZE, first, FIOSTRUCTID_INFO::first, FLD_Init(), i, INT32, KIND_STRUCT, last, FIOSTRUCTID_INFO::last, MTYPE_align_req, MTYPE_M, New_FLD(), New_TY(), Pointer_Size, Pointer_type, Save_Str(), Set_FLD_last_field(), Set_TY_align, Set_TY_fld(), and TY_Init().

Referenced by lower_f77_io_items().

static WN* Make_IoAddr_WN ( ST *  st  )  [static]

Definition at line 2621 of file wn_fio.cxx.

References io_set_addr_passed_flag(), Make_Pointer_Type(), OPC_U4LDA, OPC_U8LDA, Pointer_Size, ST_type, TY_pointer, wn, and WN_CreateLda.

Referenced by Create_Dope_From_IoItem(), Create_DopeVector_WN(), Create_Io_Entry(), Gen_Impld_Io_Calls(), lower_io_items(), lower_io_statement(), and lower_record_items().

static ST * Make_IoRuntime_ST ( FIOOPER  op  )  [static]

Definition at line 2570 of file wn_fio.cxx.

References CLASS_FUNC, current_io_library, CURRENT_SYMTAB, EXPORT_PREEMPTIBLE, Fail_FmtAssertion(), FIO_CR_OPEN, fio_names, FIOOPER_NONE, fioruntime_ty, GLOBAL_SYMTAB, i, Init_fioruntime_ty(), INT32, IOLIB_CRAY, IOLIB_MIPS, LANG_F77, Language, mp_io, New_PU(), New_ST(), pu, PU_Init(), Save_Str(), SCLASS_EXTERN, ST_Init(), strcpy, and strlen().

static void Make_IoStruct_TY ( FIOSTRUCTID  id  )  [static]

Definition at line 2299 of file wn_fio.cxx.

References Be_Type_Tbl, current_io_library, FID_CRAY_IOLIST, FID_KEYSPEC, fiostruct_ty, first, FIOSTRUCTID_INFO::first, FLD_Init(), i, FLD_HANDLE::Idx(), INT32, IOLIB_MIPS, KIND_POINTER, KIND_STRUCT, last, FIOSTRUCTID_INFO::last, local_sequence, MTYPE_align_req, MTYPE_I2, MTYPE_I8, MTYPE_M, New_FLD(), New_TY(), Pointer_Mtype, Pointer_Size, Save_Str(), Save_Str2(), seq_buff, Set_FLD_last_field(), Set_TY_align, Set_TY_fld(), Set_TY_pointed(), sprintf(), and TY_Init().

Referenced by Add_To_Iolist(), Create_Null_Call(), Get_IoStruct_ST(), and Get_KeyStruct_ST().

static TY_IDX Make_Simple_Array_Type ( const char *  name,
INT32  n_elems,
TY_IDX  elem_ty 
) [static]

Definition at line 1970 of file wn_fio.cxx.

References ARB_Init(), KIND_ARRAY, MTYPE_UNKNOWN, New_ARB(), New_TY(), Save_Str(), Set_ARB_first_dimen(), Set_ARB_last_dimen(), Set_TY_align_exp(), Set_TY_arb(), Set_TY_etype(), TY_align_exp(), TY_Init(), TY_size, and UINT32.

Referenced by lower_cray_io_items(), lower_f77_io_items(), Lower_IO_Init(), and lower_io_statement().

static mINT32 member ( ST *  st,
IMPDO_INFO *  impdo_set 
) [static]

Definition at line 12334 of file wn_fio.cxx.

References Impdo_index, Impdo_next, and mINT32.

Referenced by _bfd_xcoff_bfd_link_add_symbols(), SRC_BB_MGR::_compute_cutting_set(), VN_IVC::_enter_class(), build_offset_ref(), build_ptrmemfunc_access_expr(), cp_parser_check_declarator_template_parameters(), cp_parser_mem_initializer(), cp_parser_member_declaration(), cplus_expand_constant(), cvrt_exp_to_pdg(), cwh_io_analyse_index_expr(), cwh_io_search_implied_do_index(), do_type(), find_sole_member(), finish_class_member_access_expr(), follow_def_use_chains(), HB_Identify_Hammock_Candidates(), i386_pe_adjust_class_at_definition(), instantiate_class_template(), instantiate_type(), ISA_Properties_End(), load_symbols(), pe_print_idata(), push_base_cleanups(), pushdecl(), pushdecl_maybe_friend(), remap_decl(), resolve_offset_ref(), sh_gimplify_va_arg_expr(), symbian_class_needs_attribute_p(), symbian_export_vtable_and_rtti_p(), symbian_possibly_export_base_class(), tsubst_copy_and_build(), tsubst_decl(), walk_wild_file(), write_expression(), and xcoff_build_ldsyms().

static BOOL OPCODE_has_aux ( const OPCODE  opc  )  [static]

Definition at line 12482 of file wn_fio.cxx.

References OPCODE_operator(), OPR_IDNAME, OPR_LDA, OPR_LDID, and OPR_STID.

Referenced by cwh_io_analyse_expr(), STMTREP::Enter_lhs(), Gen_stmt_wn(), and SSA::Rename_rhs().

static void process_inqvar ( WN **  block,
WN *  var 
) [static]

Definition at line 4893 of file wn_fio.cxx.

References Be_Type_Tbl, Create_Preg(), Fail_FmtAssertion(), FALSE, Get_Return_Info(), Get_Return_Pregs(), Int32_Preg, KIND_ARRAY, KIND_POINTER, Make_Pointer_Type(), MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_I8, MTYPE_name, MTYPE_To_PREG, MTYPE_UNKNOWN, NULL, OPC_I1ISTORE, OPC_I1STID, OPC_I2ISTORE, OPC_I2STID, OPC_I4I4LDID, OPC_I4ISTORE, OPC_I4STID, OPC_I8I4LDID, OPC_I8ISTORE, OPC_I8STID, OPR_ARRAY, OPR_LDA, RETURN_INFO_count(), RETURN_INFO_preg(), TY_AR_etype, TY_kind, TY_mtype, TY_pointed, Use_Simulated, WHIRL_Return_Info_On, WN_CreateBlock, WN_CreateIstore, WN_CreateLdid, WN_CreateStid, WN_INSERT_BlockLast, WN_kid0(), WN_operator(), WN_st(), and WN_ty().

Referenced by lower_io_statement().

static void process_iostat ( WN **  block1,
WN **  block2,
BOOL  flag,
WN *  iostat,
LABEL_IDX  err,
LABEL_IDX  end,
LABEL_IDX  eor,
BOOL  zero_escape_freq 
) [static]

Definition at line 4580 of file wn_fio.cxx.

References FEEDBACK::Annot(), Be_Type_Tbl, BOOL, Create_Preg(), Cur_PU_Feedback, current_io_library, Fail_FmtAssertion(), FALSE, FB_FREQ_ZERO(), Get_Current_PU, Get_Return_Info(), Get_Return_Pregs(), Int32_Preg, IOLIB_MIPS, KIND_ARRAY, KIND_POINTER, LANG_F90, Language, Make_Pointer_Type(), MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_I8, MTYPE_name, MTYPE_To_PREG, MTYPE_UNKNOWN, NULL, OPC_I1ISTORE, OPC_I1STID, OPC_I2ISTORE, OPC_I2STID, OPC_I4I4EQ, OPC_I4I4GT, OPC_I4I4LDID, OPC_I4I4LT, OPC_I4I4NE, OPC_I4INTCONST, OPC_I4ISTORE, OPC_I4STID, OPC_I8I4LDID, OPC_I8ISTORE, OPC_I8STID, OPR_ARRAY, OPR_LDA, PU_f90_lang(), RETURN_INFO_count(), RETURN_INFO_preg(), TRUE, TY_AR_etype, TY_kind, TY_mtype, TY_pointed, Use_Simulated, WHIRL_Return_Info_On, wn, WN_COPY_Tree(), WN_CreateBlock, WN_CreateExp2, WN_CreateIntconst, WN_CreateIstore, WN_CreateLdid, WN_CreateNewLabel(), WN_CreateStid, WN_CreateTruebr, WN_INSERT_BlockLast, WN_kid0(), WN_label_number(), WN_operator(), WN_st(), and WN_ty().

Referenced by lower_io_statement().

static char* Remove_Trailing_Blanks ( char *  s  )  [static]

Definition at line 2039 of file wn_fio.cxx.

References c, and strlen().

static WN* Replace_Impl_Idx ( WN *  expr  )  [static]

Definition at line 6308 of file wn_fio.cxx.

References BOOL, i, INT32, NULL, num_impl, OPC_I4INTCONST, OPR_ADD, OPR_CONST, OPR_INTCONST, OPR_LDID, OPR_SUB, OPR_TRIPLET, WN_CreateIntconst, WN_kid0(), WN_kid1(), WN_operator_is, WN_st(), and WNOPR.

Referenced by Create_Io_Entry().

static mINT32 search_implied_do_index ( WN *  array_index,
ST *  implied_do_index 
) [static]

Definition at line 5003 of file wn_fio.cxx.

References OPR_CALL, OPR_ICALL, OPR_INTRINSIC_CALL, OPR_LDID, OPR_PICCALL, WN_kid0(), WN_kid1(), WN_kid_count(), WN_operator(), and WN_st().

Referenced by lower_io_items().

static void Set_Cilist_Fields ( WN *  block,
ST *  st,
WN *  unit_wn,
WN **  items,
WN *  rec_wn,
WN *  parsfmt_wn,
WN *  fmtsrc_wn,
WN *  advance_wn,
WN *  size_wn,
WN *  varfmt 
) [static]

Definition at line 4167 of file wn_fio.cxx.

References abort, FCR_CI_ADVANCE, FCR_CI_FMTSRC, FCR_CI_IOSTAT, FCR_CI_PARSFMT, FCR_CI_REC, FCR_CI_SIZE, FCR_CI_UNIT, fprintf(), Gen_Io_PutAddrWN(), INT32, IOC_IOSTAT, IOC_KEY, IOC_KEYEQ, IOC_KEYGE, IOC_KEYGT, IOC_KEYID, and NULL.

Referenced by lower_io_statement().

static WN * Substitute_1_For_Impdo_Index_Val ( WN *  tree,
IMPDO_INFO *  impdo 
) [static]

Definition at line 12437 of file wn_fio.cxx.

References DevAssert, i, Impdo_index, INT32, MTYPE_I4, MTYPE_I8, MTYPE_U4, MTYPE_U8, OPC_I4INTCONST, OPC_I8INTCONST, OPC_U4INTCONST, OPC_U8INTCONST, OPR_LDID, WN_CreateIntconst, WN_kid(), WN_kid_count(), WN_operator_is, WN_rtype(), and WN_st().

Referenced by cwh_io_conv_array_to_dope(), cwh_io_conv_arrsection_to_dope(), and Substitute_1_For_Impdo_Index_Val().

BOOL Type_is_logical ( TY_IDX  ty  ) 

Definition at line 2271 of file wn_fio.cxx.

References Find_array_TY(), Find_scalar_TY(), Get_Current_PU, LANG_F90, Language, PU_f90_lang(), TY_is_logical, and Ty_Table.

Referenced by Cray_Type_From_TY(), and Dv_Type_From_TY().

WN* WN_CreateNewLabel ( void   )  [inline]

Definition at line 769 of file wn_fio.cxx.

References CURRENT_SYMTAB, New_LABEL(), NULL, void, and WN_CreateLabel.

Referenced by Create_Io_Entry(), lower_io_items(), and process_iostat().

Variable Documentation

ST* cilist_st = NULL [static]

Definition at line 101 of file wn_fio.cxx.

ST* container_block_for_iolists = NULL [static]

Definition at line 1359 of file wn_fio.cxx.

WN* copyout_block = NULL [static]

Definition at line 104 of file wn_fio.cxx.

WN* cr_iostat1 = NULL [static]

Definition at line 102 of file wn_fio.cxx.

WN* cr_iostat2 = NULL [static]

Definition at line 103 of file wn_fio.cxx.

PU* cray_iolist_current_pu = NULL [static]

Definition at line 1356 of file wn_fio.cxx.

IOLIB current_io_library [static]

Definition at line 141 of file wn_fio.cxx.

Referenced by lower_io_statement(), Make_IoRuntime_ST(), Make_IoStruct_TY(), and process_iostat().

TY_IDX dope_vector_ty[MAX_DIM+1] [static]

Definition at line 145 of file wn_fio.cxx.

Referenced by Add_To_Iolist(), lower_f77_io_items(), and make_dope_vector_ty().

INT32 fcd_size [static]

Definition at line 98 of file wn_fio.cxx.

Referenced by Create_fcd(), Gen_Io_PutAddrWN(), Gen_Iolist_PutAddrWN(), lower_cray_io_items(), and lower_io_statement().

PU* fio_current_pu = NULL [static]

Definition at line 1352 of file wn_fio.cxx.

INT32 fio_dummy_count [static]

Definition at line 1295 of file wn_fio.cxx.

Referenced by Add_To_Dummy_List(), Gen_Io_Calls(), and lower_io_statement().

INT32 fio_dummy_max = 0 [static]

Definition at line 1294 of file wn_fio.cxx.

Referenced by Add_To_Dummy_List(), and Alloc_More_For_Dummy_Array().

WN_OFFSET* fio_dummy_ofst [static]

Definition at line 1299 of file wn_fio.cxx.

Referenced by Add_To_Dummy_List(), Alloc_More_For_Dummy_Array(), and Gen_Io_Calls().

BOOL* fio_dummy_ref [static]

Definition at line 1296 of file wn_fio.cxx.

Referenced by Add_To_Dummy_List(), Alloc_More_For_Dummy_Array(), and Gen_Io_Calls().

ST** fio_dummy_st [static]

Definition at line 1297 of file wn_fio.cxx.

TY_IDX* fio_dummy_tyidx [static]

Definition at line 1298 of file wn_fio.cxx.

Referenced by Add_To_Dummy_List(), Alloc_More_For_Dummy_Array(), and Gen_Io_Calls().

FIOOPER fio_item_ops[FIOFORMATTYPE_LAST+1][FIOITEMTYPE_LAST+1] [static]

Definition at line 1125 of file wn_fio.cxx.

Referenced by lower_io_items(), and lower_record_items().

INT32 fio_maskcode[MTYPE_LAST+1] [static]

Initial value:

 {
  0,  
  0,  
  1,  
  2,  
  0,  
  3,  
  1,  
  2,  
  0,  
  3,  
  0,  
  0,  
  0,  
  0,  
  0,  
  0,  
  0,  
  0,  
  0,  
  0,  
  0 
}

Definition at line 1886 of file wn_fio.cxx.

const char* fio_names[FIOOPER_LAST+1] [static]

Definition at line 781 of file wn_fio.cxx.

Referenced by Make_IoRuntime_ST().

ST* fio_sts[FIOOPER_LAST+1] [static]

Definition at line 953 of file wn_fio.cxx.

FIOOPER fio_value_ops[FIOFORMATTYPE_LAST+1][FIOITEMTYPE_LAST+1] [static]

Definition at line 1204 of file wn_fio.cxx.

Referenced by lower_io_items().

TY_IDX fioruntime_ty = (TY_IDX) 0 [static]

Definition at line 1306 of file wn_fio.cxx.

Referenced by Gen_Impld_Io_Calls(), Init_fioruntime_ty(), and Make_IoRuntime_ST().

FIOSTRUCT_INFO fiostruct_info[FIOSTRUCT_LAST+1] [static]

Definition at line 1410 of file wn_fio.cxx.

ST* fiostruct_st[FIOSTRUCTID_LAST+1] [static]

Initial value:

 {
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL,       
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL  
}

Definition at line 1330 of file wn_fio.cxx.

TY_IDX fiostruct_ty[FIOSTRUCTID_LAST+1] [static]

Initial value:

 {
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0,       
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0, 
    (TY_IDX) 0  
}

Definition at line 1308 of file wn_fio.cxx.

Referenced by Add_To_Iolist(), Create_Io_Entry(), Create_Null_Call(), Get_IoStruct_ST(), Get_KeyStruct_ST(), lower_cray_io_items(), lower_f77_io_items(), lower_f77_record_items(), and Make_IoStruct_TY().

FIOSTRUCTID_INFO fiostructid_info[FIOSTRUCTID_LAST+1] [static]

Definition at line 1369 of file wn_fio.cxx.

INT32 first_last [static]

Definition at line 108 of file wn_fio.cxx.

Referenced by Create_Io_Entry(), Create_Null_Call(), lower_f77_io_items(), lower_f77_record_items(), and Make_Cray_Io_Call().

ST* impl_idx[MAX_NESTED_IMPL] [static]

Definition at line 106 of file wn_fio.cxx.

INT32 local_sequence [static]

Definition at line 139 of file wn_fio.cxx.

Referenced by Get_IoStruct_ST(), Lower_IO_Init(), and Make_IoStruct_TY().

MARKED_SET* marked_set [static]

Definition at line 121 of file wn_fio.cxx.

PU* mp_fio_current_pu = NULL [static]

Definition at line 1353 of file wn_fio.cxx.

INT32 mp_io

Definition at line 777 of file wn_fio.cxx.

Referenced by Initialize_Stack_Frame(), lower_io_items(), lower_io_statement(), lower_record_items(), Make_IoRuntime_ST(), and Process_Command_Line().

PU* namelist_current_pu = NULL [static]

Definition at line 1355 of file wn_fio.cxx.

WN* namelist_node = NULL [static]

Definition at line 1358 of file wn_fio.cxx.

WN* namelist_node_list = NULL [static]

Definition at line 1357 of file wn_fio.cxx.

INT32 num_impl [static]

Definition at line 107 of file wn_fio.cxx.

Referenced by Create_Io_Entry(), lower_io_statement(), and Replace_Impl_Idx().

INT32 num_iolists = 0 [static]

Definition at line 1360 of file wn_fio.cxx.

OPCODE opc_const [static]

Definition at line 97 of file wn_fio.cxx.

Referenced by lower_io_items(), lower_io_statement(), and lower_record_items().

OPCODE opc_lda [static]

Definition at line 96 of file wn_fio.cxx.

Referenced by Create_fcd(), cwh_addr_init_target(), cwh_addr_lda(), cwh_io_conv_array_to_dope(), cwh_io_conv_arrsection_to_dope(), Gen_Io_PutAddrWN(), Gen_Iolist_PutAddrWN(), get_32bit_cilist_item(), lower_cray_io_items(), lower_f77_io_items(), lower_io_statement(), lower_record_items(), and Make_Cray_Io_Call().

char seq_buff[10] [static]

Definition at line 140 of file wn_fio.cxx.

Referenced by Get_IoStruct_ST(), and Make_IoStruct_TY().

ST* stack_st = NULL [static]

Definition at line 99 of file wn_fio.cxx.

TY_IDX stack_ty = (TY_IDX) 0 [static]

Definition at line 100 of file wn_fio.cxx.

Referenced by lower_cray_io_items(), lower_f77_io_items(), Lower_IO_Init(), and lower_io_statement().

AUXST* Top_Auxst[INTERNAL_LEVEL+1] = {NULL,NULL,NULL,NULL} [static]

Definition at line 11798 of file wn_fio.cxx.

Referenced by cwh_auxst_clear_per_PU(), cwh_auxst_find(), and cwh_auxst_free().

Generated on Wed Apr 8 14:31:35 2009 for Open64 by  doxygen 1.5.6