Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include "defines.h"
#include "host.m"
#include "host.h"
#include "target.m"
#include "target.h"
#include "globals.m"
#include "tokens.m"
#include "sytb.m"
#include "s_globals.m"
#include "debug.m"
#include "p_io.m"
#include "globals.h"
#include "tokens.h"
#include "sytb.h"
#include "s_globals.h"
#include "s_io.h"
Go to the source code of this file.
#define IO_CALL_VERSION 0 |
Referenced by create_io_call_descriptor().
static void add_alt_return_lbl | ( | int | ir_idx, |
int | lbl_attr_idx | ||
) | [static] |
Definition at line 8517 of file s_io.c.
References AT_Tbl_Idx, Func_Entry, Func_Exit, IL_ARG_DESC_VARIANT, IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IR_COL_NUM, IR_IDX_R, IR_LINE_NUM, IR_LIST_CNT_R, NTR_IR_LIST_TBL, NULL, NULL_IDX, TRACE, and TRUE.
Referenced by backspace_stmt_semantics(), close_stmt_semantics(), endfile_stmt_semantics(), inquire_stmt_semantics(), open_stmt_semantics(), and rewind_stmt_semantics().
void backspace_stmt_semantics | ( | void | ) |
Definition at line 108 of file s_io.c.
References add_alt_return_lbl(), Alt_Return_Opr, arg_info_list_base, arg_info_list_size, arg_info_list_top, arg_list_size, AT_DEFINED, AT_REFERENCED, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATP_HAS_ALT_RETURN, Backspace, Backspace_Opr, Before, Br_True_Opr, CG_INTEGER_DEFAULT_TYPE, CN_INTEGER_ONE_IDX, CN_Tbl_Idx, COPY_OPND, curr_scp_idx, curr_stmt_sh_idx, enlarge_call_list_tables(), enlarge_info_list_table(), Eq_Opr, err_attr_idx, err_list_idx, FALSE, final_arg_work(), Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), If_Stmt, IL_OPND, io_ctl_list_semantics(), IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, LOGICAL_DEFAULT_TYPE, max_call_list_size, NTR_IR_TBL, NULL, Priv, Referenced, SCP_DOES_IO, SCP_SB_STACK_IDX, SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, TRACE, and TRUE.
void buffer_stmt_semantics | ( | void | ) |
Definition at line 273 of file s_io.c.
References arg_info_list, arg_info_list_base, arg_info_list_size, arg_info_list_top, arg_list_size, ATD_TYPE_IDX, Buffer_Desc, Buffer_In_Attr_Idx, Buffer_In_Opr, Buffer_Out_Opr, cast_to_cg_default(), cast_typeless_constant(), CG_INTEGER_DEFAULT_TYPE, Character, CIF_Symbol_Modification, CIF_Symbol_Reference, CN_Tbl_Idx, CN_TYPE_IDX, compare_cn_and_value(), expr_semantics_args::constant, COPY_OPND, create_io_call_descriptor(), curr_scp_idx, curr_stmt_sh_idx, arg_strct::ed, enlarge_call_list_tables(), enlarge_info_list_table(), Error, expr_semantics(), FALSE, final_arg_work(), find_base_attr(), find_opnd_line_and_column(), expr_semantics_args::foldable, Func_Entry, Func_Exit, glb_tbl_idx, IL_ARG_DESC_IDX, IL_ARG_DESC_VARIANT, IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IL_OPND, init_arg_info, init_exp_desc, Integer, Integer_8, INTEGER_DEFAULT_TYPE, IO_TYPE_CODE_TYPE, IR_IDX_L, IR_IDX_R, IR_LIST_CNT_R, IR_OPND_R, IR_OPR, expr_semantics_args::linear_type, Long_Typeless, Lt_Opr, make_io_type_code(), max_call_list_size, arg_strct::maybe_modified, ntr_const_tbl(), NTR_IR_LIST_TBL, NULL, OPND_IDX, PRINTMSG(), expr_semantics_args::rank, SCP_DOES_IO, SH_IR_IDX, Short_Typeless_Const, storage_bit_size_tbl, Structure, TRACE, TRUE, TYP_IDX, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, Typeless, TYPELESS_DEFAULT_TYPE, and xref_state.
static int change_section_to_do | ( | int * | list_idx | ) | [static] |
Definition at line 6954 of file s_io.c.
References AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, cast_to_cg_default(), CG_INTEGER_DEFAULT_TYPE, COPY_OPND, curr_scp_idx, find_opnd_line_and_column(), Func_Entry, Func_Exit, gen_compiler_tmp(), IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IL_OPND, IL_PREV_LIST_IDX, IL_Tbl_Idx, IL_VECTOR_SUBSCRIPT, Implied_Do_Opr, IR_COL_NUM, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LIST_CNT_L, IR_LIST_CNT_R, IR_OPND_L, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, NTR_IR_LIST_TBL, NTR_IR_TBL, NULL, NULL_IDX, OPND_FLD, OPND_IDX, Priv, SCP_SB_STACK_IDX, Section_Subscript_Opr, set_up_exp_desc(), Subscript_Opr, TRACE, Triplet_Opr, TRUE, TYPELESS_DEFAULT_TYPE, and Whole_Subscript_Opr.
Referenced by discombobulate_structure_ref(), and expand_io_list().
void close_stmt_semantics | ( | void | ) |
Definition at line 585 of file s_io.c.
References add_alt_return_lbl(), Alt_Return_Opr, arg_info_list_base, arg_info_list_size, arg_info_list_top, arg_list_size, AT_DEFINED, AT_REFERENCED, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATP_HAS_ALT_RETURN, Before, Br_True_Opr, CG_INTEGER_DEFAULT_TYPE, Close, Close_Desc, Close_Opr, CN_INTEGER_ONE_IDX, CN_Tbl_Idx, COPY_OPND, create_io_call_descriptor(), curr_scp_idx, curr_stmt_sh_idx, enlarge_call_list_tables(), enlarge_info_list_table(), Eq_Opr, err_attr_idx, err_list_idx, FALSE, final_arg_work(), Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), If_Stmt, IL_OPND, io_ctl_list_semantics(), IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, LOGICAL_DEFAULT_TYPE, max_call_list_size, NTR_IR_TBL, NULL, Priv, Referenced, SCP_DOES_IO, SCP_SB_STACK_IDX, SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, TRACE, and TRUE.
static int copy_text_for_expansion | ( | int | flflag | ) | [static] |
Definition at line 7978 of file s_io.c.
References alt_return_branch_idx, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, COPY_OPND, copy_subtree(), COPY_TBL_NTRY, curr_stmt_sh_idx, Func_Entry, Func_Exit, IL_IDX, IL_NEXT_LIST_IDX, Inquire_Stmt, Internal, io_stmt_must_be_split, IR_IDX_L, IR_IDX_R, IR_OPND_L, IR_OPND_R, ir_tbl, NTR_IR_TBL, NULL, null_opnd, PRINTMSG(), SH_IR_IDX, stmt_start_col, stmt_start_line, stmt_type, and TRACE.
Referenced by expand_imp_do(), expand_io_list(), and process_deferred_io_list().
static void create_io_call_descriptor | ( | int | call_idx, |
io_descriptor_type | call_type | ||
) | [static] |
Definition at line 8054 of file s_io.c.
References Aloc_Opr, Asg_Opr, Assignment_Stmt, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_ARRAY_IDX, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, BD_ARRAY_CLASS, BD_ARRAY_SIZE, BD_COLUMN_NUM, BD_LB_FLD, BD_LB_IDX, BD_LEN_FLD, BD_LEN_IDX, BD_LINE_NUM, BD_RANK, BD_RESOLVED, BD_SM_FLD, BD_SM_IDX, BD_UB_FLD, BD_UB_IDX, BD_XT_FLD, BD_XT_IDX, Before, Buffer_Desc, Buffer_In_Attr_Idx, Buffer_Out_Attr_Idx, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, char_len_in_bytes, CN_INTEGER_ONE_IDX, CN_INTEGER_THREE_IDX, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, Constant_Size, COPY_OPND, CRI_Ch_Ptr_8, CRI_Ptr_8, curr_scp_idx, curr_stmt_sh_idx, descriptor_size_tbl, Explicit_Shape, FALSE, Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), glb_tbl_idx, IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IL_OPND, IL_PREV_LIST_IDX, IL_Tbl_Idx, Integer_4, Internal, IO_CALL_VERSION, IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_L, IR_LIST_CNT_R, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, Loc_Opr, ntr_array_in_bd_tbl(), NTR_IR_LIST_TBL, NTR_IR_TBL, NULL, offset_tbl, PRINTMSG(), Priv, reserve_array_ntry(), SA_INTEGER_DEFAULT_TYPE, SCP_SB_STACK_IDX, SH_IR_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, Shiftl_Opr, Subscript_Opr, Substring_Opr, TRACE, TRUE, two_word_fcd, TYP_LINEAR, and Whole_Substring_Opr.
Referenced by buffer_stmt_semantics(), close_stmt_semantics(), inquire_stmt_semantics(), and open_stmt_semantics().
void create_namelist_descriptor | ( | int | namelist_attr | ) |
Definition at line 4775 of file s_io.c.
References After, Aloc_Opr, Asg_Opr, Assignment_Stmt, AT_ATTR_LINK, AT_DEF_COLUMN, AT_DEF_LINE, AT_IGNORE_ATTR_LINK, AT_NAME_LEN, AT_OBJ_NAME_PTR, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_ARRAY_IDX, ATD_IM_A_DOPE, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATN_FIRST_NAMELIST_IDX, ATN_NAMELIST_DESC, ATN_NUM_NAMELIST, ATP_PGM_UNIT, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, expr_semantics_args::char_len, char_len_in_bytes, Character, CN_Tbl_Idx, create_scalar_type_tbl(), create_strct_tbl(), CRI_Ch_Ptr_8, CRI_Ptr_8, curr_scp_idx, curr_stmt_sh_idx, FALSE, find_left_attr(), opnd_entry::fld, FREE_SH_NODE, Func_Entry, Func_Exit, gen_array_element_init(), gen_compiler_tmp(), gen_dv_whole_def(), gen_ir(), gen_opnd(), gen_sh(), gen_static_integer_array_tmp(), gen_whole_subscript(), nmlist_group_hdr::icount, opnd_entry::idx, init_exp_desc, Init_Opr, Init_Reloc_Opr, insert_sh_chain_after_entries(), Integer_4, Integer_8, Internal, IR_OPND_L, IR_Tbl_Idx, expr_semantics_args::linear_type, Loc_Opr, Module, namelist_static_dv_whole_def(), NML_GRP_HDR_SIZE, NML_GRP_HDR_SIZE_FCD2, NML_GRP_ITEM_SIZE, NML_GRP_ITEM_SIZE_FCD2, NML_VALTYPE_ARRAY, NML_VALTYPE_SCALAR, NML_VALTYPE_STRCT, NML_VALTYPE_STRCT_ARRAY, NO_Tbl_Idx, ntr_const_tbl(), ntr_sh_tbl(), NULL, NULL_IDX, OPND_COL_NUM, OPND_FLD, OPND_IDX, OPND_LINE_NUM, PRINTMSG(), Priv, put_string_in_tmp(), expr_semantics_args::rank, SA_INTEGER_DEFAULT_TYPE, SB_FIRST_ATTR_IDX, SCP_ATTR_IDX, SCP_SB_STACK_IDX, set_sb_first_attr_idx(), SH_COL_NUM, SH_COMPILER_GEN, SH_GLB_LINE, SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, SH_STMT_TYPE, size, SN_ATTR_IDX, SN_SIBLING_LINK, Structure, TRACE, TRUE, two_word_fcd, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, nmlist_goli::valtype, and nmlist_group_hdr::version.
static int create_scalar_type_tbl | ( | opnd_type * | opnd, |
boolean | in_module | ||
) | [static] |
Definition at line 5691 of file s_io.c.
References Aloc_Opr, Asg_Opr, AT_SEMANTICS_DONE, ATD_ARRAY_IDX, ATD_DATA_INIT, ATD_SAVED, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATT_CHAR_SEQ, C_INT_TO_CN, cast_opnd_to_type_idx(), CG_INTEGER_DEFAULT_TYPE, char_len_in_bytes, Character, CN_CONST, CN_INTEGER_CHAR_BIT_IDX, CN_Tbl_Idx, CN_TYPE_IDX, COPY_OPND, create_bd_ntry_for_const(), CRI_Ch_Ptr_8, CRI_Ptr_8, curr_scp_idx, FALSE, find_base_attr(), find_left_attr(), opnd_entry::fld, folder_driver(), Func_Entry, Func_Exit, gen_array_element_init(), gen_compiler_tmp(), gen_ir(), gen_opnd(), gen_whole_substring(), opnd_entry::idx, Init_Opr, Init_Reloc_Opr, Integer, Integer_4, Internal, IO_TYPE_CODE_TYPE, IR_OPND_L, IR_Tbl_Idx, IR_TYPE_IDX, expr_semantics_args::linear_type, Loc_Opr, make_io_type_code(), Mult_Opr, NML_SCALAR_ENTRY_SIZE, NML_SCALAR_ENTRY_SIZE_FCD2, NO_Tbl_Idx, ntr_const_tbl(), NULL, NULL_IDX, OPND_FLD, OPND_IDX, PRINTMSG(), Priv, expr_semantics_args::rank, SA_INTEGER_DEFAULT_TYPE, SB_FIRST_ATTR_IDX, SCP_SB_STACK_IDX, SCP_SB_STATIC_INIT_IDX, set_sb_first_attr_idx(), expr_semantics_args::shape, Shared, Structure, TRACE, transform_char_sequence_ref(), TRUE, two_word_fcd, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, and expr_semantics_args::type_idx.
Referenced by create_namelist_descriptor(), and create_strct_tbl().
static int create_strct_tbl | ( | opnd_type * | base_opnd, |
boolean | in_module | ||
) | [static] |
Definition at line 5932 of file s_io.c.
References After, Aloc_Opr, Asg_Opr, Assignment_Stmt, AT_NAME_LEN, AT_OBJ_NAME_PTR, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_ARRAY_IDX, ATD_IM_A_DOPE, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATT_CHAR_SEQ, ATT_FIRST_CPNT_IDX, ATT_NUM_CPNTS, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, expr_semantics_args::char_len, char_len_in_bytes, Character, CN_Tbl_Idx, COPY_OPND, create_scalar_type_tbl(), CRI_Ch_Ptr_8, CRI_Ptr_8, curr_scp_idx, curr_stmt_sh_idx, FALSE, find_base_attr(), find_left_attr(), opnd_entry::fld, Func_Entry, Func_Exit, gen_array_element_init(), gen_compiler_tmp(), gen_dv_whole_def(), gen_ir(), gen_opnd(), gen_sh(), gen_static_integer_array_tmp(), gen_whole_subscript(), opnd_entry::idx, init_exp_desc, Init_Opr, Init_Reloc_Opr, Integer_4, Integer_8, IR_COL_NUM, IR_COL_NUM_R, IR_FLD_R, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_R, IR_OPND_L, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, expr_semantics_args::linear_type, Loc_Opr, make_base_subtree(), namelist_static_dv_whole_def(), NML_STRCT_HDR_SIZE, NML_STRCT_HDR_SIZE_FCD2, NML_STRCT_ITEM_SIZE, NML_STRCT_ITEM_SIZE_FCD2, NML_VALTYPE_ARRAY, NML_VALTYPE_SCALAR, NML_VALTYPE_STRCT, NML_VALTYPE_STRCT_ARRAY, NO_Tbl_Idx, ntr_const_tbl(), NTR_IR_TBL, NULL, NULL_IDX, OPND_FLD, OPND_IDX, Priv, put_string_in_tmp(), expr_semantics_args::rank, SA_INTEGER_DEFAULT_TYPE, SB_FIRST_ATTR_IDX, SCP_SB_STACK_IDX, set_sb_first_attr_idx(), SH_IR_IDX, SH_P2_SKIP_ME, size, SN_ATTR_IDX, SN_SIBLING_LINK, Struct_Opr, nmlist_struclist::structlen, Structure, TRACE, transform_char_sequence_ref(), TRUE, two_word_fcd, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, and nmlist_goli::valtype.
Referenced by create_namelist_descriptor().
static int discombobulate_structure_ref | ( | opnd_type * | base_opnd, |
int | type_idx, | ||
int * | list_idx | ||
) | [static] |
Definition at line 6803 of file s_io.c.
References AT_Tbl_Idx, ATD_ARRAY_IDX, ATD_POINTER, ATD_TYPE_IDX, ATT_FIRST_CPNT_IDX, change_section_to_do(), Character, COPY_OPND, copy_subtree(), Dv_Deref_Opr, FALSE, find_base_attr(), Func_Entry, Func_Exit, gen_whole_subscript(), gen_whole_substring(), IL_FLD, IL_IDX, IL_NEXT_LIST_IDX, IL_OPND, IL_PREV_LIST_IDX, Io_Item_Type_Code_Opr, IR_COL_NUM, IR_COL_NUM_R, IR_FLD_R, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_R, IR_LIST_CNT_L, IR_OPND_L, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, NTR_IR_LIST_TBL, NTR_IR_TBL, NULL, NULL_IDX, OPND_FLD, OPND_IDX, SN_ATTR_IDX, SN_SIBLING_LINK, Struct_Opr, Structure, TRACE, TRUE, TYP_IDX, and TYP_TYPE.
Referenced by expand_io_list().
static boolean do_read_namelist_semantics | ( | opnd_type * | namelist_opnd | ) | [static] |
Definition at line 6673 of file s_io.c.
References AT_ATTR_LINK, AT_DEF_IN_CHILD, AT_DEFINED, AT_OBJ_CLASS, AT_OBJ_NAME_PTR, AT_Tbl_Idx, ATD_CLASS, ATD_INTENT, ATN_FIRST_NAMELIST_IDX, check_for_legal_define(), Data_Obj, Dummy_Argument, Error, FALSE, Func_Entry, Func_Exit, gen_opnd(), Intent_In, NULL, NULL_IDX, OPND_COL_NUM, OPND_IDX, OPND_LINE_NUM, PRINTMSG(), SN_ATTR_IDX, SN_SIBLING_LINK, TRACE, and TRUE.
Referenced by io_ctl_list_semantics().
static void do_write_namelist_semantics | ( | opnd_type * | namelist_opnd | ) | [static] |
Definition at line 6750 of file s_io.c.
References AT_ATTR_LINK, AT_REF_IN_CHILD, AT_REFERENCED, ATN_FIRST_NAMELIST_IDX, Func_Entry, Func_Exit, NULL, NULL_IDX, OPND_IDX, Referenced, SN_ATTR_IDX, SN_SIBLING_LINK, TRACE, and TRUE.
Referenced by io_ctl_list_semantics().
void encode_decode_stmt_semantics | ( | void | ) |
Definition at line 752 of file s_io.c.
References ADD_TMP_TO_SHARED_LIST, Ansi, AT_OBJ_CLASS, AT_Tbl_Idx, ATD_ALLOCATABLE, ATD_ASSIGN_TMP_IDX, ATD_CLASS, ATD_IN_ASSIGN, ATD_POINTER, ATL_CLASS, ATL_FORMAT_TMP, ATL_PP_FORMAT_TMP, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, Character, check_for_legal_define(), CIF_Symbol_Modification, CIF_Symbol_Reference, CN_INT_TO_C, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, expr_semantics_args::constant, COPY_OPND, create_tmp_asg(), curr_scp_idx, curr_stmt_sh_idx, Data_Obj, Decode, Decode_Stmt, defer_stmt_expansion, expr_semantics_args::dist_reshape_ref, expr_semantics_args::dope_vector, Dummy_Argument, Encode, Encode_Stmt, Error, expr_semantics(), FALSE, find_base_attr(), find_opnd_line_and_column(), FL_IO_SINGLE, FREE_IR_LIST_NODE, Func_Entry, Func_Exit, Function_Result, gen_runtime_checks(), IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IL_OPND, IL_PREV_LIST_IDX, IL_Tbl_Idx, Integer, INTEGER_DEFAULT_TYPE, Intent_In, io_item_must_flatten, io_list_semantics(), io_stmt_must_be_split, IR_IDX_L, IR_LIST_CNT_L, IR_OPND_L, IR_OPND_R, IR_OPR, IR_Tbl_Idx, Label, Lbl_Format, expr_semantics_args::linear_type, Logical, NTR_IR_LIST_TBL, NULL, NULL_IDX, NUM_PDG_CONTROL_LIST_ITEMS, number_of_functions, OPND_FLD, OPND_IDX, PRINTMSG(), process_deferred_io_list(), expr_semantics_args::rank, REAL_DEFAULT_TYPE, expr_semantics_args::reference, SCP_DOES_IO, SH_IR_IDX, stmt_type, stmt_type_str, Subscript_Opr, TRACE, tree_has_constructor, TRUE, expr_semantics_args::type, Typeless, Variable, expr_semantics_args::vector_subscript, Whole_Subscript_Opr, Whole_Substring_Opr, and xref_state.
void endfile_stmt_semantics | ( | void | ) |
Definition at line 1192 of file s_io.c.
References add_alt_return_lbl(), Alt_Return_Opr, arg_info_list_base, arg_info_list_size, arg_info_list_top, arg_list_size, AT_DEFINED, AT_REFERENCED, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATP_HAS_ALT_RETURN, Before, Br_True_Opr, CG_INTEGER_DEFAULT_TYPE, CN_INTEGER_ONE_IDX, CN_Tbl_Idx, COPY_OPND, curr_scp_idx, curr_stmt_sh_idx, Endfile, Endfile_Opr, enlarge_call_list_tables(), enlarge_info_list_table(), Eq_Opr, err_attr_idx, err_list_idx, FALSE, final_arg_work(), Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), If_Stmt, IL_OPND, io_ctl_list_semantics(), IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, LOGICAL_DEFAULT_TYPE, max_call_list_size, NTR_IR_TBL, NULL, Priv, Referenced, SCP_DOES_IO, SCP_SB_STACK_IDX, SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, TRACE, and TRUE.
static void expand_imp_do | ( | int | top_list_idx, |
int | next_stmt_idx | ||
) | [static] |
Definition at line 7841 of file s_io.c.
References alt_return_branch_idx, Alt_Return_Opr, Asg_Opr, Before, COPY_OPND, copy_text_for_expansion(), create_loop_stmts(), curr_stmt_sh_idx, expand_io_list(), FALSE, FL_IO_MIDDLE, Func_Entry, Func_Exit, gen_runtime_checks(), gen_sh(), If_Stmt, IL_HAS_FUNCTIONS, IL_IDX, IL_NEXT_LIST_IDX, IL_OPND, Internal, io_stmt_must_be_split, IR_IDX_R, IR_OPND_L, IR_OPND_R, IR_OPR, NULL, PRINTMSG(), process_deferred_functions(), SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, stmt_start_col, stmt_start_line, stmt_type, TRACE, and TRUE.
Referenced by expand_io_list().
static void expand_io_list | ( | void | ) | [static] |
Definition at line 7292 of file s_io.c.
References After, alt_return_branch_idx, Alt_Return_Opr, arg_info_list, Asg_Opr, AT_Tbl_Idx, Before, change_section_to_do(), COPY_OPND, copy_subtree(), copy_text_for_expansion(), create_tmp_asg(), curr_stmt_sh_idx, discombobulate_structure_ref(), arg_strct::ed, expand_imp_do(), FALSE, FL_IO_MIDDLE, Func_Entry, Func_Exit, gen_runtime_checks(), gen_sh(), If_Stmt, IL_ARG_DESC_IDX, IL_ARG_DESC_VARIANT, IL_COL_NUM, IL_FLD, IL_HAS_CONSTRUCTOR, IL_HAS_FUNCTIONS, IL_IDX, IL_LINE_NUM, IL_MUST_BE_LOOP, IL_MUST_FLATTEN, IL_NEXT_LIST_IDX, IL_NONDEFAULT_IMP_DO_LCV, IL_OPND, IL_STRUCT_REF, IL_Tbl_Idx, Intent_In, Intent_Out, Internal, Io_Item_Type_Code_Opr, IR_FLD_R, IR_IDX_R, IR_LIST_CNT_L, IR_LIST_CNT_R, IR_OPND_L, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, NULL, NULL_IDX, OPND_FLD, OPND_IDX, PRINTMSG(), process_deferred_functions(), expr_semantics_args::rank, Read_Stmt, SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, Stmt_Expansion_Opr, stmt_start_col, stmt_start_line, stmt_type, three_call_model, TRACE, TRUE, TYP_IDX, and expr_semantics_args::type_idx.
Referenced by expand_imp_do(), and process_deferred_io_list().
static void gen_array_element_init | ( | int | attr_idx, |
long_type * | idx_constant, | ||
opnd_type * | rhs_opnd, | ||
int | opr, | ||
int | offset | ||
) | [static] |
Definition at line 8648 of file s_io.c.
References After, Asg_Opr, Assignment_Stmt, AT_Tbl_Idx, ATD_TYPE_IDX, CG_INTEGER_DEFAULT_TYPE, CN_INTEGER_ONE_IDX, CN_INTEGER_ZERO_IDX, CN_POOL_IDX, CN_Tbl_Idx, CN_TYPE_IDX, CP_CONSTANT, curr_stmt_sh_idx, FALSE, find_opnd_line_and_column(), Func_Entry, Func_Exit, gen_il(), gen_ir(), gen_opnd(), gen_sh(), IL_Tbl_Idx, Init_Opr, Init_Reloc_Opr, Integer_4, Integer_8, Internal, IR_COL_NUM, IR_COL_NUM_L, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LIST_CNT_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, ntr_const_tbl(), NTR_IR_TBL, NULL, OPND_FLD, OPND_IDX, PRINTMSG(), SH_IR_IDX, SH_P2_SKIP_ME, Subscript_Opr, TRACE, TRUE, and TYP_LINEAR.
Referenced by create_namelist_descriptor(), create_scalar_type_tbl(), create_strct_tbl(), and namelist_static_dv_whole_def().
void inquire_stmt_semantics | ( | void | ) |
Definition at line 1356 of file s_io.c.
References add_alt_return_lbl(), After, Alt_Return_Opr, arg_info_list_base, arg_info_list_size, arg_info_list_top, arg_list_size, Asg_Opr, Assignment_Stmt, AT_DEFINED, AT_REFERENCED, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATP_HAS_ALT_RETURN, Before, Br_True_Opr, C_INT_TO_CN, Call_Opr, CG_INTEGER_DEFAULT_TYPE, check_for_legal_define(), CIF_Symbol_Modification, CN_INTEGER_ONE_IDX, CN_Tbl_Idx, COPY_OPND, create_io_call_descriptor(), curr_scp_idx, curr_stmt_sh_idx, defer_stmt_expansion, enlarge_call_list_tables(), enlarge_info_list_table(), Eq_Opr, err_attr_idx, err_list_idx, Error, expr_semantics(), FALSE, final_arg_work(), find_left_attr(), find_opnd_line_and_column(), FL_IO_SINGLE, Func_Entry, Func_Exit, gen_compiler_tmp(), gen_runtime_checks(), gen_sh(), If_Stmt, IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_OPND, Inquire, Inquire_Desc, Inquire_Opr, Integer, INTEGER_DEFAULT_TYPE, io_ctl_list_semantics(), io_item_must_flatten, io_list_semantics(), io_stmt_must_be_split, IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_L, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, expr_semantics_args::linear_type, LOGICAL_DEFAULT_TYPE, max_call_list_size, NTR_IR_TBL, NULL, number_of_functions, PRINTMSG(), Priv, process_deferred_io_list(), expr_semantics_args::rank, expr_semantics_args::reference, Referenced, SCP_DOES_IO, SCP_SB_STACK_IDX, SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, TRACE, tree_has_constructor, TRUE, expr_semantics_args::type, and xref_state.
static boolean io_ctl_list_semantics | ( | opnd_type * | list_opnd, |
io_stmt_type | io_type, | ||
boolean | is_call | ||
) | [static] |
Definition at line 2849 of file s_io.c.
References ADD_TMP_TO_SHARED_LIST, ADVANCE_IDX, After, Ansi, arg_idx_tbl, arg_info_list, arg_info_list_base, arg_list, Asg_Opr, Assignment_Stmt, Assumed_Size, AT_ATTR_LINK, AT_OBJ_CLASS, AT_OBJ_NAME_PTR, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_ARRAY_IDX, ATD_ASSIGN_TMP_IDX, ATD_CLASS, ATD_CONST_IDX, ATD_IN_ASSIGN, ATD_STOR_BLK_IDX, ATD_TMP_IDX, ATD_TYPE_IDX, Atd_Unknown, ATL_CLASS, ATL_FORMAT_TMP, ATL_PP_FORMAT_TMP, ATN_NAMELIST_DESC, ATP_ELEMENTAL, ATP_PURE, Backspace, basic_type_str, BD_ARRAY_CLASS, C_INT_TO_CN, cast_to_cg_default(), cast_typeless_constant(), CG_INTEGER_DEFAULT_TYPE, Character, check_for_legal_define(), CIF_No_Usage_Rec, CIF_Symbol_Modification, CIF_Symbol_Reference, ciitem_tbl_entry::ciitem_list, ciitem_tbl, CN_INT_TO_C, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, compare_cn_and_value(), Complex, COMPLEX_DEFAULT_TYPE, Constant, expr_semantics_args::constant, COPY_OPND, create_tmp_asg(), curr_scp_idx, curr_stmt_sh_idx, Data_Obj, expr_semantics_args::dist_reshape_ref, do_read_namelist_semantics(), do_write_namelist_semantics(), expr_semantics_args::dope_vector, arg_strct::ed, END_IDX, END_IS_PRESENT, end_list_idx, Endfile, EOR_IDX, EOR_IS_PRESENT, eor_list_idx, err_attr_idx, ERR_IDX, ERR_IS_PRESENT, err_list_idx, Error, Exp_Form, expr_semantics(), FALSE, find_base_attr(), find_left_attr(), find_opnd_line_and_column(), FL_IO_SINGLE, FMT_IDX, Format_Form, FREE_IR_LIST_NODE, Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), get_basic_type_str(), have_iostat, IL_ARG_DESC_IDX, IL_COL_NUM, IL_FLD, IL_FORMAT_EXPECTED, IL_IDX, IL_LINE_NUM, IL_NAMELIST_EXPECTED, IL_NEXT_LIST_IDX, IL_OPND, IL_PREV_LIST_IDX, IL_Tbl_Idx, in_call_list, init_arg_info, INQ_ERR_IDX, Inquire, Integer, INTEGER_DEFAULT_TYPE, Intent_In, Internal, io_item_must_flatten, io_stmt_str, io_type, IOSTAT_IDX, IOSTAT_IS_PRESENT, IR_COL_NUM, IR_COL_NUM_R, IR_FLD_R, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_R, IR_OPND_L, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, is_namelist, Label, label_allowed, Label_Form, Lbl_Format, expr_semantics_args::linear_type, list_directed, Logical, LOGICAL_DEFAULT_TYPE, Long_Typeless, Lt_Opr, mark_attr_defined(), MAX_NUM_CIITEM, arg_strct::maybe_modified, name, namelist_descriptor_attr, Namelist_Form, Namelist_Grp, namelist_illegal, NML_IDX, NO_Tbl_Idx, ntr_const_tbl(), NTR_IR_LIST_TBL, NTR_IR_TBL, NULL, NULL_IDX, null_opnd, NUM_PDG_CONTROL_LIST_ITEMS, OPND_FLD, OPND_IDX, OPND_LIST_CNT, Print, PRINTMSG(), Priv, expr_semantics_args::rank, Read, Real, REAL_DEFAULT_TYPE, REC_IDX, expr_semantics_args::reference, Rewind, SCP_ATTR_IDX, SCP_SB_STACK_IDX, SH_IR_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, Short_Typeless_Const, SIZE_IDX, stmt_start_col, stmt_start_line, storage_bit_size_tbl, expr_semantics_args::tmp_reference, TRACE, TRUE, TYP_IDX, TYP_LINEAR, expr_semantics_args::type, expr_semantics_args::type_idx, Typeless, TYPELESS_DEFAULT_TYPE, UNIT_IDX, Var_Only_Form, expr_semantics_args::vector_subscript, Whole_Subscript_Opr, Write, and xref_state.
Referenced by backspace_stmt_semantics(), close_stmt_semantics(), endfile_stmt_semantics(), inquire_stmt_semantics(), open_stmt_semantics(), print_stmt_semantics(), read_stmt_semantics(), rewind_stmt_semantics(), and write_stmt_semantics().
static boolean io_list_semantics | ( | opnd_type * | top_opnd, |
io_stmt_type | io_type | ||
) | [static] |
Definition at line 3837 of file s_io.c.
References Ansi, arg_info_list, arg_info_list_base, arg_info_list_size, arg_info_list_top, Asg_Opr, AT_ATTR_LINK, AT_CIF_SYMBOL_ID, AT_IGNORE_ATTR_LINK, AT_OBJ_CLASS, AT_OBJ_NAME_PTR, AT_SEMANTICS_DONE, AT_Tbl_Idx, AT_USE_ASSOCIATED, ATD_AUXILIARY, ATD_IMP_DO_LCV, ATD_SEEN_AS_IO_LCV, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATT_POINTER_CPNT, ATT_PRIVATE_CPNT, cast_to_cg_default(), cast_to_type_idx(), CG_INTEGER_DEFAULT_TYPE, check_for_legal_define(), CIF_Symbol_Modification, CIF_Symbol_Reference, CN_CONST, CN_INTEGER_ONE_IDX, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, CN_TYPE_IDX, Comment, expr_semantics_args::constant, COPY_OPND, curr_scp_idx, Data_Obj, Decode, expr_semantics_args::dist_reshape_ref, DOUBLE_DEFAULT_TYPE, Dv_Deref_Opr, arg_strct::ed, enlarge_info_list_table(), Eq_Opr, Error, EXIT, expr_semantics(), FALSE, find_left_attr(), find_opnd_line_and_column(), folder_driver(), FREE_IR_LIST_NODE, Func_Entry, Func_Exit, gen_compiler_tmp(), IL_ARG_DESC_IDX, IL_ARG_DESC_VARIANT, IL_COL_NUM, IL_FLD, IL_HAS_CONSTRUCTOR, IL_HAS_FUNCTIONS, IL_IDX, IL_LINE_NUM, IL_MUST_BE_LOOP, IL_MUST_FLATTEN, IL_NEXT_LIST_IDX, IL_NONDEFAULT_IMP_DO_LCV, IL_OPND, IL_PREV_LIST_IDX, IL_STRUCT_REF, IL_Tbl_Idx, imp_do_var_list, Implied_Do_Opr, in_implied_do, in_io_list, init_arg_info, init_exp_desc, Integer, Internal, io_item_must_flatten, Io_Item_Type_Code_Opr, io_stmt_must_be_split, io_stmt_str, IR_ARRAY_SYNTAX, IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_L, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, item_has_bounds_chk(), expr_semantics_args::linear_type, list_directed, Long_Typeless, NO_Tbl_Idx, NTR_IR_LIST_TBL, NTR_IR_TBL, NULL, NULL_IDX, number_of_functions, OPND_FLD, OPND_IDX, PRINTMSG(), Priv, expr_semantics_args::rank, Read, Real, REAL_DEFAULT_TYPE, expr_semantics_args::reference, SCP_SB_STACK_IDX, stmt_start_col, stmt_start_line, storage_bit_size_tbl, Structure, THIS_IS_TRUE, three_call_model, TRACE, tree_has_constructor, TRUE, TYP_IDX, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, Typeless, expr_semantics_args::vector_subscript, and xref_state.
Referenced by encode_decode_stmt_semantics(), inquire_stmt_semantics(), print_stmt_semantics(), read_stmt_semantics(), and write_stmt_semantics().
static boolean item_has_bounds_chk | ( | opnd_type * | top_opnd | ) | [static] |
Definition at line 8567 of file s_io.c.
References ATD_CLASS, cmd_line_flags, Compiler_Tmp, COPY_OPND, Dv_Deref_Opr, FALSE, find_left_attr(), Func_Entry, Func_Exit, IL_NEXT_LIST_IDX, IL_OPND, IL_Tbl_Idx, IR_OPND_L, IR_OPND_R, IR_OPR, IR_Tbl_Idx, needs_bounds_check(), NULL, OPND_FLD, OPND_IDX, cmd_line_flags_entry::runtime_ptr_chk, cmd_line_flags_entry::runtime_substring, Section_Subscript_Opr, Subscript_Opr, Substring_Opr, TRACE, and TRUE.
Referenced by io_list_semantics().
static void namelist_static_dv_whole_def | ( | opnd_type * | l_opnd, |
opnd_type * | r_opnd | ||
) | [static] |
Definition at line 5284 of file s_io.c.
References Aloc_Opr, AT_Tbl_Idx, ATD_ALLOCATABLE, ATD_ARRAY_IDX, ATD_POINTER, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATT_CHAR_SEQ, ATT_STRUCT_BIT_LEN_IDX, BD_LB_IDX, BD_RANK, BD_SM_IDX, BD_XT_IDX, cast_opnd_to_type_idx(), CG_INTEGER_DEFAULT_TYPE, char_len_in_bytes, Character, CLEAR_TBL_NTRY, CN_CONST, CN_INTEGER_CHAR_BIT_IDX, CN_POOL_IDX, CN_Tbl_Idx, CN_TYPE_IDX, compare_cn_and_value(), COPY_OPND, CP_CONSTANT, CRI_Ch_Ptr_8, CRI_Ptr_8, DV_DIM_WORD_SIZE, DV_HD_WORD_SIZE, DV_SET_ASSOC, DV_SET_EL_LEN, DV_SET_EXTENT, DV_SET_LOW_BOUND, DV_SET_NUM_DIMS, DV_SET_P_OR_A, DV_SET_STRIDE_MULT, DV_SET_TYPE_CODE, Error, FALSE, find_base_attr(), find_left_attr(), folder_driver(), Func_Entry, Func_Exit, Ge_Opr, gen_array_element_init(), gen_ir(), gen_opnd(), gen_static_integer_array_tmp(), Init_Opr, Init_Reloc_Opr, Integer_8, Internal, IR_OPND_L, IR_Tbl_Idx, IR_TYPE_IDX, Loc_Opr, make_base_subtree(), make_io_type_code(), Mult_Opr, NO_Tbl_Idx, ntr_const_tbl(), ntr_type_tbl(), NULL, NULL_IDX, OPND_FLD, OPND_IDX, PRINTMSG(), SA_INTEGER_DEFAULT_TYPE, SB_FIRST_ATTR_IDX, set_sb_first_attr_idx(), storage_bit_size_tbl, Structure, TRACE, transform_char_sequence_ref(), TYP_BIT_LEN, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, type_tbl, and Typeless.
Referenced by create_namelist_descriptor(), and create_strct_tbl().
void open_stmt_semantics | ( | void | ) |
Definition at line 1650 of file s_io.c.
References add_alt_return_lbl(), Alt_Return_Opr, arg_info_list_base, arg_info_list_size, arg_info_list_top, arg_list_size, AT_DEFINED, AT_REFERENCED, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATP_HAS_ALT_RETURN, Before, Br_True_Opr, CG_INTEGER_DEFAULT_TYPE, CN_INTEGER_ONE_IDX, CN_Tbl_Idx, COPY_OPND, create_io_call_descriptor(), curr_scp_idx, curr_stmt_sh_idx, enlarge_call_list_tables(), enlarge_info_list_table(), Eq_Opr, err_attr_idx, err_list_idx, FALSE, final_arg_work(), Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), If_Stmt, IL_OPND, io_ctl_list_semantics(), IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, LOGICAL_DEFAULT_TYPE, max_call_list_size, NTR_IR_TBL, NULL, Open, Open_Desc, Open_Opr, Priv, Referenced, SCP_DOES_IO, SCP_SB_STACK_IDX, SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, TRACE, and TRUE.
void print_stmt_semantics | ( | void | ) |
Definition at line 1815 of file s_io.c.
References ADD_ATTR_TO_LOCAL_LIST, Aloc_Opr, AT_Tbl_Idx, Before, Call_Opr, Call_Stmt, CG_INTEGER_DEFAULT_TYPE, COPY_OPND, create_lib_entry_attr(), CRI_Ptr_8, curr_scp_idx, curr_stmt_sh_idx, defer_stmt_expansion, Error, FALSE, find_opnd_line_and_column(), Func_Entry, Func_Exit, gen_runtime_checks(), gen_sh(), IL_FLD, IL_IDX, IL_OPND, IL_Tbl_Idx, io_ctl_list_semantics(), io_item_must_flatten, io_list_semantics(), io_stmt_must_be_split, IR_COL_NUM, IR_COL_NUM_L, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LIST_CNT_R, IR_OPND_L, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, is_namelist, Loc_Opr, namelist_descriptor_attr, NTR_IR_LIST_TBL, NTR_IR_TBL, NULL, number_of_functions, Print, PRINTMSG(), process_deferred_io_list(), SCP_DOES_IO, SH_IR_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, stmt_start_col, stmt_start_line, TRACE, tree_has_constructor, and TRUE.
static void process_deferred_io_list | ( | void | ) | [static] |
Definition at line 7178 of file s_io.c.
References After, alt_return_branch_idx, Alt_Return_Opr, Asg_Opr, Before, Br_True_Opr, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, copy_text_for_expansion(), curr_stmt_sh_idx, expand_io_list(), FALSE, FL_IO_FIRST, FL_IO_LAST, FL_IO_MIDDLE, Func_Entry, Func_Exit, gen_sh(), If_Stmt, IL_IDX, IL_NEXT_LIST_IDX, Inquire_Stmt, Internal, io_stmt_must_be_split, IR_IDX_L, IR_IDX_R, IR_OPR, NULL, NULL_IDX, PRINTMSG(), SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, stmt_start_col, stmt_start_line, stmt_type, TRACE, and TRUE.
Referenced by encode_decode_stmt_semantics(), inquire_stmt_semantics(), print_stmt_semantics(), read_stmt_semantics(), and write_stmt_semantics().
static void put_string_in_tmp | ( | char * | str, |
int | len, | ||
opnd_type * | opnd | ||
) | [static] |
Definition at line 6445 of file s_io.c.
References After, Assignment_Stmt, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_DATA_INIT, ATD_SAVED, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, Character, CHARACTER_DEFAULT_TYPE, CLEAR_TBL_NTRY, CN_INTEGER_ONE_IDX, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, Const_Len_Char, COPY_OPND, curr_scp_idx, curr_stmt_sh_idx, FALSE, Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), gen_whole_substring(), IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IL_PREV_LIST_IDX, IL_Tbl_Idx, Init_Opr, IR_COL_NUM, IR_COL_NUM_R, IR_FLD_R, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_L, IR_OPR, IR_TYPE_IDX, ntr_const_tbl(), NTR_IR_LIST_TBL, NTR_IR_TBL, ntr_type_tbl(), NULL, OPND_COL_NUM, OPND_FLD, OPND_IDX, OPND_LINE_NUM, SCP_FIRST_SH_IDX, SCP_SB_STATIC_INIT_IDX, SH_COL_NUM, SH_GLB_LINE, SH_IR_IDX, SH_P2_SKIP_ME, Shared, TRACE, TRUE, TYP_CHAR_CLASS, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, type_tbl, and TYPELESS_DEFAULT_TYPE.
Referenced by create_namelist_descriptor(), and create_strct_tbl().
void read_stmt_semantics | ( | void | ) |
Definition at line 1961 of file s_io.c.
References ADD_ATTR_TO_LOCAL_LIST, After, Aloc_Opr, Alt_Return_Opr, AT_DEFINED, AT_REFERENCED, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATL_DEF_STMT_IDX, Before, Br_Index_Opr, Br_True_Opr, Call_Opr, Call_Stmt, CG_INTEGER_DEFAULT_TYPE, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, Continue_Stmt, COPY_OPND, create_lib_entry_attr(), CRI_Ptr_8, curr_scp_idx, curr_stmt_sh_idx, defer_stmt_expansion, end_list_idx, eor_list_idx, err_list_idx, Error, FALSE, find_opnd_line_and_column(), Func_Entry, Func_Exit, gen_compiler_tmp(), gen_internal_lbl(), gen_runtime_checks(), gen_sh(), have_iostat, If_Stmt, IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IL_OPND, IL_PREV_LIST_IDX, IL_Tbl_Idx, io_ctl_list_semantics(), io_item_must_flatten, io_list_semantics(), io_stmt_must_be_split, IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_L, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, is_namelist, Label_Opr, Loc_Opr, LOGICAL_DEFAULT_TYPE, namelist_descriptor_attr, Ne_Opr, NTR_IR_LIST_TBL, NTR_IR_TBL, NULL, NULL_IDX, number_of_functions, PRINTMSG(), Priv, process_deferred_io_list(), Read, Referenced, SCP_DOES_IO, SCP_SB_STACK_IDX, SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, stmt_start_col, stmt_start_line, TRACE, tree_has_constructor, TRUE, and TYPELESS_DEFAULT_TYPE.
void rewind_stmt_semantics | ( | void | ) |
Definition at line 2322 of file s_io.c.
References add_alt_return_lbl(), Alt_Return_Opr, arg_info_list_base, arg_info_list_size, arg_info_list_top, arg_list_size, AT_DEFINED, AT_REFERENCED, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATP_HAS_ALT_RETURN, Before, Br_True_Opr, CG_INTEGER_DEFAULT_TYPE, CN_INTEGER_ONE_IDX, CN_Tbl_Idx, COPY_OPND, curr_scp_idx, curr_stmt_sh_idx, enlarge_call_list_tables(), enlarge_info_list_table(), Eq_Opr, err_attr_idx, err_list_idx, FALSE, final_arg_work(), Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), If_Stmt, IL_OPND, io_ctl_list_semantics(), IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, LOGICAL_DEFAULT_TYPE, max_call_list_size, NTR_IR_TBL, NULL, Priv, Referenced, Rewind, Rewind_Opr, SCP_DOES_IO, SCP_SB_STACK_IDX, SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, TRACE, and TRUE.
void set_sb_first_attr_idx | ( | int | attr_idx | ) |
Definition at line 8468 of file s_io.c.
References AT_SEMANTICS_DONE, ATD_OFFSET_ASSIGNED, ATD_OFFSET_FLD, ATD_OFFSET_IDX, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, CLEAR_TBL_NTRY, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, Func_Entry, Func_Exit, gen_compiler_tmp(), Long_Typeless, ntr_type_tbl(), NULL, Priv, SB_FIRST_ATTR_IDX, stmt_start_col, stmt_start_line, TRACE, TRUE, TYP_BIT_LEN, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, type_tbl, and Typeless.
Referenced by create_argchck_descriptor(), create_namelist_descriptor(), create_scalar_type_tbl(), create_strct_tbl(), and namelist_static_dv_whole_def().
void write_stmt_semantics | ( | void | ) |
Definition at line 2487 of file s_io.c.
References ADD_ATTR_TO_LOCAL_LIST, After, Aloc_Opr, Alt_Return_Opr, AT_DEFINED, AT_REFERENCED, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATL_DEF_STMT_IDX, Before, Br_Index_Opr, Br_True_Opr, Call_Opr, Call_Stmt, CG_INTEGER_DEFAULT_TYPE, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, Continue_Stmt, COPY_OPND, create_lib_entry_attr(), CRI_Ptr_8, curr_scp_idx, curr_stmt_sh_idx, defer_stmt_expansion, end_list_idx, eor_list_idx, err_list_idx, Error, FALSE, find_opnd_line_and_column(), Func_Entry, Func_Exit, gen_compiler_tmp(), gen_internal_lbl(), gen_runtime_checks(), gen_sh(), have_iostat, If_Stmt, IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IL_OPND, IL_PREV_LIST_IDX, IL_Tbl_Idx, io_ctl_list_semantics(), io_item_must_flatten, io_list_semantics(), io_stmt_must_be_split, IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_L, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, is_namelist, Label_Opr, Loc_Opr, LOGICAL_DEFAULT_TYPE, namelist_descriptor_attr, Ne_Opr, NTR_IR_LIST_TBL, NTR_IR_TBL, NULL, NULL_IDX, number_of_functions, PRINTMSG(), Priv, process_deferred_io_list(), Referenced, SCP_DOES_IO, SCP_SB_STACK_IDX, SH_IR_IDX, SH_NEXT_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, stmt_start_col, stmt_start_line, TRACE, tree_has_constructor, TRUE, TYPELESS_DEFAULT_TYPE, and Write.
int err_attr_idx [static] |
Definition at line 89 of file s_io.c.
Referenced by backspace_stmt_semantics(), close_stmt_semantics(), endfile_stmt_semantics(), inquire_stmt_semantics(), io_ctl_list_semantics(), open_stmt_semantics(), and rewind_stmt_semantics().