sytb.m File Reference

This graph shows which files directly or indirectly include this file:

Defines
#define	AT_WORK_IDX NULL_IDX
#define	BD_FREE_LIST_IDX NULL_IDX
#define	BD_DEFERRED_1_IDX 1
#define	BD_DEFERRED_2_IDX 2
#define	BD_DEFERRED_3_IDX 3
#define	BD_DEFERRED_4_IDX 4
#define	BD_DEFERRED_5_IDX 5
#define	BD_DEFERRED_6_IDX 6
#define	BD_DEFERRED_7_IDX 7
#define	MAX_NUM_DIMS 7
#define	CN_INTEGER_ZERO_IDX 1
#define	CN_INTEGER_ONE_IDX 2
#define	CN_INTEGER_TWO_IDX 3
#define	CN_INTEGER_THREE_IDX 4
#define	CN_INTEGER_NEG_ONE_IDX 5
#define	CN_INTEGER_BITS_PER_WORD_IDX 6
#define	CN_INTEGER_CHAR_BIT_IDX 7
#define	CN_INTEGER_MIN_IDX 8
#define	INTRINSIC_SCP_IDX NULL_IDX
#define	MAIN_SCP_IDX 1
#define	NAME_POOL_ZERO_IDX 1
#define	NAME_POOL_ONES_IDX 2
#define	TYP_WORK_IDX 0
#define	DOUBLE_PRECISION_TYPE_IDX Num_Linear_Types
#define	DOUBLE_COMPLEX_TYPE_IDX Num_Linear_Types + 1
#define	NUM_AA_WDS 6
#define	NUM_AL_WDS 2
#define	NUM_AT_WDS 16
#define	NUM_BD_WDS 4
#define	NUM_BLK_STK_WDS 16
#define	NUM_CN_WDS 4
#define	OLD_NUM_CN_WDS 2
#define	NUM_CP_WDS 1
#define	NUM_CS_WDS 2
#define	NUM_EQ_WDS 8
#define	NUM_FP_WDS 6
#define	NUM_GA_WDS 8
#define	NUM_GB_WDS 2
#define	NUM_GL_WDS 10
#define	NUM_GN_WDS 2
#define	NUM_HN_WDS 2
#define	NUM_IL_WDS 4
#define	NUM_IR_WDS 8
#define	NUM_LN_WDS 2
#define	NUM_ML_WDS 12
#define	NUM_NP_WDS 1
#define	NUM_PDG_WDS 4
#define	NUM_RO_WDS 6
#define	NUM_SB_WDS 10
#define	NUM_SCP_WDS 52
#define	NUM_SH_WDS 6
#define	NUM_SN_WDS 4
#define	NUM_TYP_WDS 4
#define	SET_POINTER_SIZE (cmd_line_flags.s_pointer8)
#define	DV_DIM_WORD_SIZE ((SET_POINTER_SIZE)? 6 : 3)
#define	DV_HD_WORD_SIZE ((SET_POINTER_SIZE)? 12 : 8)
#define	DV_BASE_ADDR(DOPE)
#define	DV_EL_LEN(DOPE)
#define	DV_ASSOC(DOPE)
#define	DV_PTR_ALLOC(DOPE)
#define	DV_P_OR_A(DOPE)
#define	DV_A_CONTIG(DOPE)
#define	DV_NUM_DIMS(DOPE)
#define	DV_TYPE_CODE(DOPE)
#define	DV_UNUSED_1(DOPE)
#define	DV_UNUSED_2(DOPE)
#define	DV_UNUSED_3(DOPE)
#define	DV_ORIG_BASE(DOPE)
#define	DV_ORIG_SIZE(DOPE)
#define	DV_LOW_BOUND(DOPE, IDX)
#define	DV_EXTENT(DOPE, IDX)
#define	DV_STRIDE_MULT(DOPE, IDX)
#define	DV_SET_BASE_ADDR(DOPE, RHS)
#define	DV_SET_EL_LEN(DOPE, RHS)
#define	DV_SET_ASSOC(DOPE, RHS)
#define	DV_SET_PTR_ALLOC(DOPE, RHS)
#define	DV_SET_P_OR_A(DOPE, RHS)
#define	DV_SET_A_CONTIG(DOPE, RHS)
#define	DV_SET_NUM_DIMS(DOPE, RHS)
#define	DV_SET_TYPE_CODE(DOPE, RHS)
#define	DV_SET_UNUSED_1(DOPE, RHS)
#define	DV_SET_UNUSED_2(DOPE, RHS)
#define	DV_SET_UNUSED_3(DOPE, RHS)
#define	DV_SET_ORIG_BASE(DOPE, RHS)
#define	DV_SET_ORIG_SIZE(DOPE, RHS)
#define	DV_SET_LOW_BOUND(DOPE, IDX, RHS)
#define	DV_SET_EXTENT(DOPE, IDX, RHS)
#define	DV_SET_STRIDE_MULT(DOPE, IDX, RHS)
#define	MAX_GENERATED_LABELS 99999
#define	MAX_IMPL_CHS 26
#define	MAX_ALTERNATE_ENTRIES 65535
#define	BD_LAST_USED_IDX 7
#define	CN_LAST_USED_IDX 8
#define	CP_LAST_USED_IDX 7
#define	CS_LAST_USED_IDX 1000
#define	NP_LAST_USED_IDX 2
#define	TYP_LAST_USED_IDX Num_Linear_Types + 1
#define	MAX_INTRIN_TBL_SIZE 13400
#define	MAX_INTRIN_MAP_SIZE 59
#define	MAX_INLINE_ARGS 256
#define	MAX_INLINE_LABELS 1000
#define	MAX_INLINE_IR 100000
#define	MAX_INLINED_ROUTINES 1000
#define	STORAGE_WORD_SIZE(BIT_SIZE) (TARGET_BITS_TO_WORDS((BIT_SIZE)))
#define	AT_ACCESS_SET(IDX) attr_aux_tbl[IDX].fld.access_set
#define	AT_ACTUAL_ARG(IDX) attr_tbl[IDX].fld.passed_as_arg
#define	AT_ALT_DARG(IDX) attr_tbl[IDX].fld.alt_darg
#define	AT_ARG_TO_KIND(IDX) attr_aux_tbl[IDX].fld.arg_to_kind
#define	AT_ATTR_LINK(IDX) attr_tbl[IDX].fld.attr_link
#define	AT_CIF_DONE(IDX) attr_aux_tbl[IDX].fld.cif_done
#define	AT_CIF_IN_USAGE_REC(IDX) attr_aux_tbl[IDX].fld.cif_usage_rec
#define	AT_CIF_SYMBOL_ID(IDX) attr_aux_tbl[IDX].fld.cif_sym_id
#define	AT_CIF_USE_IN_BND(IDX) attr_aux_tbl[IDX].fld.cif_use_in_bnd
#define	AT_COMPILER_GEND(IDX) attr_tbl[IDX].fld.compiler_gend
#define	AT_DCL_ERR(IDX) attr_tbl[IDX].fld.dcl_err
#define	AT_DEF_LINE(IDX) attr_aux_tbl[IDX].fld.def_line
#define	AT_DEF_COLUMN(IDX) attr_aux_tbl[IDX].fld.def_column
#define	AT_DEF_IN_CHILD(IDX) attr_tbl[IDX].fld.def_in_child
#define	AT_DEFINED(IDX) attr_tbl[IDX].fld.defined
#define	AT_ELEMENTAL_INTRIN(IDX) attr_tbl[IDX].fld.elemental_intrin
#define	AT_HOST_ASSOCIATED(IDX) attr_tbl[IDX].fld.host_associated
#define	AT_IGNORE_ATTR_LINK(IDX) attr_tbl[IDX].fld.ignore_attr_link
#define	AT_IS_DARG(IDX) attr_tbl[IDX].fld.is_darg
#define	AT_IS_INTRIN(IDX) attr_tbl[IDX].fld.is_intrin
#define	AT_LOCKED_IN(IDX) attr_aux_tbl[IDX].fld.locked_in
#define	AT_MODULE_IDX(IDX) attr_tbl[IDX].fld.module_idx
#define	AT_MODULE_OBJECT(IDX) attr_tbl[IDX].fld.module_object
#define	AT_NAME_IDX(IDX) attr_tbl[IDX].fld.name_idx
#define	AT_NAME_LEN(IDX) attr_tbl[IDX].fld.length
#define	AT_NAMELIST_OBJ(IDX) attr_tbl[IDX].fld.namelist_obj
#define	AT_NOT_VISIBLE(IDX) attr_tbl[IDX].fld.not_visible
#define	AT_OBJ_CLASS(IDX) attr_tbl[IDX].fld.object_class
#define	AT_OBJ_NAME(IDX) name_pool[AT_NAME_IDX(IDX)].name_char
#define	AT_OBJ_NAME_LONG(IDX) &(name_pool[AT_NAME_IDX(IDX)].name_long)
#define	AT_OBJ_NAME_PTR(IDX) &name_pool[AT_NAME_IDX(IDX)].name_char
#define	AT_OPTIONAL(IDX) attr_tbl[IDX].fld.optional
#define	AT_ORIG_MODULE_IDX(IDX) attr_tbl[IDX].fld.orig_module_idx
#define	AT_ORIG_NAME_IDX(IDX) attr_tbl[IDX].fld.orig_name_idx
#define	AT_ORIG_NAME_LEN(IDX) attr_tbl[IDX].fld.orig_name_len
#define	AT_ORIG_NAME_PTR(IDX) &name_pool[AT_ORIG_NAME_IDX(IDX)].name_char
#define	AT_ORIG_NAME(IDX) name_pool[AT_ORIG_NAME_IDX(IDX)].name_char
#define	AT_ORIG_NAME_LONG(IDX) &(name_pool[AT_ORIG_NAME_IDX(IDX)].name_long)
#define	AT_PRIVATE(IDX) attr_tbl[IDX].fld.private_access
#define	AT_REF_IN_CHILD(IDX) attr_tbl[IDX].fld.ref_in_child
#define	AT_REFERENCED(IDX) attr_tbl[IDX].fld.referenced
#define	AT_SEMANTICS_DONE(IDX) attr_aux_tbl[IDX].fld.semantics_done
#define	AT_TYPED(IDX) attr_tbl[IDX].fld.typed
#define	AT_USE_ASSOCIATED(IDX) attr_tbl[IDX].fld.use_associated
#define	OLD_AT_HOST_ASSOCIATED(IDX) attr_tbl[IDX].old.host_associated
#define	OLD_AT_MODULE_IDX(IDX) attr_tbl[IDX].old.module_idx
#define	OLD_AT_MODULE_OBJECT(IDX) attr_tbl[IDX].old.module_object
#define	OLD_AT_NOT_VISIBLE(IDX) attr_tbl[IDX].old.not_visible
#define	OLD_AT_OBJ_CLASS(IDX) attr_tbl[IDX].old.object_class
#define	OLD_AT_USE_ASSOCIATED(IDX) attr_tbl[IDX].old.use_associated
#define	OLD_ATD_ALIGN_SYMBOL(IDX) attr_tbl[IDX].old.flag13
#define	OLD_ATD_ARRAY_IDX(IDX) attr_tbl[IDX].old.field5
#define	OLD_ATD_DISTRIBUTION_IDX(IDX) attr_tbl[IDX].old.field14
#define	OLD_ATD_FILL_SYMBOL(IDX) attr_tbl[IDX].old.flag14
#define	OLD_ATD_OFFSET_ASSIGNED(IDX) attr_tbl[IDX].old.flag16
#define	OLD_ATD_PE_ARRAY_IDX(IDX) attr_tbl[IDX].old.field15
#define	OLD_ATD_TYPE_IDX(IDX) attr_tbl[IDX].old.field1
#define	OLD_ATI_NUM_SPECIFICS(IDX) attr_tbl[IDX].old.field5
#define	OLD_ATL_CYCLE_LBL(IDX) attr_tbl[IDX].old.flag15
#define	OLD_ATL_DIRECTIVE_LIST(IDX) attr_tbl[IDX].fld2.field23
#define	OLD_ATL_NOTASK(IDX) attr_tbl[IDX].old.flag14
#define	OLD_ATL_PREFERVECTOR(IDX) attr_tbl[IDX].old.flag16
#define	OLD_ATL_TOP_OF_LOOP(IDX) attr_tbl[IDX].old.flag13
#define	OLD_ATP_EXPL_ITRFC(IDX) attr_tbl[IDX].old.flag14
#define	OLD_ATP_EXTERNAL_INTRIN(IDX) attr_tbl[IDX].old.flag16
#define	OLD_ATP_EXTRA_DARG(IDX) attr_tbl[IDX].old.flag15
#define	OLD_ATP_NUM_DARGS(IDX) attr_tbl[IDX].old.field5
#define	OLD_ATP_MOD_PATH_LEN(IDX) attr_tbl[IDX].old.field6
#define	OLD_ATP_SAVE_ALL(IDX) attr_tbl[IDX].old.flag13
#define	ATD_ALIGN_SYMBOL(IDX)
#define	ATD_ALIGNMENT(IDX)
#define	ATD_ALLOCATABLE(IDX)
#define	ATD_ARRAY_IDX(IDX) attr_tbl[IDX].fld.field1
#define	ATD_ASG_TMP(IDX)
#define	ATD_ASSIGN_TMP_IDX(IDX)
#define	ATD_AUTO_BASE_IDX(IDX)
#define	ATD_AUTOMATIC(IDX)
#define	ATD_AUXILIARY(IDX)
#define	ATD_BOUNDS_CHECK(IDX)
#define	ATD_CACHE_ALIGN(IDX)
#define	ATD_CACHE_BYPASS_ARRAY(IDX)
#define	ATD_CACHE_NOALLOC(IDX)
#define	ATD_CHAR_LEN_IN_DV(IDX)
#define	ATD_CLASS(IDX)
#define	ATD_CONST_IDX(IDX)
#define	ATD_COPY_ASSUMED_SHAPE(IDX)
#define	ATD_CPNT_INIT_IDX(IDX)
#define	ATD_CPNT_OFFSET_IDX(IDX)
#define	ATD_DATA_INIT(IDX)
#define	ATD_DCL_EQUIV(IDX)
#define	ATD_DEFINING_ATTR_IDX(IDX)
#define	ATD_DERIVED_TYPE_IDX(IDX)
#define	ATD_DISTRIBUTION_IDX(IDX)
#define	ATD_WAS_SCOPED(IDX)
#define	ATD_DV_ALIAS(IDX)
#define	ATD_DYNAMIC(IDX)
#define	ATD_ELEMENTAL_CALL_TMP(IDX)
#define	ATD_EQUIV(IDX)
#define	ATD_EQUIV_IN_BNDS_EXPR(IDX)
#define	ATD_EQUIV_LIST(IDX)
#define	ATD_EXPR_EVAL_TMP(IDX)
#define	ATD_FILL_SYMBOL(IDX)
#define	ATD_FIRST_SEEN_IL_IDX(IDX)
#define	ATD_FLD(IDX)
#define	ATD_FORALL_INDEX(IDX)
#define	ATD_FUNC_IDX(IDX)
#define	ATD_IGNORE_TKR(IDX)
#define	ATD_IM_A_DOPE(IDX)
#define	ATD_IMP_DO_LCV(IDX)
#define	ATD_IN_ASSIGN(IDX)
#define	ATD_IN_COMMON(IDX)
#define	ATD_INTENT(IDX)
#define	ATD_INTRIN_DARG(IDX)
#define	ATD_INTRIN_DARG_TYPE(IDX)
#define	ATD_LCV_IS_CONST(IDX)
#define	ATD_LIVE_DO_VAR(IDX)
#define	ATD_NEXT_MEMBER_IDX(IDX)
#define	ATD_NO_ENTRY_LIST(IDX)
#define	ATD_NOBOUNDS_CHECK(IDX)
#define	ATD_NOT_PT_UNIQUE_MEM(IDX) attr_tbl[IDX].fld.flag51
#define	ATD_OFFSET_ASSIGNED(IDX)
#define	ATD_OFFSET_FLD(IDX)
#define	ATD_OFFSET_IDX(IDX)
#define	ATD_PARENT_OBJECT(IDX)
#define	ATD_PE_ARRAY_IDX(IDX)
#define	ATD_PERMUTATION(IDX)
#define	ATD_POINTER(IDX)
#define	ATD_PTR_ASSIGNED(IDX)
#define	ATD_PTR_HALF_WORD(IDX)
#define	ATD_PTR_IDX(IDX)
#define	ATD_PTR_TYPE_SET(IDX)
#define	ATD_PURE(IDX)
#define	ATD_READ_ONLY_VAR(IDX)
#define	ATD_SAVED(IDX)
#define	ATD_SECTION_GP(IDX)
#define	ATD_SECTION_NON_GP(IDX)
#define	ATD_SF_ARG_IDX(IDX)
#define	ATD_SF_DARG(IDX)
#define	ATD_SF_LINK(IDX)
#define	ATD_STACK(IDX)
#define	ATD_STOR_BLK_IDX(IDX)
#define	ATD_RESHAPE_ARRAY_IDX(IDX)
#define	ATD_SYMMETRIC(IDX)
#define	ATD_RESHAPE_ARRAY_OPT(IDX)
#define	ATD_SEEN_AS_IO_LCV(IDX)
#define	ATD_SEEN_AS_LCV(IDX)
#define	ATD_SEEN_IN_IMP_DO(IDX)
#define	ATD_SEEN_OUTSIDE_IMP_DO(IDX)
#define	ATD_SYMBOLIC_CONSTANT(IDX)
#define	ATD_TARGET(IDX)
#define	ATD_TASK_COPYIN(IDX)
#define	ATD_TASK_GETFIRST(IDX)
#define	ATD_TASK_COPYPRIVATE(IDX)
#define	ATD_TASK_FIRSTPRIVATE(IDX)
#define	ATD_TASK_FLUSH(IDX)
#define	ATD_TASK_LASTLOCAL(IDX)
#define	ATD_TASK_LASTPRIVATE(IDX)
#define	ATD_TASK_LASTTHREAD(IDX)
#define	ATD_TASK_PRIVATE(IDX)
#define	ATD_TASK_REDUCTION(IDX)
#define	ATD_TASK_SHARED(IDX)
#define	ATD_TMP_GEN_ZERO(IDX)
#define	ATD_TMP_HAS_CVRT_OPR(IDX)
#define	ATD_TMP_IDX(IDX) attr_tbl[IDX].fld.field4
#define	ATD_TMP_INIT_NOT_DONE(IDX)
#define	ATD_TMP_NEEDS_CIF(IDX)
#define	ATD_TMP_SEMANTICS_DONE(IDX)
#define	ATD_TOO_BIG_FOR_DV(IDX)
#define	ATD_TYPE_IDX(IDX) attr_tbl[IDX].fld.field5
#define	ATD_VARIABLE_TMP_IDX(IDX)
#define	ATD_VOLATILE(IDX)
#define	ATI_CIF_SCOPE_ID(IDX)
#define	ATI_CIF_SEEN_IN_CALL(IDX)
#define	ATI_DCL_INTRINSIC(IDX)
#define	ATI_DEFINED_OPR(IDX)
#define	ATI_FIRST_SPECIFIC_IDX(IDX)
#define	ATI_GENERIC_INTRINSIC(IDX)
#define	ATI_HAS_NON_MOD_PROC(IDX)
#define	ATI_INLINE_ALWAYS(IDX)
#define	ATI_INLINE_NEVER(IDX)
#define	ATI_IPA_DIR_SPECIFIED(IDX)
#define	ATI_INTERFACE_CLASS(IDX)
#define	ATI_INTRIN_PASSABLE(IDX)
#define	ATI_INTRIN_TBL_IDX(IDX)
#define	ATI_NUM_SPECIFICS(IDX)
#define	ATI_PROC_IDX(IDX)
#define	ATI_SGI_ROUTINE_INLINE(IDX)
#define	ATI_SGI_ROUTINE_NOINLINE(IDX)
#define	ATI_UNNAMED_INTERFACE(IDX)
#define	ATI_USER_SPECIFIED(IDX)
#define	ATL_AGGRESSIVEINNERLOOPFISSION(IDX)
#define	ATL_ALIGN(IDX)
#define	ATL_ASG_LBL_CHAIN_START(IDX)
#define	ATL_BL(IDX)
#define	ATL_BLK_STMT_IDX(IDX)
#define	ATL_CLASS(IDX)
#define	ATL_CMIC_BLK_STMT_IDX(IDX)
#define	ATL_CONCURRENT(IDX)
#define	ATL_CONSTRUCTOR_LOOP(IDX)
#define	ATL_CNCALL(IDX)
#define	ATL_CYCLE_LBL(IDX)
#define	ATL_DEBUG_CLASS(IDX)
#define	ATL_DEF_STMT_IDX(IDX)
#define	ATL_CASE_LABEL(IDX)
#define	ATL_DIRECTIVE_LIST(IDX)
#define	ATL_EXECUTABLE(IDX)
#define	ATL_FISSIONABLE(IDX)
#define	ATL_FORMAT_TMP(IDX) attr_tbl[IDX].fld.field10
#define	ATL_FUSABLE(IDX)
#define	ATL_FUSION(IDX)
#define	ATL_FWD_REF_IDX(IDX)
#define	ATL_IN_ASSIGN(IDX)
#define	ATL_IN_ASSIGN_LBL_CHAIN(IDX)
#define	ATL_IVDEP(IDX)
#define	ATL_MAXCPUS(IDX)
#define	ATL_NEW_LBL_IDX(IDX)
#define	ATL_NEXT_ASG_LBL_IDX(IDX)
#define	ATL_NEXTSCALAR(IDX)
#define	ATL_NOBLOCKING(IDX)
#define	ATL_NOFISSION(IDX)
#define	ATL_NOFUSION(IDX)
#define	ATL_NOINTERCHANGE(IDX)
#define	ATL_NORECURRENCE(IDX)
#define	ATL_NOTASK(IDX)
#define	ATL_NOVECTOR(IDX)
#define	ATL_NOVSEARCH(IDX)
#define	ATL_PATTERN(IDX)
#define	ATL_PERMUTATION(IDX)
#define	ATL_PP_FORMAT_TMP(IDX)
#define	ATL_PREFERSTREAM(IDX)
#define	ATL_PREFERSTREAM_NOCINV(IDX)
#define	ATL_PREFERTASK(IDX)
#define	ATL_PREFERVECTOR(IDX)
#define	ATL_SHORTLOOP(IDX)
#define	ATL_SHORTLOOP128(IDX)
#define	ATL_SPLIT(IDX)
#define	ATL_STREAM(IDX)
#define	ATL_INFORM_ONLY(IDX)
#define	ATL_TOP_OF_LOOP(IDX)
#define	ATL_UNROLL_DIR(IDX)
#define	ATN_FIRST_NAMELIST_IDX(IDX)
#define	ATN_LAST_NAMELIST_IDX(IDX)
#define	ATN_NAMELIST_DESC(IDX)
#define	ATN_NUM_NAMELIST(IDX)
#define	ATP_ALIGN(IDX)
#define	ATP_ALL_INTENT_IN(IDX)
#define	ATP_ALT_ENTRY(IDX)
#define	ATP_ARGCHCK_CALL(IDX)
#define	ATP_ARGCHCK_ENTRY(IDX)
#define	ATP_CIF_DARG_PROC(IDX)
#define	ATP_DCL_EXTERNAL(IDX)
#define	ATP_DOES_NOT_RETURN(IDX)
#define	ATP_DUMMY_PROC_LINK(IDX)
#define	ATP_DUPLICATE_INTERFACE_IDX(IDX)
#define	ATP_ELEMENTAL(IDX) attr_tbl[IDX].fld.flag31
#define	ATP_ENTRY_LABEL_SH_IDX(IDX)
#define	ATP_EXT_NAME_IDX(IDX)
#define	ATP_EXT_NAME(IDX) name_pool[ATP_EXT_NAME_IDX(IDX)].name_char
#define	ATP_EXT_NAME_LONG(IDX) &(name_pool[ATP_EXT_NAME_IDX(IDX)].name_long)
#define	ATP_EXT_NAME_PTR(IDX) &name_pool[ATP_EXT_NAME_IDX(IDX)].name_char
#define	ATP_EXT_NAME_LEN(IDX)
#define	ATP_EXPL_ITRFC(IDX) attr_tbl[IDX].fld.flag41
#define	ATP_EXTERNAL_INTRIN(IDX)
#define	ATP_EXTRA_DARG(IDX) attr_tbl[IDX].fld.flag42
#define	ATP_FIRST_IDX(IDX)
#define	ATP_FIRST_SH_IDX(IDX)
#define	ATP_GLOBAL_ATTR_IDX(IDX)
#define	ATP_HAS_ALT_RETURN(IDX)
#define	ATP_HAS_OVER_INDEXING(IDX)
#define	ATP_HAS_TASK_DIRS(IDX)
#define	ATP_IMPLICIT_USE_MODULE(IDX)
#define	ATP_IN_INTERFACE_BLK(IDX)
#define	ATP_IN_UNNAMED_INTERFACE(IDX)
#define	ATP_INDIRECT_MODULE(IDX)
#define	ATP_INLINE_ALWAYS(IDX)
#define	ATP_INLINE_NEVER(IDX)
#define	ATP_INTERFACE_IDX(IDX) attr_tbl[IDX].fld.field4
#define	ATP_INTRIN_ENUM(IDX) attr_tbl[IDX].fld.field10
#define	ATP_IN_CURRENT_COMPILE(IDX)
#define	ATP_MAY_INLINE(IDX)
#define	ATP_MOD_PATH_IDX(IDX)
#define	ATP_MOD_PATH_NAME_PTR(IDX) &name_pool[ATP_MOD_PATH_IDX(IDX)].name_char
#define	ATP_MOD_PATH_LEN(IDX)
#define	ATP_MODULE_STR_IDX(IDX)
#define	ATP_NAME_IN_STONE(IDX) attr_tbl[IDX].fld.flag20
#define	ATP_NO_ENTRY_LIST(IDX)
#define	ATP_NON_ANSI_INTRIN(IDX)
#define	ATP_NOSIDE_EFFECTS(IDX)
#define	ATP_NUM_DARGS(IDX)
#define	ATP_PARENT_IDX(IDX)
#define	ATP_PGM_UNIT(IDX)
#define	ATP_OPTIONAL_DIR(IDX)
#define	ATP_PROC(IDX) attr_tbl[IDX].fld.field2
#define	ATP_PURE(IDX)
#define	ATP_RECURSIVE(IDX)
#define	ATP_RSLT_IDX(IDX) attr_tbl[IDX].fld.field8
#define	ATP_RSLT_NAME(IDX)
#define	ATP_SAVE_ALL(IDX)
#define	ATP_SCP_ALIVE(IDX)
#define	ATP_SCP_IDX(IDX)
#define	ATP_SGI_LOCAL_INLINE(IDX)
#define	ATP_SGI_LOCAL_NOINLINE(IDX)
#define	ATP_SGI_GLOBAL_INLINE(IDX)
#define	ATP_SGI_GLOBAL_NOINLINE(IDX)
#define	ATP_SGI_ROUTINE_INLINE(IDX)
#define	ATP_SGI_ROUTINE_NOINLINE(IDX)
#define	ATP_STACK_DIR(IDX)
#define	ATP_SYMMETRIC(IDX)
#define	ATP_SYSTEM_MODULE(IDX)
#define	ATP_TASK_SHARED(IDX)
#define	ATP_USE_LIST(IDX)
#define	ATP_USE_TYPE(IDX)
#define	ATP_USES_EREGS(IDX)
#define	ATP_VFUNCTION(IDX)
#define	ATP_COARRAY_CONCURRENT(IDX)
#define	ATS_SF_ACTIVE(IDX)
#define	ATS_SF_FLD(IDX)
#define	ATS_SF_IDX(IDX)
#define	ATS_SF_SEMANTICS_DONE(IDX)
#define	OLD_ATT_16_BIT_ALIGN(IDX)
#define	OLD_ATT_8_BIT_ALIGN(IDX)
#define	OLD_ATT_HALF_WORD_ALIGN(IDX)
#define	ATT_TY_IDX(IDX)
#define	ATT_ALIGNMENT(IDX)
#define	ATT_CHAR_CPNT(IDX)
#define	ATT_CHAR_SEQ(IDX)
#define	ATT_CIF_DT_ID(IDX)
#define	ATT_DALIGN_ME(IDX)
#define	ATT_DCL_NUMERIC_SEQ(IDX)
#define	ATT_DEFAULT_INITIALIZED(IDX)
#define	ATT_FIRST_CPNT_IDX(IDX)
#define	ATT_GLOBAL_TYPE_IDX(IDX)
#define	ATT_LABEL_LIST_IDX(IDX)
#define	ATT_NON_DEFAULT_CPNT(IDX)
#define	ATT_NUM_CPNTS(IDX)
#define	ATT_NUMERIC_CPNT(IDX)
#define	ATT_POINTER_CPNT(IDX)
#define	ATT_PRIVATE_CPNT(IDX)
#define	ATT_SCP_IDX(IDX)
#define	ATT_SEQUENCE_SET(IDX)
#define	ATT_STRUCT_BIT_LEN_FLD(IDX)
#define	ATT_STRUCT_BIT_LEN_IDX(IDX)
#define	ATT_UNIQUE_ID(IDX)
#define	AL_ATTR_IDX(IDX) attr_list_tbl[IDX].attr_idx
#define	AL_EQ_IDX(IDX) attr_list_tbl[IDX].attr_idx
#define	AL_NEXT_IDX(IDX) attr_list_tbl[IDX].next_idx
#define	AL_IDX_IS_EQ(IDX) attr_list_tbl[IDX].flag1
#define	AL_FREE(IDX) attr_list_tbl[IDX].flag2
#define	AL_ENTRY_COUNT(IDX) attr_list_tbl[IDX].prev_idx
#define	AL_PREV_MODULE_IDX(IDX) attr_list_tbl[IDX].prev_idx
#define	BD_ARRAY_CLASS(IDX) bounds_tbl[IDX].hdr.array_class
#define	BD_ARRAY_SIZE(IDX) bounds_tbl[IDX].hdr.array_size
#define	BD_COLUMN_NUM(IDX) bounds_tbl[IDX].hdr.column_num
#define	BD_DCL_ERR(IDX) bounds_tbl[IDX].hdr.error
#define	BD_DIST_NTRY(IDX) bounds_tbl[IDX].hdr.dist_ntry
#define	BD_DISTRIBUTE_RESHAPE(IDX) bounds_tbl[IDX].hdr.dist_reshape
#define	BD_GLOBAL_IDX(IDX) bounds_tbl[IDX].hdr.global_idx
#define	BD_LEN_FLD(IDX) bounds_tbl[IDX].hdr.len_fld
#define	BD_LEN_IDX(IDX) bounds_tbl[IDX].hdr.len_idx
#define	BD_LINE_NUM(IDX) bounds_tbl[IDX].hdr.line_num
#define	BD_NEXT_FREE_NTRY(IDX) bounds_tbl[IDX].hdr.next_free_ntry
#define	BD_NTRY_SIZE(IDX) bounds_tbl[IDX].hdr.ntry_size
#define	BD_RANK(IDX) bounds_tbl[IDX].hdr.rank
#define	BD_RESOLVED(IDX) bounds_tbl[IDX].hdr.resolved
#define	BD_USED_NTRY(IDX) bounds_tbl[IDX].hdr.used_ntry
#define	BD_FLOW_DEPENDENT(IDX) bounds_tbl[IDX].hdr.flow_dep
#define	BD_LB_FLD(IDX, DIM)
#define	BD_LB_IDX(IDX, DIM)
#define	BD_SM_IDX(IDX, DIM)
#define	BD_SM_FLD(IDX, DIM)
#define	BD_UB_FLD(IDX, DIM)
#define	BD_UB_IDX(IDX, DIM)
#define	BD_XT_FLD(IDX, DIM)
#define	BD_XT_IDX(IDX, DIM)
#define	BD_CYCLIC_FLD(IDX, DIM)
#define	BD_CYCLIC_IDX(IDX, DIM)
#define	BD_ONTO_FLD(IDX, DIM)
#define	BD_ONTO_IDX(IDX, DIM)
#define	BD_DISTRIBUTION(IDX, DIM)
#define	CS_CN_IDX(IDX) const_search_tbl[IDX].const_tbl_idx
#define	CN_BOZ_CONSTANT(IDX) const_tbl[IDX].boz_constant
#define	CN_BOOLEAN_CONSTANT(IDX) const_tbl[IDX].boolean_constant
#define	CN_HOLLERITH_ENDIAN(IDX) const_tbl[IDX].hollerith_endian
#define	CN_HOLLERITH_TYPE(IDX) const_tbl[IDX].hollerith_fld
#define	CN_EXTRA_ZERO_WORD(IDX) const_tbl[IDX].extra_zero_word
#define	CN_POOL_IDX(IDX) const_tbl[IDX].const_pool_idx
#define	CN_CONST(IDX) const_pool[CN_POOL_IDX(IDX)]
#define	CN_TYPE_IDX(IDX) const_tbl[IDX].type_idx
#define	CN_LEFT_CHILD(IDX) const_tbl[IDX].left_child
#define	CN_RIGHT_CHILD(IDX) const_tbl[IDX].right_child
#define	CN_BALANCE_FACTOR(IDX) const_tbl[IDX].balance_factor
#define	CP_CONSTANT(IDX) const_pool[IDX]
#define	EQ_ATTR_IDX(IDX) equiv_tbl[IDX].attr_idx
#define	EQ_COLUMN_NUM(IDX) equiv_tbl[IDX].column_num
#define	EQ_DALIGN_ME(IDX) equiv_tbl[IDX].dalign_me
#define	EQ_DALIGN_SHIFT(IDX) equiv_tbl[IDX].dalign_shift
#define	EQ_DO_NOT_DALIGN(IDX) equiv_tbl[IDX].do_not_dalign
#define	EQ_ERROR(IDX) equiv_tbl[IDX].error
#define	EQ_GRP_END_IDX(IDX) equiv_tbl[IDX].grp_end_idx
#define	EQ_GRP_IDX(IDX) equiv_tbl[IDX].grp_idx
#define	EQ_LINE_NUM(IDX) equiv_tbl[IDX].line_num
#define	EQ_LIST_IDX(IDX) equiv_tbl[IDX].list_idx
#define	EQ_MERGED(IDX) equiv_tbl[IDX].merged
#define	EQ_NEXT_EQUIV_GRP(IDX) equiv_tbl[IDX].next_equiv_grp
#define	EQ_NEXT_EQUIV_OBJ(IDX) equiv_tbl[IDX].next_equiv_obj
#define	EQ_OFFSET_FLD(IDX) equiv_tbl[IDX].fld
#define	EQ_OFFSET_IDX(IDX) equiv_tbl[IDX].offset_idx
#define	EQ_OPND_FLD(IDX) equiv_tbl[IDX].opnd_fld
#define	EQ_OPND_IDX(IDX) equiv_tbl[IDX].opnd_idx
#define	EQ_SEARCH_DONE(IDX) equiv_tbl[IDX].search_done
#define	EQ_SEMANTICS_DONE(IDX) equiv_tbl[IDX].semantics_done
#define	EQ_SUBSTRINGED(IDX) equiv_tbl[IDX].substring
#define	FP_CIF_ID(IDX) file_path_tbl[IDX].cif_id
#define	FP_CLASS(IDX) file_path_tbl[IDX].file_class
#define	FP_TMP_FILE(IDX) file_path_tbl[IDX].tmp_file
#define	FP_FILE_IDX(IDX) file_path_tbl[IDX].file_idx
#define	FP_MODULE_IDX(IDX) file_path_tbl[IDX].next_idx
#define	FP_MODULE_INLINE_IDX(IDX) file_path_tbl[IDX].module_inline_idx
#define	FP_NAME_IDX(IDX) file_path_tbl[IDX].name_idx
#define	FP_NAME_LEN(IDX) file_path_tbl[IDX].name_len
#define	FP_NAME(IDX) (str_pool[FP_NAME_IDX(IDX)].name_char)
#define	FP_NAME_LONG(IDX) &(str_pool[FP_NAME_IDX(IDX)].name_long)
#define	FP_NAME_PTR(IDX) &str_pool[FP_NAME_IDX(IDX)].name_char
#define	FP_NEXT_FILE_IDX(IDX) file_path_tbl[IDX].next_file_idx
#define	FP_OFFSET(IDX) file_path_tbl[IDX].offset
#define	FP_OUTPUT_TO_O(IDX) file_path_tbl[IDX].output_to_o
#define	FP_SRCH_THE_FILE(IDX) file_path_tbl[IDX].srch_the_file
#define	FP_SYSTEM_FILE(IDX) file_path_tbl[IDX].system_file
#define	GA_COMPILER_GEND(IDX) global_attr_tbl[IDX].fld.compiler_gend
#define	GA_DEF_LINE(IDX) global_attr_tbl[IDX].fld.def_line
#define	GA_DEF_COLUMN(IDX) global_attr_tbl[IDX].fld.def_column
#define	GA_DEFINED(IDX) global_attr_tbl[IDX].fld.defined
#define	GA_MODULE_IDX(IDX) global_attr_tbl[IDX].fld.module_idx
#define	GA_NAME_IDX(IDX) global_attr_tbl[IDX].fld.name_idx
#define	GA_NAME_LEN(IDX) global_attr_tbl[IDX].fld.length
#define	GA_OBJ_CLASS(IDX) global_attr_tbl[IDX].fld.object_class
#define	GA_OBJ_NAME_LONG(IDX) &(str_pool[GA_NAME_IDX(IDX)].name_long)
#define	GA_OBJ_NAME_PTR(IDX) &str_pool[GA_NAME_IDX(IDX)].name_char
#define	GA_OPTIONAL(IDX) global_attr_tbl[IDX].fld.optional
#define	GA_ORIG_NAME_LEN(IDX) global_attr_tbl[IDX].fld.orig_name_len
#define	GA_ORIG_NAME_IDX(IDX) global_attr_tbl[IDX].fld.orig_name_idx
#define	GA_ORIG_NAME_PTR(IDX) &str_pool[GA_ORIG_NAME_IDX(IDX)].name_char
#define	GA_ORIG_NAME_LONG(IDX) &(str_pool[GA_ORIG_NAME_IDX(IDX)].name_long)
#define	GA_REFERENCED(IDX) global_attr_tbl[IDX].fld.referenced
#define	GA_USE_ASSOCIATED(IDX) global_attr_tbl[IDX].fld.use_associated
#define	GAD_ARRAY_ELEMENT_REF(IDX)
#define	GAD_ARRAY_IDX(IDX)
#define	GAD_ASSUMED_SHAPE_ARRAY(IDX)
#define	GAD_CLASS(IDX)
#define	GAD_HOLLERITH(IDX)
#define	GAD_IGNORE_TKR(IDX)
#define	GAD_INTENT(IDX)
#define	GAD_NEXT_IDX(IDX)
#define	GAD_POINTER(IDX)
#define	GAD_RANK(IDX)
#define	GAD_TARGET(IDX)
#define	GAD_TYPE_IDX(IDX)
#define	GAC_ALIGN_SYMBOL(IDX)
#define	GAC_AUXILIARY(IDX)
#define	GAC_CACHE_ALIGN(IDX)
#define	GAC_EQUIVALENCED(IDX)
#define	GAC_FILL_SYMBOL(IDX)
#define	GAC_FIRST_MEMBER_IDX(IDX)
#define	GAC_FOUND_DIFFS(IDX)
#define	GAC_PGM_UNIT_IDX(IDX)
#define	GAC_SECTION_GP(IDX)
#define	GAC_SECTION_NON_GP(IDX)
#define	GAC_TASK_COMMON(IDX)
#define	GAP_ELEMENTAL(IDX)
#define	GAP_FIRST_IDX(IDX)
#define	GAP_FP_IDX(IDX)
#define	GAP_GLOBAL_DIR(IDX)
#define	GAP_IN_INTERFACE_BLK(IDX)
#define	GAP_NEEDS_EXPL_ITRFC(IDX) global_attr_tbl[IDX].fld.flag1
#define	GAP_NEXT_PGM_UNIT_IDX(IDX)
#define	GAP_NOSIDE_EFFECTS(IDX)
#define	GAP_NUM_DARGS(IDX)
#define	GAP_PGM_UNIT(IDX)
#define	GAP_PGM_UNIT_DEFINED(IDX)
#define	GAP_PURE(IDX)
#define	GAP_RECURSIVE(IDX)
#define	GAP_RSLT_IDX(IDX)
#define	GAP_INLINE_STATE(IDX)
#define	GAP_VFUNCTION(IDX)
#define	GAT_FIRST_CPNT_IDX(IDX)
#define	GAT_NUM_CPNTS(IDX)
#define	GAT_PRIVATE_CPNT(IDX)
#define	GAT_SEQUENCE_SET(IDX)
#define	GAT_STRUCT_LIN_TYPE(IDX)
#define	GAT_STRUCT_BIT_LEN(IDX)
#define	GB_ARRAY_CLASS(IDX) global_bounds_tbl[IDX].hdr.array_class
#define	GB_ARRAY_SIZE(IDX) global_bounds_tbl[IDX].hdr.array_size
#define	GB_RANK(IDX) global_bounds_tbl[IDX].hdr.rank
#define	GB_LOWER_BOUND(IDX, DIM) global_bounds_tbl[(IDX)+(DIM*3)-2].len
#define	GB_UPPER_BOUND(IDX, DIM) global_bounds_tbl[(IDX)+(DIM*3)-1].len
#define	GB_LB_TYPE(IDX, DIM) global_bounds_tbl[(IDX)+(DIM*3)].type.lb_type
#define	GB_UB_TYPE(IDX, DIM) global_bounds_tbl[(IDX)+(DIM*3)].type.ub_type
#define	GL_CIF_FILE_ID(IDX) global_line_tbl[IDX].cif_file_id
#define	GL_FILE_LINE(IDX) global_line_tbl[IDX].file_line
#define	GL_FILE_NAME_IDX(IDX) global_line_tbl[IDX].file_name_idx
#define	GL_FILE_NAME_LEN(IDX) global_line_tbl[IDX].file_name_len
#define	GL_GLOBAL_LINE(IDX) global_line_tbl[IDX].global_line
#define	GL_INCLUDE_FILE_COL(IDX) global_line_tbl[IDX].incld_file_col
#define	GL_INCLUDE_FILE_LINE(IDX) global_line_tbl[IDX].incld_file_line
#define	GL_PATH_NAME_IDX(IDX) global_line_tbl[IDX].path_name_idx
#define	GL_PATH_NAME_LEN(IDX) global_line_tbl[IDX].path_name_len
#define	GL_SOURCE_LINES(IDX) global_line_tbl[IDX].source_lines
#define	GL_FILE_NAME_LONG(IDX) &(str_pool[GL_FILE_NAME_IDX(IDX)].name_long)
#define	GL_FILE_NAME_PTR(IDX) &str_pool[GL_FILE_NAME_IDX(IDX)].name_char
#define	GL_PATH_NAME_LONG(IDX) &(str_pool[GL_PATH_NAME_IDX(IDX)].name_long)
#define	GL_PATH_NAME_PTR(IDX) &str_pool[GL_PATH_NAME_IDX(IDX)].name_char
#define	GN_ATTR_IDX(IDX) global_name_tbl[IDX].attr_idx
#define	GN_NAME_IDX(IDX) global_name_tbl[IDX].name_idx
#define	GN_NAME_LEN(IDX) global_name_tbl[IDX].name_len
#define	GN_NAME_LONG(IDX) &(str_pool[GN_NAME_IDX(IDX)].name_long)
#define	GN_NAME_PTR(IDX) &str_pool[GN_NAME_IDX(IDX)].name_char
#define	GT_BIT_LEN(IDX) global_type_tbl[IDX].fld.bit_len
#define	GT_CHAR_CLASS(IDX) global_type_tbl[IDX].fld.char_class
#define	GT_DCL_VALUE(IDX) global_type_tbl[IDX].fld.dcl_value
#define	GT_DESC(IDX) global_type_tbl[IDX].fld.desc
#define	GT_STRUCT_IDX(IDX) global_type_tbl[IDX].fld.type_idx
#define	GT_LENGTH(IDX) global_type_tbl[IDX].wd.length
#define	GT_LENGTH_LIN_TYPE(IDX) global_type_tbl[IDX].fld.len_lin_type
#define	GT_LINEAR_TYPE(IDX) global_type_tbl[IDX].fld.linear_type
#define	GT_PTR_INCREMENT(IDX) global_type_tbl[IDX].wd.length[MAX_WORDS_FOR_INTEGER]
#define	GT_TYPE(IDX) global_type_tbl[IDX].fld.type
#define	HN_ATTR_IDX(IDX) hidden_name_tbl[IDX].attr_idx
#define	HN_NAME_IDX(IDX) hidden_name_tbl[IDX].name_idx
#define	HN_NAME_LEN(IDX) hidden_name_tbl[IDX].name_len
#define	SCP_ATTR_IDX(IDX) scp_tbl[IDX].wd[0].fld1.field2
#define	SCP_LN_FW_IDX(IDX) scp_tbl[IDX].wd[1].fld1.field2
#define	SCP_LN_LW_IDX(IDX) scp_tbl[IDX].wd[2].fld1.field2
#define	SCP_FIRST_SH_IDX(IDX) scp_tbl[IDX].wd[3].fld1.field2
#define	SCP_LAST_SH_IDX(IDX) scp_tbl[IDX].wd[4].fld1.field2
#define	SCP_EXIT_IR_SH_IDX(IDX) scp_tbl[IDX].wd[5].fld1.field2
#define	SCP_ASSIGN_LBL_CHAIN(IDX) scp_tbl[IDX].wd[6].fld1.field2
#define	SCP_CIF_ID(IDX) scp_tbl[IDX].wd[7].fld1.field2
#define	SCP_HN_FW_IDX(IDX) scp_tbl[IDX].wd[8].fld1.field2
#define	SCP_HN_LW_IDX(IDX) scp_tbl[IDX].wd[9].fld1.field2
#define	SCP_OPTIONAL_CHAR_TMP(IDX) scp_tbl[IDX].wd[10].fld1.field2
#define	SCP_RETURN_LABEL(IDX) scp_tbl[IDX].wd[11].fld1.field2
#define	SCP_COPY_ASSUMED_LIST(IDX) scp_tbl[IDX].wd[12].fld1.field2
#define	SCP_WHICH_ENTRY_TMP(IDX) scp_tbl[IDX].wd[13].fld1.field2
#define	SCP_RESHAPE_ARRAY_LIST(IDX) scp_tbl[IDX].wd[14].fld1.field2
#define	SCP_DEFAULT_STORAGE(IDX) scp_tbl[IDX].wd[24].fld2.field4
#define	SCP_LEVEL(IDX) scp_tbl[IDX].wd[23].fld2.field4
#define	SCP_CIF_ERR_LIST(IDX) scp_tbl[IDX].wd[23].fld2.field5
#define	SCP_IS_INTERFACE(IDX) scp_tbl[IDX].wd[0].fld1.flag1
#define	SCP_IN_ERR(IDX) scp_tbl[IDX].wd[0].fld1.flag2
#define	SCP_IS_USED_PROC(IDX) scp_tbl[IDX].wd[0].fld1.flag3
#define	SCP_IMPL_NONE(IDX) scp_tbl[IDX].wd[1].fld1.flag1
#define	SCP_PARENT_NONE(IDX) scp_tbl[IDX].wd[1].fld1.flag2
#define	SCP_COPY_ASSUMED_SHAPE(IDX) scp_tbl[IDX].wd[1].fld1.flag3
#define	SCP_IGNORE_TKR(IDX) scp_tbl[IDX].wd[2].fld1.flag1
#define	SCP_HAS_CALLS(IDX) scp_tbl[IDX].wd[2].fld1.flag2
#define	SCP_DOES_IO(IDX) scp_tbl[IDX].wd[2].fld1.flag3
#define	SCP_INLINE_SGI(IDX) scp_tbl[IDX].wd[3].fld1.flag2
#define	SCP_NOINLINE_SGI(IDX) scp_tbl[IDX].wd[3].fld1.flag3
#define	SCP_DBG_PRINT_SYTB(IDX) scp_tbl[IDX].wd[25].fld1.flag1
#define	SCP_DBG_PRINT_STMT(IDX) scp_tbl[IDX].wd[25].fld1.flag2
#define	SCP_SIBLING_IDX(IDX) scp_tbl[IDX].wd[0].fld1.field3
#define	SCP_LAST_CHILD_IDX(IDX) scp_tbl[IDX].wd[1].fld1.field3
#define	SCP_TMP_FW_IDX2(IDX) scp_tbl[IDX].wd[2].fld1.field3
#define	SCP_PARENT_IDX(IDX) scp_tbl[IDX].wd[3].fld1.field3
#define	SCP_FIRST_CHILD_IDX(IDX) scp_tbl[IDX].wd[4].fld1.field3
#define	SCP_NUM_CHILDREN(IDX) scp_tbl[IDX].wd[5].fld1.field3
#define	SCP_DARG_LIST(IDX) scp_tbl[IDX].wd[6].fld1.field3
#define	SCP_ENTRY_IDX(IDX) scp_tbl[IDX].wd[7].fld1.field3
#define	SCP_USED_MODULE_LIST(IDX) scp_tbl[IDX].wd[8].fld1.field3
#define	SCP_FIRST_EQUIV_GRP(IDX) scp_tbl[IDX].wd[9].fld1.field3
#define	SCP_TMP_LIST(IDX) scp_tbl[IDX].wd[10].fld1.field3
#define	SCP_TMP_FW_IDX(IDX) scp_tbl[IDX].wd[11].fld1.field3
#define	SCP_SB_HOSTED_STACK_IDX(IDX) scp_tbl[IDX].wd[12].fld1.field3
#define	SCP_SB_STACK_IDX(IDX) scp_tbl[IDX].wd[13].fld1.field3
#define	SCP_SB_BASED_IDX(IDX) scp_tbl[IDX].wd[14].fld1.field3
#define	SCP_SB_DARG_IDX(IDX) scp_tbl[IDX].wd[15].fld1.field3
#define	SCP_SB_STATIC_IDX(IDX) scp_tbl[IDX].wd[16].fld1.field3
#define	SCP_SB_SYMMETRIC_IDX(IDX) scp_tbl[IDX].wd[17].fld1.field3
#define	SCP_ATTR_LIST_END(IDX) scp_tbl[IDX].wd[18].fld1.field3
#define	SCP_SB_HOSTED_STATIC_IDX(IDX) scp_tbl[IDX].wd[19].fld1.field3
#define	SCP_SB_STATIC_INIT_IDX(IDX) scp_tbl[IDX].wd[20].fld1.field3
#define	SCP_ATTR_LIST(IDX) scp_tbl[IDX].wd[21].fld1.field3
#define	SCP_ALT_ENTRY_CNT(IDX) scp_tbl[IDX].wd[22].fld1.field3
#define	SCP_SB_STATIC_UNINIT_IDX(IDX) scp_tbl[IDX].wd[23].fld1.field3
#define	SCP_SB_HOSTED_DATA_IDX(IDX) scp_tbl[IDX].wd[24].fld1.field3
#define	SCP_FILE_PATH_IDX(IDX) scp_tbl[IDX].wd[25].fld1.field3
#define	IMPL_IDX(CH) CH - 'A'
#define	IM_SET(SIDX, IDX) scp_tbl[SIDX].wd[IDX].fld1.typed
#define	IM_STORAGE(SIDX, IDX) scp_tbl[SIDX].wd[IDX].fld1.storage
#define	IM_TYPE_IDX(SIDX, IDX) scp_tbl[SIDX].wd[IDX].fld1.type_idx
#define	OLD_IR_OPR(IDX) old_ir_tbl[IDX].opr.the_operator
#define	OLD_IR_RANK(IDX) old_ir_tbl[IDX].opr.rank
#define	OLD_IR_DV_DIM(IDX) old_ir_tbl[IDX].opr.dim
#define	IR_COL_NUM(IDX) ir_tbl[IDX].opr.col_num
#define	IR_LINE_NUM(IDX) ir_tbl[IDX].opr.line_num
#define	IR_NEXT_IDX(IDX) ir_tbl[IDX].opr.line_num
#define	IR_OPR(IDX) ir_tbl[IDX].opr.the_operator
#define	IR_TYPE_IDX(IDX) ir_tbl[IDX].opr.type_idx
#define	IR_RANK(IDX) ir_tbl[IDX].opr.rank
#define	IR_DV_DIM(IDX) ir_tbl[IDX].opr.dim
#define	IR_CONTIG_ARRAY(IDX) ir_tbl[IDX].opr.dim
#define	IR_WHOLE_ARRAY(IDX) ir_tbl[IDX].opr.dim
#define	IR_INLINE_STATE(IDX) ir_tbl[IDX].opr.dim
#define	IR_COL_NUM_L(IDX) ir_tbl[IDX].op_l.col_num
#define	IR_FLD_L(IDX) ir_tbl[IDX].op_l.fld
#define	IR_IDX_L(IDX) ir_tbl[IDX].op_l.idx
#define	IR_LINE_NUM_L(IDX) ir_tbl[IDX].op_l.line_num
#define	IR_LIST_CNT_L(IDX) ir_tbl[IDX].op_l.line_num
#define	IR_SHORT_CIRCUIT_L(IDX) ir_tbl[IDX].op_l.flag_1
#define	IR_ARRAY_SYNTAX(IDX) ir_tbl[IDX].op_l.flag_2
#define	IR_COL_NUM_R(IDX) ir_tbl[IDX].op_r.col_num
#define	IR_FLD_R(IDX) ir_tbl[IDX].op_r.fld
#define	IR_IDX_R(IDX) ir_tbl[IDX].op_r.idx
#define	IR_LINE_NUM_R(IDX) ir_tbl[IDX].op_r.line_num
#define	IR_LIST_CNT_R(IDX) ir_tbl[IDX].op_r.line_num
#define	IR_SHORT_CIRCUIT_R(IDX) ir_tbl[IDX].op_r.flag_1
#define	IR_BOUNDS_DONE(IDX) ir_tbl[IDX].op_r.flag_2
#define	IR_OPND_L(IDX) ir_tbl[IDX].op_l
#define	IR_OPND_R(IDX) ir_tbl[IDX].op_r
#define	IL_NEXT_LIST_IDX(IDX) ir_list_tbl[IDX].il.link.nxt_idx
#define	IL_IDX(IDX) ir_list_tbl[IDX].il.op.idx
#define	IL_LINE_NUM(IDX) ir_list_tbl[IDX].il.op.line_num
#define	IL_COL_NUM(IDX) ir_list_tbl[IDX].il.op.col_num
#define	IL_LIST_CNT(IDX) ir_list_tbl[IDX].il.op.line_num
#define	IL_FLD(IDX) ir_list_tbl[IDX].il.op.fld
#define	IL_ARG_DESC_VARIANT(IDX) ir_list_tbl[IDX].il.link.arg_desc
#define	IL_ARG_MULTI_FLAGS(IDX) ir_list_tbl[IDX].il.link.multi_flags
#define	IL_PREV_LIST_IDX(IDX)
#define	IL_ARG_DESC_IDX(IDX)
#define	IL_VECTOR_SUBSCRIPT(IDX) ir_list_tbl[IDX].il.link.flag_1
#define	IL_CONSTANT_SUBSCRIPT(IDX) ir_list_tbl[IDX].il.link.flag_2
#define	IL_PE_SUBSCRIPT(IDX) ir_list_tbl[IDX].il.link.flag_3
#define	IL_NAMELIST_EXPECTED(IDX) ir_list_tbl[IDX].il.link.flag_1
#define	IL_FORMAT_EXPECTED(IDX) ir_list_tbl[IDX].il.link.flag_2
#define	IL_HAS_FUNCTIONS(IDX) ir_list_tbl[IDX].il.link.flag_1
#define	IL_MUST_BE_LOOP(IDX) ir_list_tbl[IDX].il.link.flag_2
#define	IL_MUST_FLATTEN(IDX) ir_list_tbl[IDX].il.link.flag_3
#define	IL_HAS_CONSTRUCTOR(IDX) ir_list_tbl[IDX].il.link.flag_4
#define	IL_STRUCT_REF(IDX) ir_list_tbl[IDX].il.link.flag_5
#define	IL_INTRIN_PLACE_HOLDER(IDX) ir_list_tbl[IDX].il.link.flag_6
#define	IL_NONDEFAULT_IMP_DO_LCV(IDX) ir_list_tbl[IDX].il.link.flag_7
#define	IL_DISTRIBUTION_VARIANT(IDX) ir_list_tbl[IDX].il.link.flag_8
#define	IL_FORWARD_REF(IDX) ir_list_tbl[IDX].il.link.for_ref
#define	IL_DISTRIBUTION(IDX) ir_list_tbl[IDX].il.link.for_ref
#define	IL_WORD(IDX, WD) ir_list_tbl[IDX].words[WD]
#define	IL_ELEMENT(IDX) ir_list_tbl[IDX].il_long64.lwd2
#define	IL_OPND(IDX) ir_list_tbl[IDX].il.op
#define	SH_CIF_SKIP_ME(IDX) sh_tbl[IDX].cif_skip_me
#define	SH_COL_NUM(IDX) sh_tbl[IDX].col_num
#define	SH_COMPILER_GEN(IDX) sh_tbl[IDX].compiler_gen
#define	SH_DOALL_LOOP_END(IDX) sh_tbl[IDX].doall_loop_end
#define	SH_ERR_FLG(IDX) sh_tbl[IDX].stmt_parse_err
#define	SH_GLB_LINE(IDX) sh_tbl[IDX].glb_line_num
#define	SH_ACTION_STMT(IDX) sh_tbl[IDX].action_stmt
#define	SH_INLINING_ATTEMPTED(IDX) sh_tbl[IDX].inlining_attempted
#define	SH_IR_IDX(IDX) sh_tbl[IDX].ir_idx
#define	SH_LABELED(IDX) sh_tbl[IDX].labeled
#define	SH_LOOP_END(IDX) sh_tbl[IDX].loop_end
#define	SH_NEXT_IDX(IDX) sh_tbl[IDX].next_sh_idx
#define	SH_P2_SKIP_ME(IDX) sh_tbl[IDX].skip_pass_2
#define	SH_PARENT_BLK_IDX(IDX) sh_tbl[IDX].parent_blk_idx
#define	SH_PREV_IDX(IDX) sh_tbl[IDX].prev_sh_idx
#define	OLD_SH_STMT_TYPE(IDX) sh_tbl[IDX].old_stmt_type
#define	SH_STMT_TYPE(IDX) sh_tbl[IDX].stmt_type
#define	GL_IR_COL_NUM(IDX) global_ir_tbl[IDX].opr.col_num
#define	GL_IR_LINE_NUM(IDX) global_ir_tbl[IDX].opr.line_num
#define	GL_IR_NEXT_IDX(IDX) global_ir_tbl[IDX].opr.line_num
#define	GL_IR_OPR(IDX) global_ir_tbl[IDX].opr.the_operator
#define	GL_IR_TYPE_IDX(IDX) global_ir_tbl[IDX].opr.type_idx
#define	GL_IR_RANK(IDX) global_ir_tbl[IDX].opr.rank
#define	GL_IR_DV_DIM(IDX) global_ir_tbl[IDX].opr.dim
#define	GL_IR_CONTIG_ARRAY(IDX) global_ir_tbl[IDX].opr.dim
#define	GL_IR_WHOLE_ARRAY(IDX) global_ir_tbl[IDX].opr.dim
#define	GL_IR_INLINE_STATE(IDX) global_ir_tbl[IDX].opr.dim
#define	GL_IR_COL_NUM_L(IDX) global_ir_tbl[IDX].op_l.col_num
#define	GL_IR_FLD_L(IDX) global_ir_tbl[IDX].op_l.fld
#define	GL_IR_IDX_L(IDX) global_ir_tbl[IDX].op_l.idx
#define	GL_IR_LINE_NUM_L(IDX) global_ir_tbl[IDX].op_l.line_num
#define	GL_IR_LIST_CNT_L(IDX) global_ir_tbl[IDX].op_l.line_num
#define	GL_IR_SHORT_CIRCUIT_L(IDX) global_ir_tbl[IDX].op_l.flag_1
#define	GL_IR_ARRAY_SYNTAX(IDX) global_ir_tbl[IDX].op_l.flag_2
#define	GL_IR_COL_NUM_R(IDX) global_ir_tbl[IDX].op_r.col_num
#define	GL_IR_FLD_R(IDX) global_ir_tbl[IDX].op_r.fld
#define	GL_IR_IDX_R(IDX) global_ir_tbl[IDX].op_r.idx
#define	GL_IR_LINE_NUM_R(IDX) global_ir_tbl[IDX].op_r.line_num
#define	GL_IR_LIST_CNT_R(IDX) global_ir_tbl[IDX].op_r.line_num
#define	GL_IR_SHORT_CIRCUIT_R(IDX) global_ir_tbl[IDX].op_r.flag_1
#define	GL_IR_OPND_L(IDX) global_ir_tbl[IDX].op_l
#define	GL_IR_OPND_R(IDX) global_ir_tbl[IDX].op_r
#define	GL_IL_NEXT_LIST_IDX(IDX) global_ir_list_tbl[IDX].il.link.nxt_idx
#define	GL_IL_IDX(IDX) global_ir_list_tbl[IDX].il.op.idx
#define	GL_IL_LINE_NUM(IDX) global_ir_list_tbl[IDX].il.op.line_num
#define	GL_IL_COL_NUM(IDX) global_ir_list_tbl[IDX].il.op.col_num
#define	GL_IL_LIST_CNT(IDX) global_ir_list_tbl[IDX].il.op.line_num
#define	GL_IL_FLD(IDX) global_ir_list_tbl[IDX].il.op.fld
#define	GL_IL_ARG_DESC_VARIANT(IDX) global_ir_list_tbl[IDX].il.link.arg_desc
#define	GL_IL_PREV_LIST_IDX(IDX) global_ir_list_tbl[IDX].il.link.prev_idx
#define	GL_IL_ARG_DESC_IDX(IDX) global_ir_list_tbl[IDX].il.link.prev_idx
#define	GL_IL_VECTOR_SUBSCRIPT(IDX) global_ir_list_tbl[IDX].il.link.flag_1
#define	GL_IL_CONSTANT_SUBSCRIPT(IDX) global_ir_list_tbl[IDX].il.link.flag_2
#define	GL_IL_PE_SUBSCRIPT(IDX) global_ir_list_tbl[IDX].il.link.flag_3
#define	GL_IL_NAMELIST_EXPECTED(IDX) global_ir_list_tbl[IDX].il.link.flag_1
#define	GL_IL_FORMAT_EXPECTED(IDX) global_ir_list_tbl[IDX].il.link.flag_2
#define	GL_IL_HAS_FUNCTIONS(IDX) global_ir_list_tbl[IDX].il.link.flag_1
#define	GL_IL_MUST_BE_LOOP(IDX) global_ir_list_tbl[IDX].il.link.flag_2
#define	GL_IL_MUST_FLATTEN(IDX) global_ir_list_tbl[IDX].il.link.flag_3
#define	GL_IL_HAS_CONSTRUCTOR(IDX) global_ir_list_tbl[IDX].il.link.flag_4
#define	GL_IL_STRUCT_REF(IDX) global_ir_list_tbl[IDX].il.link.flag_5
#define	GL_IL_INTRIN_PLACE_HOLDER(IDX) global_ir_list_tbl[IDX].il.link.flag_6
#define	GL_IL_NONDEFAULT_IMP_DO_LCV(IDX) global_ir_list_tbl[IDX].il.link.flag_7
#define	GL_IL_DISTRIBUTION_VARIANT(IDX) global_ir_list_tbl[IDX].il.link.flag_8
#define	GL_IL_FORWARD_REF(IDX) global_ir_list_tbl[IDX].il.link.for_ref
#define	GL_IL_DISTRIBUTION(IDX) global_ir_list_tbl[IDX].il.link.for_ref
#define	GL_IL_WORD(IDX, WD) global_ir_list_tbl[IDX].words[WD]
#define	GL_IL_OPND(IDX) global_ir_list_tbl[IDX].il.op
#define	GL_SH_CIF_SKIP_ME(IDX) global_sh_tbl[IDX].cif_skip_me
#define	GL_SH_COL_NUM(IDX) global_sh_tbl[IDX].col_num
#define	GL_SH_COMPILER_GEN(IDX) global_sh_tbl[IDX].compiler_gen
#define	GL_SH_DOALL_LOOP_END(IDX) global_sh_tbl[IDX].doall_loop_end
#define	GL_SH_ERR_FLG(IDX) global_sh_tbl[IDX].stmt_parse_err
#define	GL_SH_GLB_LINE(IDX) global_sh_tbl[IDX].glb_line_num
#define	GL_SH_INLINING_ATTEMPTED(IDX) global_sh_tbl[IDX].inlining_attempted
#define	GL_SH_IR_IDX(IDX) global_sh_tbl[IDX].ir_idx
#define	GL_SH_LABELED(IDX) global_sh_tbl[IDX].labeled
#define	GL_SH_LOOP_END(IDX) global_sh_tbl[IDX].loop_end
#define	GL_SH_NEXT_IDX(IDX) global_sh_tbl[IDX].next_sh_idx
#define	GL_SH_P2_SKIP_ME(IDX) global_sh_tbl[IDX].skip_pass_2
#define	GL_SH_PARENT_BLK_IDX(IDX) global_sh_tbl[IDX].parent_blk_idx
#define	GL_SH_PREV_IDX(IDX) global_sh_tbl[IDX].prev_sh_idx
#define	GL_SH_STMT_TYPE(IDX) global_sh_tbl[IDX].stmt_type
#define	ML_AT_IDX(IDX) mod_link_tbl[IDX].at_idx
#define	ML_AT_COMPRESSED_IDX(IDX) mod_link_tbl[IDX].at_compressed
#define	ML_AT_KEEP_ME(IDX) mod_link_tbl[IDX].at_keep_me
#define	ML_AT_LN_NAME(IDX) mod_link_tbl[IDX].at_ln_name
#define	ML_AT_SEARCHED(IDX) mod_link_tbl[IDX].at_searched
#define	ML_AT_SEARCH_ME(IDX) mod_link_tbl[IDX].at_search_me
#define	ML_BD_IDX(IDX) mod_link_tbl[IDX].bd_idx
#define	ML_BD_KEEP_ME(IDX) mod_link_tbl[IDX].bd_keep_me
#define	ML_CN_IDX(IDX) mod_link_tbl[IDX].cn_idx
#define	ML_CN_KEEP_ME(IDX) mod_link_tbl[IDX].cn_keep_me
#define	ML_CP_DALIGN_ME(IDX) mod_link_tbl[IDX].cp_dalign_me
#define	ML_CP_IDX(IDX) mod_link_tbl[IDX].cp_idx
#define	ML_CP_KEEP_ME(IDX) mod_link_tbl[IDX].cp_keep_me
#define	ML_CP_LEN(IDX) mod_link_tbl[IDX].cp_len
#define	ML_IL_IDX(IDX) mod_link_tbl[IDX].il_idx
#define	ML_IL_KEEP_ME(IDX) mod_link_tbl[IDX].il_keep_me
#define	ML_IR_IDX(IDX) mod_link_tbl[IDX].ir_idx
#define	ML_IR_KEEP_ME(IDX) mod_link_tbl[IDX].ir_keep_me
#define	ML_LN_IDX(IDX) mod_link_tbl[IDX].ln_idx
#define	ML_LN_KEEP_ME(IDX) mod_link_tbl[IDX].ln_keep_me
#define	ML_NP_IDX(IDX) mod_link_tbl[IDX].np_idx
#define	ML_NP_KEEP_ME(IDX) mod_link_tbl[IDX].np_keep_me
#define	ML_NP_LEN(IDX) mod_link_tbl[IDX].np_len
#define	ML_SB_IDX(IDX) mod_link_tbl[IDX].sb_idx
#define	ML_SB_KEEP_ME(IDX) mod_link_tbl[IDX].sb_keep_me
#define	ML_SH_IDX(IDX) mod_link_tbl[IDX].sh_idx
#define	ML_SH_KEEP_ME(IDX) mod_link_tbl[IDX].sh_keep_me
#define	ML_SN_IDX(IDX) mod_link_tbl[IDX].sn_idx
#define	ML_SN_KEEP_ME(IDX) mod_link_tbl[IDX].sn_keep_me
#define	ML_TYP_IDX(IDX) mod_link_tbl[IDX].typ_idx
#define	ML_TYP_KEEP_ME(IDX) mod_link_tbl[IDX].typ_keep_me
#define	LN_ATTR_IDX(IDX) loc_name_tbl[IDX].attr_idx
#define	LN_DEF_LOC(IDX) loc_name_tbl[IDX].def_locally
#define	LN_IN_ONLY_LIST(IDX) loc_name_tbl[IDX].in_only_list
#define	LN_NAME_IDX(IDX) loc_name_tbl[IDX].name_idx
#define	LN_NAME_LEN(IDX) loc_name_tbl[IDX].name_len
#define	LN_NAME_LONG(IDX) &(name_pool[LN_NAME_IDX(IDX)].name_long)
#define	LN_NEW_NAME(IDX) loc_name_tbl[IDX].new_name
#define	LN_RENAMED(IDX) loc_name_tbl[IDX].renamed
#define	PDG_AT_IDX(IDX) pdg_link_tbl[IDX].at_idx
#define	PDG_AT_TYP_IDX(IDX) pdg_link_tbl[IDX].at_typ_idx
#define	PDG_CN_IDX(IDX) pdg_link_tbl[IDX].cn_idx
#define	PDG_SB_IDX(IDX) pdg_link_tbl[IDX].sb_idx
#define	RO_COLUMN_NUM(IDX) rename_only_tbl[IDX].column_num
#define	RO_DUPLICATE_RENAME(IDX) rename_only_tbl[IDX].duplicate_rename
#define	RO_LINE_NUM(IDX) rename_only_tbl[IDX].line_num
#define	RO_NAME_IDX(IDX) rename_only_tbl[IDX].name_idx
#define	RO_NAME_LEN(IDX) rename_only_tbl[IDX].name_len
#define	RO_NAME_LONG(IDX) &(name_pool[RO_NAME_IDX(IDX)].name_long)
#define	RO_NAME_PTR(IDX) &name_pool[RO_NAME_IDX(IDX)].name_char
#define	RO_NEXT_IDX(IDX) rename_only_tbl[IDX].next_idx
#define	RO_RENAME_IDX(IDX) rename_only_tbl[IDX].rename_idx
#define	RO_RENAME_NAME(IDX) rename_only_tbl[IDX].rename_name
#define	RO_NAME_ATTR(IDX) rename_only_tbl[IDX].attr_idx
#define	SN_ATTR_IDX(IDX) sec_name_tbl[IDX].attr_idx
#define	SN_COLUMN_NUM(IDX) sec_name_tbl[IDX].column_num
#define	SN_LINE_NUM(IDX) sec_name_tbl[IDX].line_num
#define	SN_MATCHED_DARG(IDX) sec_name_tbl[IDX].matched
#define	SN_NAME_IDX(IDX) sec_name_tbl[IDX].name_idx
#define	SN_NAME_LEN(IDX) sec_name_tbl[IDX].length
#define	SN_SIBLING_LINK(IDX) sec_name_tbl[IDX].sibling_link
#define	SB_ALIGN_SYMBOL(IDX) stor_blk_tbl[IDX].fld.align_symbol
#define	SB_AUXILIARY(IDX) stor_blk_tbl[IDX].fld.auxiliary
#define	SB_BLANK_COMMON(IDX) stor_blk_tbl[IDX].fld.blank_common
#define	SB_BLK_HAS_NPES(IDX) stor_blk_tbl[IDX].fld.blk_has_npes
#define	SB_BLK_TYPE(IDX) stor_blk_tbl[IDX].fld.sb_type
#define	OLD_SB_BLK_TYPE(IDX) stor_blk_tbl[IDX].fld.old_sb_type
#define	SB_CACHE_ALIGN(IDX) stor_blk_tbl[IDX].fld.cache_align
#define	SB_CIF_SYMBOL_ID(IDX) stor_blk_tbl[IDX].fld.cif_idx
#define	SB_COMMON_NEEDS_OFFSET(IDX) stor_blk_tbl[IDX].fld.needs_offset
#define	SB_DCL_ERR(IDX) stor_blk_tbl[IDX].fld.dcl_err
#define	SB_DCL_COMMON_DIR(IDX) stor_blk_tbl[IDX].fld.dcl_common_dir
#define	SB_DEF_COLUMN(IDX) stor_blk_tbl[IDX].fld.def_column
#define	SB_DEF_MULT_SCPS(IDX) stor_blk_tbl[IDX].fld.def_mult_scps
#define	SB_DEF_LINE(IDX) stor_blk_tbl[IDX].fld.def_line
#define	SB_DUPLICATE_COMMON(IDX) stor_blk_tbl[IDX].fld.duplicate_common
#define	SB_EQUIVALENCED(IDX) stor_blk_tbl[IDX].fld.equivalenced
#define	SB_FILL_SYMBOL(IDX) stor_blk_tbl[IDX].fld.fill_symbol
#define	SB_FIRST_ATTR_IDX(IDX) stor_blk_tbl[IDX].fld.first_attr_idx
#define	SB_HAS_RENAMES(IDX) stor_blk_tbl[IDX].fld.has_renames
#define	SB_HIDDEN(IDX) stor_blk_tbl[IDX].fld.hidden
#define	SB_HOST_ASSOCIATED(IDX) stor_blk_tbl[IDX].fld.host_associated
#define	SB_HOSTED_STACK(IDX) stor_blk_tbl[IDX].fld.hosted_stack
#define	SB_HOSTED_STATIC(IDX) stor_blk_tbl[IDX].fld.hosted_static
#define	SB_IS_COMMON(IDX) stor_blk_tbl[IDX].fld.is_common
#define	SB_LAST_ATTR_LIST(IDX) stor_blk_tbl[IDX].fld.last_attr_list
#define	SB_LEN_FLD(IDX) stor_blk_tbl[IDX].fld.len_fld
#define	SB_LEN_IDX(IDX) stor_blk_tbl[IDX].fld.len_idx
#define	SB_MERGED_BLK_IDX(IDX) stor_blk_tbl[IDX].fld.merged_blk_idx
#define	SB_MODULE_IDX(IDX) stor_blk_tbl[IDX].fld.module_idx
#define	SB_MODULE(IDX) stor_blk_tbl[IDX].fld.module
#define	SB_NAME_IDX(IDX) stor_blk_tbl[IDX].fld.name_idx
#define	SB_NAME_PTR(IDX) &name_pool[SB_NAME_IDX(IDX)].name_char
#define	SB_NAME_LONG(IDX) &(name_pool[SB_NAME_IDX(IDX)].name_long)
#define	SB_NAME(IDX) name_pool[SB_NAME_IDX(IDX)].name_char
#define	SB_NAME_IN_STONE(IDX) stor_blk_tbl[IDX].fld.name_in_stone
#define	SB_NAME_LEN(IDX) stor_blk_tbl[IDX].fld.name_len
#define	SB_ORIG_SCP_IDX(IDX) stor_blk_tbl[IDX].fld.orig_scp_idx
#define	SB_PAD_AMOUNT(IDX) stor_blk_tbl[IDX].fld.pad_amount
#define	SB_PAD_AMOUNT_SET(IDX) stor_blk_tbl[IDX].fld.pad_amount_set
#define	SB_PAD_BLK(IDX) stor_blk_tbl[IDX].fld.pad_blk
#define	SB_RUNTIME_INIT(IDX) stor_blk_tbl[IDX].fld.runtime_init
#define	SB_SAVED(IDX) stor_blk_tbl[IDX].fld.saved
#define	SB_SCP_IDX(IDX) stor_blk_tbl[IDX].fld.scp_idx
#define	SB_SECTION_GP(IDX) stor_blk_tbl[IDX].fld.section_gp
#define	SB_SECTION_NON_GP(IDX) stor_blk_tbl[IDX].fld.section_non_gp
#define	SB_SYMMETRIC(IDX) stor_blk_tbl[IDX].fld.symmetric
#define	SB_USE_ASSOCIATED(IDX) stor_blk_tbl[IDX].fld.use_associated
#define	SB_VOLATILE(IDX) stor_blk_tbl[IDX].fld.x_volatile
#define	TYP_BIT_LEN(IDX) type_tbl[IDX].fld.bit_len
#define	TYP_BIT_LEN_F(IDX) type_tbl[IDX].wd.length
#define	TYP_CHAR_CLASS(IDX) type_tbl[IDX].fld.char_class
#define	TYP_DCL_VALUE(IDX) type_tbl[IDX].fld.dcl_value
#define	TYP_DECLARED_DBL(IDX) type_tbl[IDX].fld.declared_dbl
#define	TYP_DESC(IDX) type_tbl[IDX].fld.desc
#define	TYP_DP_HIT_ME(IDX) type_tbl[IDX].fld.dp_hit_me
#define	TYP_FLD(IDX) type_tbl[IDX].fld.type_fld
#define	TYP_IDX(IDX) type_tbl[IDX].fld.type_idx
#define	TYP_IS_BYTE(IDX) type_tbl[IDX].fld.type_is_byte
#define	TYP_LINEAR(IDX) type_tbl[IDX].fld.linear_type
#define	TYP_ORIG_LEN_IDX(IDX) type_tbl[IDX].fld.bit_len
#define	TYP_PTR_INCREMENT(IDX) type_tbl[IDX].fld.bit_len
#define	TYP_RESOLVED(IDX) type_tbl[IDX].fld.resolved
#define	TYP_TYPE(IDX) type_tbl[IDX].fld.type
#define	TYP_KIND_CONST(IDX) type_tbl[IDX].fld.kind_const
#define	TYP_KIND_DOUBLE(IDX) type_tbl[IDX].fld.kind_double
#define	OLD_TYP_DP_HIT_ME(IDX) type_tbl[IDX].wd.old_dp_hit_me
#define	OLD_TYP_FLD(IDX) type_tbl[IDX].fld.old_type_fld
#define	OLD_TYP_RESOLVED(IDX) type_tbl[IDX].wd.old_resolved
#define	OLD_TYP_TYPE(IDX) type_tbl[IDX].wd.old_type
#define	MSK_NAME_IDX 0000000000000077777777
#define	MSK_NAME_LEN 0000000000000000000377
#define	SN_NP_IDX(IDX) SN_NAME_IDX(IDX)
#define	SN_LEN(IDX) SN_NAME_LEN(IDX)
#define	RIGHT_JUSTIFY_SIGN_BIT(I) ((unsigned long) (I) >> (8 * sizeof(long)-1))
#define	STRIDE_CALC(SEG_LEN) (((SEG_LEN) + _MAXVL - 1) / _MAXVL)
#define	WORD_LEN(ID_LEN) ((ID_LEN) + sizeof(long)) / sizeof(long)
#define	CLEAR_ATTR_NTRY(IDX)
#define	CLEAR_TBL_NTRY(TBL, IDX)
#define	COPY_ATTR_NTRY(TO, FROM)
#define	COPY_TBL_NTRY(TBL, TO, FROM)
#define	COPY_GL_TBL_NTRY(TBL1, TBL2, TO, FROM)
#define	COPY_BD_NTRY(TO, FROM)
#define	CREATE_ERR_ATTR(IDX, LINE, COL, CLASS)
#define	COPY_COMMON_ATTR_INFO(FROM, TO, CLASS)
#define	COPY_VARIANT_ATTR_INFO(FROM, TO, CLASS)
#define	CLEAR_VARIANT_ATTR_INFO(IDX, CLASS)
#define	CREATE_FUNC_RSLT(AT_IDX, RSLT_IDX)
#define	FREE_IR_LIST_NODE(IDX)
#define	FREE_IR_NODE(IDX)
#define	FREE_SH_NODE(IDX)
#define	FREE_GL_IR_LIST_NODE(IDX)
#define	FREE_GL_IR_NODE(IDX)
#define	FREE_GL_SH_NODE(IDX)
#define	GEN_COMPILER_TMP_ASG(IR_IDX, ATTR_IDX, SEM_DONE, LINE, COL, TYPE_IDX, SCOPE)
#define	IS_STMT_ENTITY(ATTR_IDX)
#define	NTR_ATTR_TBL(ATTR_IDX)
#define	NTR_ATTR_LIST_TBL(ATTR_LIST_IDX)
#define	ADD_ATTR_TO_LOCAL_LIST(AT_IDX) add_attr_to_local_list(AT_IDX);
#define	NTR_EQ_TBL(EQ_IDX)
#define	EXTRA_WORD 0
#define	NTR_NAME_POOL(NAME, LEN, NP_IDX)
#define	NTR_IR_LIST_TBL(IR_LIST_IDX)
#define	NTR_IR_TBL(IR_IDX)
#define	NTR_GL_IR_LIST_TBL(IR_LIST_IDX)
#define	NTR_GL_IR_TBL(IR_IDX)
#define	NTR_SCP_TBL(SCP_IDX)
#define	NTR_SN_TBL(SN_IDX)
#define	NTR_INTERFACE_IN_SN_TBL(SN_IDX, AT_IDX, PARENT_IDX, LINE, COLUMN)
#define	NTR_NAME_IN_LN_TBL(ENTER_NAME_IDX, NEW_NAME_IDX)
#define	SET_IMPL_TYPE(AT_IDX)
#define	SET_IMPL_TYPE_IN_SCP(AT_IDX, SCP_IDX)
#define	BITS_TO_WORDS(BIT_SIZE, ALIGN_TO)
#define	BYTES_TO_WORDS(BIT_SIZE, ALIGN_TO)
#define	THIS_IS_TRUE(THE_CONSTANT, TYPE_IDX) ((THE_CONSTANT)[0] == TRUE_VALUE)
#define	CONVERT_CVAL_TO_STR(CONSTANT, TYPE_IDX, RESULT) convert_cval_to_string(CONSTANT, TYPE_IDX, RESULT)
#define	F_INT_TO_C(ARRAY, LIN_TYPE)
#define	CN_INT_TO_C(IDX) F_INT_TO_C(&CN_CONST(IDX), TYP_LINEAR(CN_TYPE_IDX(IDX)))
#define	C_INT_TO_CN(TYPE_IDX, CONST) ntr_int_const_tbl(TYPE_IDX, (long64) (CONST))
#define	C_TO_F_INT(ARRAY, CONST, LIN_TYPE)

Define Documentation

#define ADD_ATTR_TO_LOCAL_LIST ( AT_IDX ) add_attr_to_local_list(AT_IDX);

Definition at line 4448 of file sytb.m.

Referenced by allocate_stmt_semantics(), assign_new_idxs_after_input(), call_list_semantics(), copy_sbtree(), create_runtime_array_constructor(), deallocate_local_allocatables(), deallocate_stmt_semantics(), end_program_unit(), final_attr_semantics(), flatten_function_call(), gen_bounds_check_call(), gen_conform_check_call(), gen_end_prologue_debug_label(), gen_internal_call_stmt(), gen_ptr_chk_call(), gen_rbounds_check_call(), gen_sbounds_check_call(), host_associated_attr_semantics(), insert_argchck_calls(), namelist_resolution(), ntr_local_attr_list(), parse_backspace_stmt(), parse_buffer_stmt(), parse_close_stmt(), parse_dir_directives(), parse_endfile_stmt(), parse_inquire_stmt(), parse_mic_directives(), parse_open_stmt(), parse_rewind_stmt(), print_stmt_semantics(), read_stmt_semantics(), resolve_ext_opr(), stop_pause_stmt_semantics(), storage_blk_resolution(), test_size_stmts(), use_stmt_semantics(), and write_stmt_semantics().

#define AL_ATTR_IDX ( IDX ) attr_list_tbl[IDX].attr_idx

Definition at line 2982 of file sytb.m.

Referenced by add_attr_to_local_list(), assign_new_idxs_after_input(), attr_semantics(), bound_semantics(), call_list_semantics(), check_for_dup_derived_type_lbl(), check_multiple_entry_func(), cif_scope_info_rec(), cif_send_sytb(), collapse_interface_blk(), complete_intrinsic_definition(), compress_tbls(), copy_entry_exit_sh_list(), copy_subtree(), cvrt_sytb_to_pdg(), decl_semantics(), decl_semantics_driver(), dim_reshape_pass_driver(), dump_al_ntry(), end_function(), end_function_semantics(), end_module_proc(), end_subroutine(), final_attr_semantics(), final_decl_semantics(), gen_assumed_shape_copy(), gen_darg_branch_test(), gen_ir_at_this_entry(), gen_tmp_eq_zero_ir(), gen_user_code_start_opr(), implicit_use_semantics(), insert_sh_after_entries(), insert_sh_chain_after_entries(), merge_entry_list_count(), merge_entry_lists(), namelist_resolution(), ntr_bnds_sh_tmp_list(), ntr_bnds_tmp_list(), output_mod_info_file(), parse_dummy_args(), parse_entry_stmt(), parse_implicit_stmt(), parse_type_spec(), parse_use_stmt(), pgm_unit_semantics(), print_sytb(), process_attr_list(), process_procs_for_inlining(), reshape_array_semantics(), resolve_used_modules(), return_stmt_semantics(), send_attr_ntry(), send_procedure(), set_up_which_entry_tmp(), srch_for_calls(), and use_stmt_semantics().

#define AL_ENTRY_COUNT ( IDX ) attr_list_tbl[IDX].prev_idx

Definition at line 2992 of file sytb.m.

Referenced by array_dim_resolution(), char_len_resolution(), decl_semantics(), dump_al_ntry(), merge_entry_list_count(), merge_entry_lists(), and pe_array_dim_resolution().

#define AL_EQ_IDX ( IDX ) attr_list_tbl[IDX].attr_idx

Definition at line 2983 of file sytb.m.

Referenced by dump_al_ntry(), equivalence_semantics(), merge_equivalence_groups1(), merge_equivalence_groups2(), and parse_equivalence_stmt().

#define AL_FREE ( IDX ) attr_list_tbl[IDX].flag2

Definition at line 2986 of file sytb.m.

Referenced by compress_tbls(), dump_al_ntry(), and free_attr_list().

#define AL_IDX_IS_EQ ( IDX ) attr_list_tbl[IDX].flag1

Definition at line 2985 of file sytb.m.

Referenced by dump_al_ntry(), and parse_equivalence_stmt().

#define AL_NEXT_IDX ( IDX ) attr_list_tbl[IDX].next_idx

Definition at line 2984 of file sytb.m.

Referenced by add_attr_to_local_list(), assign_new_idxs_after_input(), attr_semantics(), bound_semantics(), call_list_semantics(), check_for_dup_derived_type_lbl(), check_multiple_entry_func(), cif_scope_info_rec(), cif_send_sytb(), collapse_interface_blk(), complete_intrinsic_definition(), copy_entry_exit_sh_list(), copy_subtree(), cvrt_sytb_to_pdg(), decl_semantics(), decl_semantics_driver(), dim_reshape_pass_driver(), dump_al_ntry(), end_function(), end_function_semantics(), end_module_proc(), end_subroutine(), equivalence_semantics(), final_attr_semantics(), final_decl_semantics(), free_attr_list(), gen_assumed_shape_copy(), gen_darg_branch_test(), gen_ir_at_this_entry(), gen_tmp_eq_zero_ir(), gen_user_code_start_opr(), implicit_use_semantics(), insert_sh_after_entries(), insert_sh_chain_after_entries(), merge_entry_list_count(), merge_entry_lists(), merge_equivalence_groups1(), merge_equivalence_groups2(), namelist_resolution(), ntr_attr_list_tbl(), ntr_bnds_sh_tmp_list(), ntr_bnds_tmp_list(), output_mod_info_file(), parse_dummy_args(), parse_entry_stmt(), parse_equivalence_stmt(), parse_implicit_stmt(), parse_kind_selector(), parse_type_spec(), parse_use_stmt(), pgm_unit_semantics(), print_al_list(), print_sytb(), process_attr_list(), process_procs_for_inlining(), reshape_array_semantics(), resolve_used_modules(), return_stmt_semantics(), send_attr_ntry(), send_procedure(), set_up_which_entry_tmp(), srch_for_calls(), and use_stmt_semantics().

#define AL_PREV_MODULE_IDX ( IDX ) attr_list_tbl[IDX].prev_idx

Definition at line 2993 of file sytb.m.

Referenced by assign_new_idxs_after_input(), implicit_use_semantics(), parse_use_stmt(), resolve_used_modules(), and use_stmt_semantics().

#define AT_ACCESS_SET ( IDX ) attr_aux_tbl[IDX].fld.access_set

Definition at line 338 of file sytb.m.

Referenced by attr_link_resolution(), dump_at_ntry(), fnd_semantic_err(), merge_access(), parse_access_stmt(), parse_attr_spec(), parse_derived_type_stmt(), and set_function_rslt().

#define AT_ACTUAL_ARG ( IDX ) attr_tbl[IDX].fld.passed_as_arg

Definition at line 339 of file sytb.m.

Referenced by dump_at_ntry(), flatten_function_call(), not_visible_semantics(), pgm_unit_semantics(), send_attr_ntry(), set_at_actual_arg(), and srch_for_calls().

#define AT_ALT_DARG ( IDX ) attr_tbl[IDX].fld.alt_darg

Definition at line 340 of file sytb.m.

Referenced by call_list_semantics(), decl_semantics(), and dump_at_ntry().

#define AT_ARG_TO_KIND ( IDX ) attr_aux_tbl[IDX].fld.arg_to_kind

Definition at line 341 of file sytb.m.

Referenced by dump_at_ntry(), kind_intrinsic(), and merge_type().

#define AT_ATTR_LINK ( IDX ) attr_tbl[IDX].fld.attr_link

Definition at line 342 of file sytb.m.

Referenced by array_construct_semantics(), assert_semantics(), assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), build_loop_tbl(), call_list_semantics(), cif_send_attr(), compare_derived_types(), compare_global_derived_type(), convert_const(), copy_and_replace_tmps(), copy_sbtree(), create_namelist_descriptor(), defined_bin_opr_handler(), defined_un_opr_handler(), directive_stmt_semantics(), do_read_namelist_semantics(), do_write_namelist_semantics(), doall_cmic_semantics(), dump_at_ntry(), end_forall_semantics(), expand_user_bound(), final_attr_semantics(), find_prog_unit_tbl(), fnd_semantic_err(), forall_semantics(), gen_forall_loops(), gen_forall_tmp(), generic_spec_semantics(), get_operand_dot(), get_operator_dot(), host_associated_attr_semantics(), io_ctl_list_semantics(), io_list_semantics(), is_local_forall_index(), make_new_bd_entries(), merge_access(), merge_interfaces(), merge_type(), mp_directive_semantics(), namelist_resolution(), not_visible_semantics(), ntr_host_in_sym_tbl(), open_mp_directive_semantics(), parallel_cmic_semantics(), parse_assignment_stmt(), parse_attrs(), parse_auxiliary_dir(), parse_cache_noalloc(), parse_call_stmt(), parse_common_stmt(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_deref(), parse_derived_type_stmt(), parse_distribution_dir(), parse_dummy_args(), parse_equivalence_stmt(), parse_expr(), parse_fill_align_symbol(), parse_ignore_tkr(), parse_implicit_stmt(), parse_inline_always_never(), parse_level_1(), parse_lhs(), parse_name_dir(), parse_nosideeffects_dir(), parse_parameter_stmt(), parse_permutation_mic(), parse_pointer_stmt(), parse_redistribute_dir(), parse_sgi_dir_inline(), parse_star_directives(), parse_stmt_func_stmt(), parse_symmetric_dir(), parse_type_dcl_stmt(), parse_type_spec(), parse_vfunction_dir(), print_attr_name(), process_attr_links(), resolve_attr(), resolve_used_modules(), send_attr_ntry(), send_derived_type(), set_function_rslt(), set_mod_link_tbl_for_attr(), set_mod_link_tbl_for_typ(), srch_for_calls(), start_new_subpgm(), subscript_opr_handler(), update_idxs_in_attr_entry(), and verify_interface().

#define AT_CIF_DONE ( IDX ) attr_aux_tbl[IDX].fld.cif_done

Definition at line 343 of file sytb.m.

Referenced by cif_object_rec_for_func_result(), cif_send_attr(), and dump_at_ntry().

#define AT_CIF_IN_USAGE_REC ( IDX ) attr_aux_tbl[IDX].fld.cif_usage_rec

Definition at line 344 of file sytb.m.

Referenced by cif_send_attr(), cif_usage_rec(), and dump_at_ntry().

#define AT_CIF_SYMBOL_ID ( IDX ) attr_aux_tbl[IDX].fld.cif_sym_id

#define AT_CIF_USE_IN_BND ( IDX ) attr_aux_tbl[IDX].fld.cif_use_in_bnd

Definition at line 346 of file sytb.m.

Referenced by bound_semantics(), cif_send_attr(), and dump_at_ntry().

#define AT_COMPILER_GEND ( IDX ) attr_tbl[IDX].fld.compiler_gend

#define AT_DCL_ERR ( IDX ) attr_tbl[IDX].fld.dcl_err

Definition at line 348 of file sytb.m.

Referenced by array_dim_resolution(), assign_offset(), assign_stmt_semantics(), attr_link_resolution(), attr_semantics(), bound_semantics(), call_list_semantics(), chain_thru_sn_ntries(), char_len_resolution(), check_and_allocate_common_storage(), check_for_dup_derived_type_lbl(), cif_call_site_rec(), cif_send_attr(), cif_usage_rec(), ck_lbl_construct_name(), create_mod_info_file(), decl_semantics(), default_init_semantics(), directive_stmt_semantics(), do_stmt_semantics(), dump_at_ntry(), end_interface_blk(), end_interface_body(), equivalence_semantics(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), find_prog_unit_tbl(), finish_cdir_id(), fnd_semantic_err(), gen_auto_length(), gen_default_init_code(), gen_entry_dope_code(), is_attr_referenced_in_bound(), issue_attr_blk_err(), issue_attr_err(), issue_undefined_type_msg(), label_ref_semantics(), linearize_list_for_equiv(), merge_automatic(), merge_dimension(), merge_parameter(), merge_pointer(), merge_target(), merge_type(), namelist_resolution(), not_visible_semantics(), num_images_intrinsic(), object_semantics(), parse_assign_stmt(), parse_attrs(), parse_common_stmt(), parse_cpnt_dcl_stmt(), parse_decode_stmt(), parse_deref(), parse_derived_type_stmt(), parse_do_stmt(), parse_dummy_args(), parse_encode_stmt(), parse_entry_stmt(), parse_forall(), parse_function_stmt(), parse_goto_stmt(), parse_id_directive(), parse_if_stmt(), parse_interface_stmt(), parse_io_control_list(), parse_kind_selector(), parse_length_selector(), parse_lhs(), parse_module_stmt(), parse_name_dir(), parse_namelist_stmt(), parse_parameter_stmt(), parse_permutation_mic(), parse_pointer_stmt(), parse_prefix_spec(), parse_print_stmt(), parse_prog_unit(), parse_read_stmt(), parse_select_stmt(), parse_stmt_func_stmt(), parse_subroutine_stmt(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), parse_where_stmt(), parse_write_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), pop_and_err_blk_stk(), read_in_module_tbl(), rename_only_semantics(), resolve_ext_opr(), resolve_fwd_lbl_refs(), retype_attr(), set_function_rslt(), start_new_prog_unit(), start_new_subpgm(), stmt_func_call_opr_handler(), stmt_func_semantics(), stmt_level_semantics(), stop_pause_stmt_semantics(), stor_bit_size_of(), type_init_semantics(), and verify_interface().

#define AT_DEF_COLUMN ( IDX ) attr_aux_tbl[IDX].fld.def_column

Definition at line 350 of file sytb.m.

Referenced by align_bit_length(), array_dim_resolution(), assign_new_idxs_after_input(), assign_offset(), assign_storage_blk(), attr_link_resolution(), attr_semantics(), bits_and_bytes_to_words(), bound_semantics(), char_len_resolution(), check_and_allocate_common_storage(), check_for_dup_derived_type_lbl(), check_for_elementals(), check_global_pgm_unit(), collapse_interface_blk(), compare_duplicate_interface_bodies(), compare_entry_to_func_rslt(), complete_intrinsic_definition(), continue_stmt_semantics(), create_argchck_descriptor(), create_equiv_stor_blk(), create_lib_entry_attr(), create_mod_info_file(), create_namelist_descriptor(), decl_semantics(), default_init_semantics(), dump_at_ntry(), else_stmt_semantics(), end_interface_blk(), final_attr_semantics(), find_attrs_used_in_bound(), find_prog_unit_tbl(), fnd_semantic_err(), gen_allocatable_ptr_ptee(), gen_auto_length(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_copyin_bounds_stmt(), gen_darg_branch_test(), gen_default_init_code(), gen_forall_derived_type(), gen_present_ir(), gen_single_automatic_allocate(), gen_temp_init(), gen_tmp_eq_zero_ir(), generic_spec_semantics(), global_name_semantics(), host_associated_attr_semantics(), init_parse_prog_unit(), init_whole_array(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), not_visible_semantics(), ntr_const_tbl(), ntr_global_attr_tbl(), ntr_host_in_sym_tbl(), ntr_local_attr_list(), ntr_ref_in_global_tbl(), ntr_sym_tbl(), ntr_unshared_const_tbl(), open_module_file(), output_mod_info_file(), parse_call_stmt(), parse_cpnt_dcl_stmt(), parse_data_imp_do(), parse_deref(), parse_derived_type_stmt(), parse_else_stmt(), parse_imp_do(), parse_inline_always_never(), parse_module_stmt(), parse_permutation_mic(), parse_prog_unit(), parse_sgi_dir_inline(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), print_attr_name(), process_all_initialized_cpnts(), read_in_module_tbl(), read_module_tbl_header(), read_sytb_from_module_file(), rename_only_semantics(), reshape_array_semantics(), resolve_used_modules(), retype_attr(), send_attr_ntry(), set_directives_on_label(), set_up_pe_offset_attr(), srch_ar_file_for_module_tbl(), srch_for_module_tbl(), start_new_prog_unit(), start_new_subpgm(), stmt_func_semantics(), stor_bit_size_of(), storage_blk_resolution(), use_stmt_semantics(), and verify_interface().

#define AT_DEF_IN_CHILD ( IDX ) attr_tbl[IDX].fld.def_in_child

Definition at line 351 of file sytb.m.

Referenced by call_list_semantics(), do_read_namelist_semantics(), dump_at_ntry(), host_associated_attr_semantics(), send_attr_ntry(), send_dummy_procedure(), and srch_for_calls().

#define AT_DEF_LINE ( IDX ) attr_aux_tbl[IDX].fld.def_line

Definition at line 349 of file sytb.m.

Referenced by align_bit_length(), array_dim_resolution(), assign_new_idxs_after_input(), assign_offset(), assign_storage_blk(), attr_link_resolution(), attr_semantics(), bits_and_bytes_to_words(), bound_semantics(), char_len_resolution(), check_and_allocate_common_storage(), check_for_dependencies(), check_for_dup_derived_type_lbl(), check_for_elementals(), check_global_pgm_unit(), ck_lbl_construct_name(), collapse_interface_blk(), compare_duplicate_interface_bodies(), compare_entry_to_func_rslt(), complete_intrinsic_definition(), continue_stmt_semantics(), copy_subtree(), create_argchck_descriptor(), create_equiv_stor_blk(), create_lib_entry_attr(), create_mod_info_file(), create_namelist_descriptor(), decl_semantics(), default_init_semantics(), do_stmt_semantics(), dump_at_ntry(), else_stmt_semantics(), end_if_blk(), end_interface_blk(), end_select_blk(), final_attr_semantics(), find_attrs_used_in_bound(), find_prog_unit_tbl(), fnd_semantic_err(), gen_allocatable_ptr_ptee(), gen_attr_and_IR_for_lbl(), gen_auto_length(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_copyin_bounds_stmt(), gen_darg_branch_test(), gen_default_init_code(), gen_forall_derived_type(), gen_present_ir(), gen_single_automatic_allocate(), gen_temp_init(), gen_tmp_eq_zero_ir(), generic_spec_semantics(), global_name_semantics(), host_associated_attr_semantics(), init_parse_prog_unit(), init_whole_array(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), label_ref_semantics(), loop_end_processing(), not_visible_semantics(), ntr_const_tbl(), ntr_global_attr_tbl(), ntr_host_in_sym_tbl(), ntr_local_attr_list(), ntr_ref_in_global_tbl(), ntr_sym_tbl(), ntr_unshared_const_tbl(), open_module_file(), output_mod_info_file(), parse_call_stmt(), parse_case_stmt(), parse_cpnt_dcl_stmt(), parse_data_imp_do(), parse_deref(), parse_derived_type_stmt(), parse_else_stmt(), parse_imp_do(), parse_inline_always_never(), parse_module_stmt(), parse_permutation_mic(), parse_prog_unit(), parse_sgi_dir_inline(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), print_attr_name(), process_all_initialized_cpnts(), read_in_module_tbl(), read_module_tbl_header(), read_sytb_from_module_file(), rename_only_semantics(), reshape_array_semantics(), resolve_used_modules(), retype_attr(), send_attr_ntry(), send_dummy_procedure(), send_procedure(), set_directives_on_label(), set_up_pe_offset_attr(), srch_ar_file_for_module_tbl(), srch_for_module_tbl(), start_new_prog_unit(), start_new_subpgm(), stmt_func_semantics(), stor_bit_size_of(), storage_blk_resolution(), use_stmt_semantics(), and verify_interface().

#define AT_DEFINED ( IDX ) attr_tbl[IDX].fld.defined

Definition at line 352 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assignment_stmt_semantics(), attr_semantics(), backspace_stmt_semantics(), bound_resolution(), bound_semantics(), call_list_semantics(), check_for_dup_derived_type_lbl(), check_label_ref(), check_multiple_entry_func(), ck_lbl_construct_name(), close_stmt_semantics(), copy_and_replace_tmps(), create_constructor_constant(), create_loop_stmts(), create_tmp_asg(), determine_lb_ub(), do_read_namelist_semantics(), do_stmt_semantics(), dump_at_ntry(), else_stmt_semantics(), end_blockdata(), end_function(), end_if_blk(), end_internal_proc(), end_module(), end_module_proc(), end_program_unit(), end_select_blk(), end_subroutine(), endfile_stmt_semantics(), expand_user_bound(), find_attrs_used_in_bound(), flatten_function_call(), fnd_semantic_err(), fold_aggragate_expression(), gen_assumed_shape_copy(), gen_attr_and_IR_for_lbl(), gen_bd_entry(), gen_debug_lbl_stmt(), gen_end_prologue_debug_label(), gen_forall_branch_around(), gen_forall_derived_type(), gen_if_ir(), gen_if_stmt(), host_associated_attr_semantics(), init_parse_prog_unit(), init_whole_array(), inquire_stmt_semantics(), insert_argchck_calls(), label_ref_semantics(), lbound_intrinsic(), loop_end_processing(), mark_attr_defined(), merge_data(), merge_parameter(), not_visible_semantics(), open_stmt_semantics(), parse_assign_stmt(), parse_case_stmt(), parse_cpnt_dcl_stmt(), parse_decode_stmt(), parse_derived_type_stmt(), parse_dir_directives(), parse_do_stmt(), parse_dummy_args(), parse_else_stmt(), parse_encode_stmt(), parse_io_control_list(), parse_lhs(), parse_print_stmt(), parse_prog_unit(), parse_read_stmt(), parse_type_dcl_stmt(), parse_write_stmt(), pgm_unit_semantics(), random_number_intrinsic(), read_stmt_semantics(), reshape_intrinsic(), resolve_fwd_lbl_refs(), rewind_stmt_semantics(), send_attr_ntry(), send_dummy_procedure(), set_attr_flds_for_output(), shape_intrinsic(), short_circuit_branch(), srch_for_calls(), start_new_prog_unit(), stmt_level_semantics(), test_size_stmts(), transfer_intrinsic(), transform_cri_ch_ptr(), ubound_intrinsic(), update_idxs_in_attr_entry(), and write_stmt_semantics().

#define AT_ELEMENTAL_INTRIN ( IDX ) attr_tbl[IDX].fld.elemental_intrin

Definition at line 353 of file sytb.m.

Referenced by call_list_semantics(), compare_darg_to_actual_arg(), complete_intrinsic_definition(), conform_check(), dump_at_ntry(), enter_intrinsic_info(), generic_spec_semantics(), merge_intrinsic(), parse_deref(), parse_inline_always_never(), parse_module_stmt(), parse_sgi_dir_inline(), parse_stmt_func_stmt(), and start_new_subpgm().

#define AT_HOST_ASSOCIATED ( IDX ) attr_tbl[IDX].fld.host_associated

Definition at line 354 of file sytb.m.

Referenced by attr_link_resolution(), attr_semantics(), call_list_semantics(), cif_send_attr(), copy_sbtree(), dump_at_ntry(), final_attr_semantics(), final_equivalence_semantics(), host_associated_attr_semantics(), parse_common_stmt(), send_attr_ntry(), and srch_for_calls().

#define AT_IGNORE_ATTR_LINK ( IDX ) attr_tbl[IDX].fld.ignore_attr_link

Definition at line 355 of file sytb.m.

Referenced by array_construct_semantics(), assign_new_idxs_after_input(), build_loop_tbl(), call_list_semantics(), create_namelist_descriptor(), defined_bin_opr_handler(), defined_un_opr_handler(), dump_at_ntry(), end_forall_semantics(), final_attr_semantics(), forall_semantics(), io_list_semantics(), resolve_used_modules(), send_attr_ntry(), set_mod_link_tbl_for_attr(), subscript_opr_handler(), and update_idxs_in_attr_entry().

#define AT_IS_DARG ( IDX ) attr_tbl[IDX].fld.is_darg

Definition at line 356 of file sytb.m.

Referenced by attr_semantics(), bound_semantics(), call_list_semantics(), cif_send_attr(), complete_intrinsic_definition(), dump_at_ntry(), fnd_semantic_err(), parse_dummy_args(), parse_stmt_func_stmt(), present_intrinsic(), send_attr_ntry(), and srch_for_calls().

#define AT_IS_INTRIN ( IDX ) attr_tbl[IDX].fld.is_intrin

Definition at line 357 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assignment_stmt_semantics(), attr_semantics(), call_list_semantics(), check_and_allocate_common_storage(), cif_send_attr(), complete_intrinsic_definition(), constant_value_semantics(), directive_stmt_semantics(), dump_at_ntry(), enter_intrinsic_info(), final_arg_work(), final_attr_semantics(), flatten_function_call(), fnd_semantic_err(), generic_spec_semantics(), interpret_constructor(), make_external_name(), merge_access(), merge_external(), merge_interfaces(), merge_intrinsic(), merge_type(), parse_call_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_inline_always_never(), parse_module_stmt(), parse_sgi_dir_inline(), parse_stmt_func_stmt(), parse_type_dcl_stmt(), resolve_attr(), send_attr_ntry(), start_new_subpgm(), update_intrinsic(), use_stmt_semantics(), and verify_interface().

#define AT_LOCKED_IN ( IDX ) attr_aux_tbl[IDX].fld.locked_in

Definition at line 358 of file sytb.m.

Referenced by assert_semantics(), call_list_semantics(), defined_bin_opr_handler(), defined_un_opr_handler(), directive_stmt_semantics(), doall_cmic_semantics(), dump_at_ntry(), gen_forall_derived_type(), mp_directive_semantics(), open_mp_directive_semantics(), parallel_cmic_semantics(), parse_deref(), parse_derived_type_stmt(), parse_type_spec(), set_up_pe_offset_attr(), and start_new_subpgm().

#define AT_MODULE_IDX ( IDX ) attr_tbl[IDX].fld.module_idx

#define AT_MODULE_OBJECT ( IDX ) attr_tbl[IDX].fld.module_object

Definition at line 360 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), resolve_attr(), send_attr_ntry(), and send_procedure().

#define AT_NAME_IDX ( IDX ) attr_tbl[IDX].fld.name_idx

Definition at line 361 of file sytb.m.

Referenced by array_construct_semantics(), assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), build_loop_tbl(), call_list_semantics(), chain_thru_sn_ntries(), check_for_dup_derived_type_lbl(), chg_data_obj_to_pgm_unit(), cif_send_attr(), complete_intrinsic_definition(), compress_tbls(), create_lib_entry_attr(), create_mod_info_file(), cvrt_exp_to_pdg(), final_attr_semantics(), forall_semantics(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_end_prologue_debug_label(), gen_forall_derived_type(), generic_spec_semantics(), implicit_use_semantics(), init_parse_prog_unit(), loop_thru_sn_ntries(), merge_parameter(), minval_intrinsic(), not_visible_semantics(), ntr_global_attr_tbl(), ntr_hidden_name_tbl(), ntr_host_in_sym_tbl(), ntr_local_attr_list(), ntr_sym_tbl(), output_mod_info_file(), parse_call_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_dummy_args(), parse_entry_stmt(), parse_inline_always_never(), parse_module_stmt(), parse_name_dir(), parse_namelist_stmt(), parse_nosideeffects_dir(), parse_sgi_dir_inline(), parse_star_directives(), parse_stmt_func_stmt(), parse_type_dcl_stmt(), parse_type_spec(), parse_use_stmt(), parse_vfunction_dir(), print_sn_list(), rename_only_semantics(), send_mod_file_name(), send_procedure(), set_attr_flds_for_output(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), start_new_prog_unit(), start_new_scp(), start_new_subpgm(), update_idxs_in_attr_entry(), update_intrinsic(), use_stmt_semantics(), and verify_interface().

#define AT_NAME_LEN ( IDX ) attr_tbl[IDX].fld.length

Definition at line 362 of file sytb.m.

Referenced by array_construct_semantics(), assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), blk_match_err(), build_loop_tbl(), call_list_semantics(), check_call_for_global_def(), check_for_dup_derived_type_lbl(), check_global_pgm_unit(), chg_data_obj_to_pgm_unit(), compare_derived_types(), compare_duplicate_interface_bodies(), compare_global_derived_type(), complete_intrinsic_definition(), compress_tbls(), copy_sbtree(), copy_to_gl_subtree(), create_lib_entry_attr(), create_mod_info_file(), create_namelist_descriptor(), create_strct_tbl(), determine_struct_tbl_size(), directive_stmt_semantics(), dump_at_ntry(), emit_format_msg(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_attr_semantics(), final_decl_semantics(), find_attrs_used_in_bound(), find_prog_unit_tbl(), forall_semantics(), free_tables(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_end_prologue_debug_label(), gen_forall_derived_type(), host_associated_attr_semantics(), implicit_use_semantics(), init_parse_prog_unit(), issue_undefined_type_msg(), make_in_parent_string(), match_blk(), merge_intrinsic(), merge_parameter(), minval_intrinsic(), not_visible_semantics(), ntr_common_in_global_attr_tbl(), ntr_global_attr_tbl(), ntr_host_in_sym_tbl(), ntr_local_attr_list(), ntr_sym_tbl(), output_mod_info_file(), parse_call_stmt(), parse_case_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_dummy_args(), parse_else_stmt(), parse_end_stmt(), parse_entry_stmt(), parse_format_stmt(), parse_inline_always_never(), parse_module_stmt(), parse_name_dir(), parse_namelist_stmt(), parse_nosideeffects_dir(), parse_sgi_dir_inline(), parse_star_directives(), parse_stmt_func_stmt(), parse_type_dcl_stmt(), parse_use_stmt(), parse_vfunction_dir(), print_attr_f(), read_in_module_tbl(), read_module_tbl_header(), rename_only_semantics(), resolve_attr(), resolve_ext_opr(), send_mod_file_name(), set_attr_flds_for_output(), set_inline_state(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), srch_for_module_tbl(), start_new_prog_unit(), start_new_subpgm(), update_components(), update_intrinsic(), use_stmt_semantics(), and verify_interface().

#define AT_NAMELIST_OBJ ( IDX ) attr_tbl[IDX].fld.namelist_obj

Definition at line 363 of file sytb.m.

Referenced by dump_at_ntry(), final_attr_semantics(), fnd_semantic_err(), merge_type(), namelist_resolution(), parse_deref(), parse_namelist_stmt(), and send_attr_ntry().

#define AT_NOT_VISIBLE ( IDX ) attr_tbl[IDX].fld.not_visible

#define AT_OBJ_CLASS ( IDX ) attr_tbl[IDX].fld.object_class

Definition at line 365 of file sytb.m.

Referenced by adjustl_intrinsic(), align_bit_length(), alloc_obj_opr_handler(), allocate_stmt_semantics(), assign_new_idxs_after_input(), assign_stmt_semantics(), assignment_stmt_semantics(), attr_link_resolution(), attr_semantics(), bits_and_bytes_to_words(), bound_semantics(), build_loop_tbl(), call_list_semantics(), chain_thru_sn_ntries(), char_len_resolution(), check_actual_and_dummy(), check_and_allocate_common_storage(), check_dependence(), check_expr_for_elementals(), check_for_dup_derived_type_lbl(), check_for_elementals(), check_for_legal_define(), check_forall_triplet_for_index(), check_label_ref(), check_stat_variable(), check_where_conformance(), cif_call_site_rec(), cif_send_attr(), cif_send_sytb(), cif_usage_rec(), ck_lbl_construct_name(), clean_pdg_link_tbls_for_nested_pu(), compare_darg_to_actual_arg(), compare_dummy_arguments(), complete_intrinsic_definition(), compress_tbls(), constant_value_semantics(), convert_const(), copy_sbtree(), copy_subtree(), create_lib_entry_attr(), create_mod_info_tbl(), cvrt_exp_to_pdg(), cvrt_sytb_to_pdg(), data_repeat_semantics(), dealloc_obj_opr_handler(), deallocate_stmt_semantics(), decl_semantics(), dim_reshape_pass_driver(), directive_stmt_semantics(), do_read_namelist_semantics(), doall_cmic_semantics(), doall_end_semantics(), dump_at_ntry(), encode_decode_stmt_semantics(), endparallel_cmic_semantics(), enter_intrinsic_info(), expand_user_bound(), expr_is_symbolic_constant(), fill_in_global_attr_ntry(), final_arg_work(), final_attr_semantics(), final_decl_semantics(), find_attrs_used_in_bound(), fnd_semantic_err(), fold_clen_opr(), gen_arg_type_descriptor(), gen_attr_and_IR_for_lbl(), gen_bd_entry(), gen_debug_lbl_stmt(), gen_forall_derived_type(), gen_internal_lbl(), gen_loop_end_ir(), gen_loop_lbl_name(), gen_sf_dv_whole_def(), gen_tmp_equal_max_zero(), gen_whole_subscript(), generic_spec_semantics(), get_dummy_arg_type(), get_operand_dot(), get_operator_dot(), get_shape_from_attr(), get_type_desc(), global_name_semantics(), goto_stmt_semantics(), host_associated_attr_semantics(), il_is_symbolic_constant(), implicit_use_semantics(), init_parse_prog_unit(), io_ctl_list_semantics(), io_list_semantics(), ir_is_symbolic_constant(), issue_undefined_type_msg(), loc_intrinsic(), loop_thru_sn_ntries(), mark_attr_defined(), merge_access(), merge_automatic(), merge_dimension(), merge_external(), merge_intent(), merge_intrinsic(), merge_optional(), merge_pointer(), merge_target(), merge_type(), mp_directive_semantics(), namelist_resolution(), not_visible_semantics(), ntr_global_attr_tbl(), ntr_ref_in_global_tbl(), nullify_stmt_semantics(), num_images_intrinsic(), open_mp_directive_semantics(), optimize_reshape(), parallel_cmic_semantics(), paren_grp_is_cplx_const(), parse_actual_arg_spec(), parse_assign_stmt(), parse_assignment_stmt(), parse_attr_spec(), parse_attrs(), parse_cache_noalloc(), parse_call_stmt(), parse_common_stmt(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_decode_stmt(), parse_deref(), parse_derived_type_stmt(), parse_do_stmt(), parse_dummy_args(), parse_elemental_stmt(), parse_encode_stmt(), parse_entry_stmt(), parse_equivalence_stmt(), parse_expr(), parse_fill_align_symbol(), parse_ignore_tkr(), parse_imp_do(), parse_inline_always_never(), parse_interface_stmt(), parse_io_control_list(), parse_level_1(), parse_lhs(), parse_module_stmt(), parse_name_dir(), parse_namelist_stmt(), parse_nosideeffects_dir(), parse_operand(), parse_parameter_stmt(), parse_permutation_mic(), parse_pointer_stmt(), parse_print_stmt(), parse_pure_stmt(), parse_read_stmt(), parse_recursive_stmt(), parse_sgi_dir_inline(), parse_star_directives(), parse_stmt_func_stmt(), parse_symmetric_dir(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), parse_use_stmt(), parse_var_common_list(), parse_vfunction_dir(), parse_write_stmt(), present_intrinsic(), print_attr_f(), print_attr_name(), print_scp_to_fortran(), print_sn_list(), process_attr_list(), process_char_len(), process_variable_size_func(), random_number_intrinsic(), rename_only_semantics(), reshape_array_semantics(), reshape_intrinsic(), resolve_attr(), resolve_ext_opr(), retype_attr(), search_expr_for_dargs(), select_stmt_semantics(), send_attr_ntry(), send_darg_list(), set_attr_flds_for_output(), set_function_rslt(), set_global_value_variables(), set_inline_state(), set_mod_link_tbl_for_attr(), set_mp_task_flags(), set_stride_for_first_dim(), set_up_exp_desc(), set_up_pe_offset_attr(), setup_interchange_level_list(), size_offset_binary_calc(), size_offset_min_max_calc(), srch_for_calls(), srch_kwd_name(), start_new_prog_unit(), start_new_subpgm(), stmt_func_call_opr_handler(), stor_bit_size_of(), struct_construct_opr_handler(), subscript_opr_handler(), transform_cri_ch_ptr(), update_components(), update_fld_type(), update_idxs_in_attr_entry(), use_stmt_semantics(), and verify_interface().

#define AT_OBJ_NAME ( IDX ) name_pool[AT_NAME_IDX(IDX)].name_char

Definition at line 366 of file sytb.m.

Referenced by attr_semantics(), call_list_semantics(), cif_send_attr(), and srch_for_calls().

#define AT_OBJ_NAME_LONG ( IDX ) &(name_pool[AT_NAME_IDX(IDX)].name_long)

Definition at line 367 of file sytb.m.

Referenced by assign_new_idxs_after_input(), blk_match_err(), compare_derived_types(), compare_duplicate_interface_bodies(), compare_global_derived_type(), find_prog_unit_tbl(), host_associated_attr_semantics(), match_blk(), ntr_global_attr_tbl(), parse_case_stmt(), parse_else_stmt(), parse_end_stmt(), read_in_module_tbl(), read_module_tbl_header(), srch_for_module_tbl(), and verify_interface().

#define AT_OBJ_NAME_PTR ( IDX ) &name_pool[AT_NAME_IDX(IDX)].name_char

Definition at line 368 of file sytb.m.

Referenced by allocate_stmt_semantics(), array_construct_semantics(), array_dim_resolution(), assign_offset(), assign_stmt_semantics(), assignment_stmt_semantics(), attr_init_semantics(), attr_link_resolution(), attr_semantics(), blk_match_err(), build_loop_tbl(), call_list_semantics(), chain_thru_sn_ntries(), char_len_resolution(), character_to_character(), check_actual_and_dummy(), check_and_allocate_common_storage(), check_call_for_global_def(), check_for_dup_derived_type_lbl(), check_for_legal_define(), check_global_pgm_unit(), check_target_and_value(), cif_call_site_rec(), cif_label_rec(), cif_send_attr(), cif_unit_rec(), ck_lbl_construct_name(), compare_darg_to_actual_arg(), compare_duplicate_interface_bodies(), compare_entry_to_func_rslt(), const_init_semantics(), constant_value_semantics(), convert_const(), copy_sbtree(), copy_to_gl_subtree(), create_mod_info_file(), create_namelist_descriptor(), create_strct_tbl(), cvrt_exp_to_pdg(), deallocate_stmt_semantics(), decl_semantics(), default_init_semantics(), determine_tmp_size(), directive_stmt_semantics(), do_read_namelist_semantics(), doall_cmic_semantics(), dump_al_ntry(), dump_at_ntry(), dump_blk_ntry(), dump_eq_ntry(), dump_scp_ntry(), dump_trace_info(), end_blockdata(), end_function(), end_interface_blk(), end_module(), end_program_unit(), end_subroutine(), end_type_blk(), equivalence_semantics(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_arg_work(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), find_attrs_used_in_bound(), find_base_attr(), find_prog_unit_tbl(), flatten_function_call(), flush_msg_file(), fnd_semantic_err(), forall_semantics(), free_tables(), gen_attr_and_IR_for_lbl(), gen_call_type_descriptor(), gen_loop_lbl_name(), gen_runtime_bounds(), gen_runtime_ptr_chk(), gen_runtime_substring(), generic_spec_semantics(), get_basic_type_str(), global_name_semantics(), goto_stmt_semantics(), host_associated_attr_semantics(), implicit_use_semantics(), init_whole_array(), io_ctl_list_semantics(), io_list_semantics(), is_attr_referenced_in_bound(), issue_undefined_type_msg(), label_ref_semantics(), loc_intrinsic(), main(), make_in_parent_string(), make_new_bd_entries(), merge_access(), merge_allocatable(), merge_automatic(), merge_dimension(), merge_external(), merge_intent(), merge_intrinsic(), merge_optional(), merge_parameter(), merge_pointer(), merge_save(), merge_target(), merge_type(), merge_volatile(), mp_directive_semantics(), namelist_resolution(), not_visible_semantics(), ntr_common_in_global_attr_tbl(), ntr_const_tbl(), ntr_unshared_const_tbl(), nullify_stmt_semantics(), object_semantics(), open_module_file(), open_mp_directive_semantics(), output_minimal_object_rec(), output_mod_info_file(), output_msg(), parallel_cmic_semantics(), parse_access_stmt(), parse_auxiliary_dir(), parse_backspace_stmt(), parse_call_stmt(), parse_close_stmt(), parse_cpnt_dcl_stmt(), parse_decode_stmt(), parse_deref(), parse_derived_type_stmt(), parse_dummy_args(), parse_encode_stmt(), parse_endfile_stmt(), parse_entry_stmt(), parse_equivalence_stmt(), parse_expr(), parse_inline_always_never(), parse_inquire_stmt(), parse_io_control_list(), parse_length_selector(), parse_level_1(), parse_lhs(), parse_module_stmt(), parse_namelist_stmt(), parse_open_stmt(), parse_permutation_mic(), parse_pointer_stmt(), parse_print_stmt(), parse_read_stmt(), parse_rewind_stmt(), parse_sequence_stmt(), parse_sgi_dir_inline(), parse_stmt_func_stmt(), parse_stop_pause_stmt(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), parse_use_stmt(), parse_var_common_list(), parse_write_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), pop_and_err_blk_stk(), print_at_name(), print_attr_f(), print_attr_name(), print_expanded_il(), print_expanded_opnd(), print_expanded_stmt_for_scp(), print_fld_idx(), print_name(), print_sytb(), print_type_f(), put_format_in_tbl(), read_in_module_tbl(), read_module_tbl_header(), read_sytb_from_module_file(), rename_only_semantics(), reshape_array_semantics(), resolve_attr(), resolve_ext_opr(), resolve_fwd_lbl_refs(), resolve_used_modules(), retype_attr(), send_attr_ntry(), send_darg_list(), send_derived_type(), send_dummy_procedure(), send_interface_list(), send_label(), send_label_def(), send_mod_file_name(), send_namelist_group(), send_procedure(), send_stor_blk(), set_function_rslt(), set_inline_state(), srch_ar_file_for_module_tbl(), srch_for_calls(), srch_for_module_tbl(), start_new_prog_unit(), start_new_subpgm(), stmt_func_call_opr_handler(), stmt_func_semantics(), stor_bit_size_of(), struct_construct_opr_handler(), type_init_semantics(), update_components(), update_intrinsic(), use_stmt_semantics(), and verify_interface().

#define AT_OPTIONAL ( IDX ) attr_tbl[IDX].fld.optional

#define AT_ORIG_MODULE_IDX ( IDX ) attr_tbl[IDX].fld.orig_module_idx

Definition at line 370 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), rename_only_semantics(), send_attr_ntry(), and send_derived_type().

#define AT_ORIG_NAME ( IDX ) name_pool[AT_ORIG_NAME_IDX(IDX)].name_char

Definition at line 374 of file sytb.m.

#define AT_ORIG_NAME_IDX ( IDX ) attr_tbl[IDX].fld.orig_name_idx

Definition at line 371 of file sytb.m.

Referenced by assign_new_idxs_after_input(), cif_send_attr(), cvrt_exp_to_pdg(), dump_at_ntry(), implicit_use_semantics(), ntr_global_attr_tbl(), ntr_hidden_name_tbl(), parse_use_stmt(), rename_only_semantics(), set_attr_flds_for_output(), set_mod_link_tbl_for_attr(), update_idxs_in_attr_entry(), update_intrinsic(), and use_stmt_semantics().

#define AT_ORIG_NAME_LEN ( IDX ) attr_tbl[IDX].fld.orig_name_len

Definition at line 372 of file sytb.m.

Referenced by compare_derived_types(), compare_global_derived_type(), dump_at_ntry(), implicit_use_semantics(), merge_interfaces(), not_visible_semantics(), ntr_global_attr_tbl(), ntr_hidden_name_tbl(), parse_use_stmt(), rename_only_semantics(), resolve_attr(), set_attr_flds_for_output(), set_mod_link_tbl_for_attr(), and update_intrinsic().

#define AT_ORIG_NAME_LONG ( IDX ) &(name_pool[AT_ORIG_NAME_IDX(IDX)].name_long)

Definition at line 375 of file sytb.m.

Referenced by compare_derived_types(), compare_global_derived_type(), merge_interfaces(), not_visible_semantics(), ntr_global_attr_tbl(), and resolve_attr().

#define AT_ORIG_NAME_PTR ( IDX ) &name_pool[AT_ORIG_NAME_IDX(IDX)].name_char

Definition at line 373 of file sytb.m.

Referenced by cif_rename_rec(), dump_at_ntry(), and update_intrinsic().

#define AT_PRIVATE ( IDX ) attr_tbl[IDX].fld.private_access

#define AT_REF_IN_CHILD ( IDX ) attr_tbl[IDX].fld.ref_in_child

Definition at line 377 of file sytb.m.

Referenced by call_list_semantics(), cif_send_attr(), do_write_namelist_semantics(), dump_at_ntry(), final_decl_semantics(), host_associated_attr_semantics(), send_attr_ntry(), and send_dummy_procedure().

#define AT_REFERENCED ( IDX ) attr_tbl[IDX].fld.referenced

Definition at line 378 of file sytb.m.

Referenced by adjust_char_value_len(), array_bounds_resolution(), assign_new_idxs_after_input(), assignment_stmt_semantics(), attr_link_resolution(), attr_semantics(), backspace_stmt_semantics(), bound_resolution(), bound_semantics(), build_loop_tbl(), call_list_semantics(), check_and_allocate_common_storage(), check_label_ref(), cif_call_site_rec(), cif_object_rec_for_func_result(), cif_send_attr(), close_stmt_semantics(), copy_and_replace_tmps(), create_constructor_constant(), create_lib_entry_attr(), do_stmt_semantics(), do_write_namelist_semantics(), dump_at_ntry(), else_stmt_semantics(), end_if_blk(), endfile_stmt_semantics(), expand_user_bound(), fill_in_global_attr_ntry(), final_attr_semantics(), final_decl_semantics(), find_attrs_used_in_bound(), fnd_semantic_err(), fold_aggragate_expression(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_internal_lbl(), gen_loop_end_ir(), generic_spec_semantics(), get_type_desc(), host_associated_attr_semantics(), init_whole_array(), inquire_stmt_semantics(), interpret_implied_do(), label_def_stmt_semantics(), lbound_intrinsic(), loop_end_processing(), merge_dimension(), merge_parameter(), merge_type(), namelist_resolution(), not_visible_semantics(), ntr_bnds_sh_tmp_list(), ntr_bnds_tmp_list(), open_stmt_semantics(), parse_array_spec(), parse_assign_stmt(), parse_attrs(), parse_auxiliary_dir(), parse_cache_noalloc(), parse_call_stmt(), parse_case_stmt(), parse_common_stmt(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_deref(), parse_distribution_dir(), parse_do_stmt(), parse_dummy_args(), parse_else_stmt(), parse_equivalence_stmt(), parse_fill_align_symbol(), parse_goto_stmt(), parse_if_stmt(), parse_ignore_tkr(), parse_io_control_list(), parse_kind_selector(), parse_label_list(), parse_length_selector(), parse_name_dir(), parse_namelist_stmt(), parse_nosideeffects_dir(), parse_parameter_stmt(), parse_pe_array_spec(), parse_permutation_mic(), parse_pointer_stmt(), parse_redistribute_dir(), parse_select_stmt(), parse_star_directives(), parse_stmt_func_stmt(), parse_symmetric_dir(), parse_type_dcl_stmt(), parse_typed_function_stmt(), parse_use_stmt(), parse_vfunction_dir(), read_stmt_semantics(), reshape_intrinsic(), resolve_ext_opr(), resolve_used_modules(), retype_attr(), rewind_stmt_semantics(), send_attr_ntry(), send_label_def(), send_procedure(), set_function_rslt(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), shape_intrinsic(), short_circuit_branch(), srch_for_calls(), storage_blk_resolution(), transfer_intrinsic(), transform_cri_ch_ptr(), ubound_intrinsic(), use_stmt_semantics(), vv_subscript_semantics(), and write_stmt_semantics().

#define AT_SEMANTICS_DONE ( IDX ) attr_aux_tbl[IDX].fld.semantics_done

Definition at line 379 of file sytb.m.

Referenced by adjust_char_value_len(), array_construct_semantics(), array_element_to_scalar(), assign_stmt_semantics(), attr_semantics(), backspace_stmt_semantics(), build_loop_tbl(), call_list_semantics(), change_section_to_do(), character_to_character(), check_stat_variable(), close_stmt_semantics(), copy_and_replace_tmps(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_io_call_descriptor(), create_namelist_descriptor(), create_runtime_array_constructor(), create_runtime_struct_constructor(), create_scalar_type_tbl(), create_strct_tbl(), determine_lb_ub(), do_single_asg(), dump_at_ntry(), endfile_stmt_semantics(), final_arg_work(), flatten_function_call(), fold_aggragate_expression(), forall_semantics(), gen_allocatable_ptr_ptee(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_dv_def_loops(), gen_forall_derived_type(), gen_forall_tmp(), gen_initialized_tmp(), gen_loop_end_ir(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_integer_array_tmp(), get_stmt_tmp(), init_parse_prog_unit(), init_whole_array(), inquire_stmt_semantics(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), lbound_intrinsic(), null_intrinsic(), open_stmt_semantics(), optimize_reshape(), parse_cpnt_dcl_stmt(), parse_dummy_args(), put_string_in_tmp(), random_seed_intrinsic(), ranget_intrinsic(), read_stmt_semantics(), reshape_intrinsic(), rewind_stmt_semantics(), scalar_dope_to_scalar(), set_sb_first_attr_idx(), set_up_bd_tmps(), set_up_pe_offset_attr(), set_up_which_entry_tmp(), shape_intrinsic(), srch_for_calls(), struct_construct_opr_handler(), subscript_opr_handler(), transfer_intrinsic(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_dv_component(), ubound_intrinsic(), vv_subscript_semantics(), and write_stmt_semantics().

#define AT_TYPED ( IDX ) attr_tbl[IDX].fld.typed

#define AT_USE_ASSOCIATED ( IDX ) attr_tbl[IDX].fld.use_associated

#define AT_WORK_IDX NULL_IDX

#define ATD_ALIGN_SYMBOL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_ALIGN_SYMBOL", IDX))            \
                [IDX].fld.flag21

Definition at line 420 of file sytb.m.

Referenced by dump_at_ntry(), fnd_semantic_err(), and parse_fill_align_symbol().

#define ATD_ALIGNMENT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_ALIGNMENT", IDX))               \
                [IDX].fld2.alignment

Definition at line 429 of file sytb.m.

Referenced by assign_offset(), chain_thru_sn_ntries(), cvrt_exp_to_pdg(), dump_at_ntry(), end_type_blk(), get_type_desc(), and send_attr_ntry().

#define ATD_ALLOCATABLE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_ALLOCATABLE", IDX))             \
                [IDX].fld.flag6

Definition at line 438 of file sytb.m.

Referenced by alloc_obj_opr_handler(), allocate_stmt_semantics(), array_dim_resolution(), attr_semantics(), call_list_semantics(), cif_send_attr(), create_runtime_array_constructor(), dealloc_obj_opr_handler(), deallocate_local_allocatables(), deallocate_stmt_semantics(), doall_cmic_semantics(), dump_at_ntry(), encode_decode_stmt_semantics(), fnd_semantic_err(), fold_clen_opr(), gen_common_dv_init(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_runtime_ptr_chk(), gen_split_alloc(), gen_static_dv_whole_def(), gen_whole_subscript(), merge_allocatable(), mp_directive_semantics(), namelist_static_dv_whole_def(), num_images_intrinsic(), open_mp_directive_semantics(), parallel_cmic_semantics(), parse_attr_spec(), parse_deref(), pe_array_dim_resolution(), resolve_ext_opr(), send_attr_ntry(), and subscript_opr_handler().

#define ATD_ARRAY_IDX ( IDX ) attr_tbl[IDX].fld.field1

Definition at line 454 of file sytb.m.

Referenced by adjustl_intrinsic(), alloc_obj_opr_handler(), allocate_stmt_semantics(), array_bounds_resolution(), array_dim_resolution(), assign_new_idxs_after_input(), assign_storage_blk(), attr_init_semantics(), attr_link_resolution(), attr_semantics(), call_list_semantics(), chain_thru_sn_ntries(), char_len_resolution(), character_to_character(), check_actual_and_dummy(), check_array_bounds(), check_for_elementals(), check_where_conformance(), chg_data_obj_to_pgm_unit(), cif_call_site_rec(), cif_named_constant_rec(), cif_send_attr(), compare_darg_or_rslt_types(), compare_darg_to_actual_arg(), compare_derived_types(), compare_duplicate_interface_bodies(), compare_entry_to_func_rslt(), compare_func_result(), compare_global_derived_type(), compare_global_type_rank(), complete_intrinsic_definition(), convert_const(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_io_call_descriptor(), create_namelist_descriptor(), create_runtime_array_constructor(), create_scalar_type_tbl(), create_strct_tbl(), create_struct_constructor_asg(), create_tmp_asg(), create_tmp_DV_asg(), cvrt_exp_to_pdg(), data_stmt_semantics(), dealloc_obj_opr_handler(), decl_semantics(), decl_semantics_driver(), default_init_semantics(), determine_struct_tbl_size(), dim_reshape_pass_driver(), directive_stmt_semantics(), discombobulate_structure_ref(), dope_vector_setup(), dump_at_ntry(), end_function_semantics(), equivalence_semantics(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_arg_work(), final_attr_semantics(), flatten_function_call(), fnd_semantic_err(), fold_aggragate_expression(), fold_all_subscripts(), gen_allocatable_ptr_ptee(), gen_arg_type_descriptor(), gen_assumed_shape_copy(), gen_auto_length(), gen_bd_entry(), gen_call_type_descriptor(), gen_common_dv_init(), gen_default_init_code(), gen_dv_access_low_bound(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_entry_dope_code(), gen_forall_derived_type(), gen_forall_tmp(), gen_init_stmt(), gen_internal_dope_vector(), gen_lb_array_ref(), gen_runtime_bounds(), gen_runtime_ptr_chk(), gen_sf_dv_whole_def(), gen_static_dv_whole_def(), gen_static_integer_array_tmp(), gen_whole_subscript(), get_dummy_arg_type(), get_shape_from_attr(), get_stmt_tmp(), get_type_desc(), global_name_semantics(), host_associated_attr_semantics(), imp_do_metamorphed(), init_whole_array(), insert_init_stmt_for_tmp(), interpret_ref(), interpret_reshape_intrinsic(), interpret_struct_construct_opr(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), lbound_intrinsic(), linearize_list_for_equiv(), loop_thru_sn_ntries(), make_base_assumed_size(), make_new_bd_entries(), matmul_intrinsic(), merge_automatic(), merge_dimension(), merge_parameter(), namelist_static_dv_whole_def(), needs_bounds_check(), null_intrinsic(), open_mp_directive_semantics(), optimize_reshape(), optimize_whole_array_init(), parse_assignment_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_equivalence_stmt(), parse_lhs(), parse_parameter_stmt(), parse_type_dcl_stmt(), process_all_initialized_cpnts(), process_cpnt_inits(), process_variable_size_func(), reshape_array_semantics(), reshape_intrinsic(), resolve_attr(), resolve_ext_opr(), return_stmt_semantics(), search_expr_for_dargs(), section_semantics(), send_attr_ntry(), set_function_rslt(), set_mod_link_tbl_for_attr(), set_shape_for_deferred_funcs(), set_up_pe_offset_attr(), shape_intrinsic(), size_intrinsic(), srch_for_calls(), stor_bit_size_of(), struct_construct_opr_handler(), struct_opr_handler(), subscript_opr_handler(), transfer_intrinsic(), transform_char_sequence_ref(), translate_distant_dv_ref(), translate_distant_ref1(), translate_distant_ref2(), translate_dv_component(), type_init_semantics(), ubound_intrinsic(), update_idxs_in_attr_entry(), and verify_interface().

#define ATD_ASG_TMP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
         attr_tbl[IDX].fld.secondary_info == Compiler_Tmp) ?                   \
                attr_tbl : sytb_var_error("ATD_ASG_TMP", IDX))                 \
                [IDX].fld.flag49

Definition at line 458 of file sytb.m.

Referenced by check_for_elementals(), create_tmp_asg(), and get_stmt_tmp().

#define ATD_ASSIGN_TMP_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Variable) ?                      \
                attr_tbl : sytb_var_error("ATD_ASSIGN_TMP_IDX", IDX))          \
                [IDX].fld.field8

Definition at line 468 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_stmt_semantics(), dump_at_ntry(), encode_decode_stmt_semantics(), io_ctl_list_semantics(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATD_AUTO_BASE_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj && attr_tbl[IDX].fld.flag12) ?         \
                attr_tbl : sytb_var_error("ATD_AUTO_BASE_IDX", IDX))           \
                [IDX].fld.field13

Definition at line 479 of file sytb.m.

Referenced by assign_new_idxs_after_input(), create_runtime_array_constructor(), create_tmp_asg(), doall_cmic_semantics(), dump_at_ntry(), final_arg_work(), flatten_function_call(), gen_assumed_shape_copy(), gen_forall_tmp(), gen_single_automatic_allocate(), get_type_desc(), host_associated_attr_semantics(), mp_directive_semantics(), open_mp_directive_semantics(), parallel_cmic_semantics(), send_attr_ntry(), set_mod_link_tbl_for_attr(), srch_for_calls(), and update_idxs_in_attr_entry().

#define ATD_AUTOMATIC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_AUTOMATIC", IDX))               \
                [IDX].fld.flag12

Definition at line 488 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), assign_storage_blk(), attr_semantics(), char_len_resolution(), copy_sbtree(), create_runtime_array_constructor(), create_tmp_asg(), doall_cmic_semantics(), dump_at_ntry(), final_arg_work(), flatten_function_call(), gen_entry_dope_code(), gen_forall_tmp(), get_type_desc(), host_associated_attr_semantics(), mp_directive_semantics(), open_mp_directive_semantics(), parallel_cmic_semantics(), send_attr_ntry(), set_mod_link_tbl_for_attr(), srch_for_calls(), and update_idxs_in_attr_entry().

#define ATD_AUXILIARY ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_AUXILIARY", IDX))               \
                [IDX].fld.flag9

Definition at line 497 of file sytb.m.

Referenced by attr_semantics(), cif_send_attr(), dump_at_ntry(),

sytb.m File Reference

Defines

Define Documentation