Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
Go to the source code of this file.
Defines | |
#define | BLK_HEAD_IDX 1 |
#define | BLK_STK_SIZE 20 |
#define | MAX_BLK_LOOP_NUM 4095 |
#define | CURR_BLK blk_stk[blk_stk_idx].fld.blk_type |
#define | CURR_BLK_ERR blk_stk[blk_stk_idx].fld.blk_err |
#define | CURR_BLK_FIRST_SH_IDX blk_stk[blk_stk_idx].fld.first_sh_idx |
#define | CURR_BLK_FND_DEFAULT blk_stk[blk_stk_idx].fld.fnd_default |
#define | CURR_BLK_LABEL blk_stk[blk_stk_idx].fld.label_idx |
#define | CURR_BLK_NAME blk_stk[blk_stk_idx].fld.name_idx |
#define | CURR_BLK_NO_EXEC blk_stk[blk_stk_idx].fld.no_exec |
#define | CURR_BLK_DEF_LINE blk_stk[blk_stk_idx].fld.def_line |
#define | CURR_BLK_DEF_COLUMN blk_stk[blk_stk_idx].fld.def_column |
#define | BLK_BLOCKABLE_DIR_SH_IDX(IDX) blk_stk[IDX].fld.blkbl_dir_sh_idx |
#define | BLK_BLOCKABLE_NEST_OK(IDX) blk_stk[IDX].fld.blkbl_nest_ok |
#define | BLK_BLOCKABLE_NUM_LCVS(IDX) blk_stk[IDX].fld.blkbl_num_lcvs |
#define | BLK_CASE_DEFAULT_LBL_COL_NUM(IDX) blk_stk[IDX].fld.multiuse_opnd.col_num |
#define | BLK_CASE_DEFAULT_LBL_FLD(IDX) blk_stk[IDX].fld.multiuse_opnd.fld |
#define | BLK_CASE_DEFAULT_LBL_IDX(IDX) blk_stk[IDX].fld.multiuse_opnd.idx |
#define | BLK_CASE_DEFAULT_LBL_LINE_NUM(IDX) blk_stk[IDX].fld.multiuse_opnd.line_num |
#define | BLK_CASE_DEFAULT_LBL_OPND(IDX) blk_stk[IDX].fld.multiuse_opnd |
#define | BLK_CIF_SCOPE_ID(IDX) blk_stk[IDX].fld.tc_temp_idx |
#define | BLK_CYCLE_STMT(IDX) blk_stk[IDX].fld.has_cycle_stmt |
#define | BLK_DEF_COLUMN(IDX) blk_stk[IDX].fld.def_column |
#define | BLK_DEF_LINE(IDX) blk_stk[IDX].fld.def_line |
#define | BLK_DIR_NEST_CHECK_NUM_LCVS(IDX) blk_stk[IDX].fld.dir_nest_num_lcvs |
#define | BLK_DIR_NEST_CHECK_SH_IDX(IDX) blk_stk[IDX].fld.dir_nest_ck_sh_idx |
#define | BLK_DO_TYPE(IDX) blk_stk[IDX].fld.do_type |
#define | BLK_DO_VAR_COL_NUM(IDX) blk_stk[IDX].fld.multiuse_opnd.col_num |
#define | BLK_DO_VAR_FLD(IDX) blk_stk[IDX].fld.multiuse_opnd.fld |
#define | BLK_DO_VAR_IDX(IDX) blk_stk[IDX].fld.multiuse_opnd.idx |
#define | BLK_DO_VAR_LINE_NUM(IDX) blk_stk[IDX].fld.multiuse_opnd.line_num |
#define | BLK_DO_VAR_OPND(IDX) blk_stk[IDX].fld.multiuse_opnd |
#define | BLK_ENDDO_PARALLEL_SH_IDX(IDX) blk_stk[IDX].fld.multiuse_opnd.idx |
#define | BLK_ENDPDO_SH_IDX(IDX) blk_stk[IDX].fld.multiuse_opnd.idx |
#define | BLK_ERR(IDX) blk_stk[IDX].fld.blk_err |
#define | BLK_EXIT_STMT(IDX) blk_stk[IDX].fld.has_exit_stmt |
#define | BLK_FIRST_SH_IDX(IDX) blk_stk[IDX].fld.first_sh_idx |
#define | BLK_FND_DEFAULT(IDX) blk_stk[IDX].fld.fnd_default |
#define | BLK_HAS_NESTED_LOOP(IDX) blk_stk[IDX].fld.has_nested_loop |
#define | BLK_INC_TEMP_IDX(IDX) blk_stk[IDX].fld.inc_temp_idx |
#define | BLK_INDUC_TEMP_IDX(IDX) blk_stk[IDX].fld.induc_temp_idx |
#define | BLK_INTERCHANGE_NUM_LCVS(IDX) blk_stk[IDX].fld.intchg_num_lcvs |
#define | BLK_INTERCHANGE_DIR_SH_IDX(IDX) blk_stk[IDX].fld.intchg_dir_sh_idx |
#define | BLK_IS_PARALLEL_REGION(IDX) blk_stk[IDX].fld.parallel_region |
#define | BLK_LABEL(IDX) blk_stk[IDX].fld.label_idx |
#define | BLK_LAST_CPNT_IDX(IDX) blk_stk[IDX].fld_long.field32_5_1 |
#define | BLK_LOOP_NUM(IDX) blk_stk[IDX].fld.loop_num |
#define | BLK_NAME(IDX) blk_stk[IDX].fld.name_idx |
#define | BLK_NO_EXEC(IDX) blk_stk[IDX].fld.no_exec |
#define | BLK_NUM_CASES(IDX) blk_stk[IDX].fld.top_lbl_idx |
#define | BLK_SKIP_LBL_IDX(IDX) blk_stk[IDX].fld.skip_lbl_idx |
#define | BLK_START_TEMP_IDX(IDX) blk_stk[IDX].fld.start_temp_idx |
#define | BLK_TC_TEMP_IDX(IDX) blk_stk[IDX].fld.tc_temp_idx |
#define | BLK_TOP_LBL_IDX(IDX) blk_stk[IDX].fld.top_lbl_idx |
#define | BLK_TYPE(IDX) blk_stk[IDX].fld.blk_type |
#define | BLK_UNNAMED_INTERFACE(IDX) blk_stk[IDX].fld.inc_temp_idx |
#define | BLK_AT_IDX(IDX) blk_stk[IDX].fld.top_lbl_idx |
#define | BLK_BD_IDX(IDX) blk_stk[IDX].fld_long.field32_5_1 |
#define | BLK_CN_IDX(IDX) blk_stk[IDX].fld.induc_temp_idx |
#define | BLK_CP_IDX(IDX) blk_stk[IDX].fld.start_temp_idx |
#define | BLK_NP_IDX(IDX) blk_stk[IDX].fld.skip_lbl_idx |
#define | BLK_SB_IDX(IDX) blk_stk[IDX].fld_long.field32_5_2 |
#define | BLK_SN_IDX(IDX) blk_stk[IDX].fld.label_idx |
#define | BLK_TYP_IDX(IDX) blk_stk[IDX].fld_long.field32_6_2 |
#define | STMT_CANT_BE_IN_BLK(STMT, BLKTYPE) (((stmt_in_blk[STMT] >> BLKTYPE) & 1) != 0) |
#define | STMT_LEGAL_IN_BLK(STMT, BLKTYPE) (((stmt_in_blk[STMT] >> BLKTYPE) & 1) == 0) |
#define | STMT_OUT_OF_ORDER(CNTXT, STMT) (CNTXT > stmt_top_cat[STMT]) |
#define | SET_DIRECTIVE_STATE(REGION) directive_state |= (1 << REGION) |
#define | CLEAR_DIRECTIVE_STATE(REGION) directive_state &= (~(1 << REGION)) |
#define | INSERT_IO_START |
#define | INSERT_IO_END |
#define | MATCHED_TOKEN_CLASS(class) get_token (class) |
#define | POP_BLK_STK blk_stk_idx--; |
#define | PUSH_BLK_STK(NEW_BLK) |
#define | LINK_TO_PARENT_BLK |
#define BLK_AT_IDX | ( | IDX | ) | blk_stk[IDX].fld.top_lbl_idx |
Definition at line 115 of file p_globals.m.
Referenced by collapse_interface_blk(), dump_blk_ntry(), end_interface_blk(), end_interface_body(), parse_typed_function_stmt(), and start_new_subpgm().
#define BLK_BD_IDX | ( | IDX | ) | blk_stk[IDX].fld_long.field32_5_1 |
Definition at line 116 of file p_globals.m.
Referenced by collapse_interface_blk(), dump_blk_ntry(), end_interface_body(), parse_typed_function_stmt(), and start_new_subpgm().
#define BLK_BLOCKABLE_DIR_SH_IDX | ( | IDX | ) | blk_stk[IDX].fld.blkbl_dir_sh_idx |
Definition at line 68 of file p_globals.m.
Referenced by dump_blk_ntry(), loop_end_processing(), parse_star_dir_directives(), and process_blockable_dir().
#define BLK_BLOCKABLE_NEST_OK | ( | IDX | ) | blk_stk[IDX].fld.blkbl_nest_ok |
Definition at line 69 of file p_globals.m.
Referenced by dump_blk_ntry(), and loop_end_processing().
#define BLK_BLOCKABLE_NUM_LCVS | ( | IDX | ) | blk_stk[IDX].fld.blkbl_num_lcvs |
Definition at line 70 of file p_globals.m.
Referenced by dump_blk_ntry(), loop_end_processing(), parse_star_dir_directives(), and process_blockable_dir().
#define BLK_CASE_DEFAULT_LBL_COL_NUM | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd.col_num |
Definition at line 71 of file p_globals.m.
Referenced by dump_blk_ntry(), and parse_case_stmt().
#define BLK_CASE_DEFAULT_LBL_FLD | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd.fld |
Definition at line 73 of file p_globals.m.
Referenced by dump_blk_ntry(), end_select_blk(), parse_case_stmt(), and parse_select_stmt().
#define BLK_CASE_DEFAULT_LBL_IDX | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd.idx |
Definition at line 74 of file p_globals.m.
Referenced by dump_blk_ntry(), and parse_case_stmt().
#define BLK_CASE_DEFAULT_LBL_LINE_NUM | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd.line_num |
Definition at line 75 of file p_globals.m.
Referenced by dump_blk_ntry(), and parse_case_stmt().
#define BLK_CASE_DEFAULT_LBL_OPND | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd |
Definition at line 77 of file p_globals.m.
Referenced by end_select_blk().
#define BLK_CIF_SCOPE_ID | ( | IDX | ) | blk_stk[IDX].fld.tc_temp_idx |
Definition at line 78 of file p_globals.m.
Referenced by cif_begin_scope_rec(), cif_end_scope_rec(), dump_blk_ntry(), parse_contains_stmt(), parse_interface_stmt(), and stmt_level_semantics().
#define BLK_CN_IDX | ( | IDX | ) | blk_stk[IDX].fld.induc_temp_idx |
Definition at line 117 of file p_globals.m.
Referenced by collapse_interface_blk(), dump_blk_ntry(), end_interface_body(), parse_typed_function_stmt(), and start_new_subpgm().
#define BLK_CP_IDX | ( | IDX | ) | blk_stk[IDX].fld.start_temp_idx |
Definition at line 118 of file p_globals.m.
Referenced by dump_blk_ntry(), end_interface_body(), parse_typed_function_stmt(), and start_new_subpgm().
#define BLK_CYCLE_STMT | ( | IDX | ) | blk_stk[IDX].fld.has_cycle_stmt |
Definition at line 79 of file p_globals.m.
Referenced by dump_blk_ntry(), loop_end_processing(), and parse_cycle_stmt().
#define BLK_DEF_COLUMN | ( | IDX | ) | blk_stk[IDX].fld.def_column |
Definition at line 80 of file p_globals.m.
Referenced by cif_begin_scope_rec(), dump_blk_ntry(), and pop_and_err_blk_stk().
#define BLK_DEF_LINE | ( | IDX | ) | blk_stk[IDX].fld.def_line |
Definition at line 81 of file p_globals.m.
Referenced by check_do_open_mp_nesting(), cif_begin_scope_rec(), dump_blk_ntry(), gen_loop_lbl_name(), parse_case_stmt(), pop_and_err_blk_stk(), remove_do_parallel_blk(), and remove_pdo_blk().
#define BLK_DIR_NEST_CHECK_NUM_LCVS | ( | IDX | ) | blk_stk[IDX].fld.dir_nest_num_lcvs |
Definition at line 82 of file p_globals.m.
Referenced by check_loop_bottom_nesting(), check_mp_dir_nesting(), dump_blk_ntry(), loop_end_processing(), and loop_top_is_perfectly_nested().
#define BLK_DIR_NEST_CHECK_SH_IDX | ( | IDX | ) | blk_stk[IDX].fld.dir_nest_ck_sh_idx |
Definition at line 83 of file p_globals.m.
Referenced by check_loop_bottom_nesting(), check_mp_dir_nesting(), dump_blk_ntry(), and loop_top_is_perfectly_nested().
#define BLK_DO_TYPE | ( | IDX | ) | blk_stk[IDX].fld.do_type |
Definition at line 84 of file p_globals.m.
Referenced by dump_blk_ntry(), loop_end_processing(), and parse_do_stmt().
#define BLK_DO_VAR_COL_NUM | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd.col_num |
Definition at line 85 of file p_globals.m.
Referenced by dump_blk_ntry(), and parse_do_stmt().
#define BLK_DO_VAR_FLD | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd.fld |
Definition at line 86 of file p_globals.m.
Referenced by dump_blk_ntry(), and parse_do_stmt().
#define BLK_DO_VAR_IDX | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd.idx |
Definition at line 87 of file p_globals.m.
Referenced by dump_blk_ntry(), and parse_do_stmt().
#define BLK_DO_VAR_LINE_NUM | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd.line_num |
Definition at line 88 of file p_globals.m.
Referenced by dump_blk_ntry(), and parse_do_stmt().
#define BLK_DO_VAR_OPND | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd |
Definition at line 89 of file p_globals.m.
Referenced by check_mp_dir_nesting(), parse_do_stmt(), process_blockable_dir(), and process_interchange_dir().
#define BLK_ENDDO_PARALLEL_SH_IDX | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd.idx |
Definition at line 90 of file p_globals.m.
Referenced by end_do_parallel_blk(), and end_task_do_blk().
#define BLK_ENDPDO_SH_IDX | ( | IDX | ) | blk_stk[IDX].fld.multiuse_opnd.idx |
Definition at line 91 of file p_globals.m.
Referenced by end_open_mp_do_blk(), end_open_mp_parallel_do_blk(), end_pdo_blk(), and end_task_do_blk().
Definition at line 92 of file p_globals.m.
Referenced by dump_blk_ntry(), iss_blk_stk_err(), parse_case_stmt(), parse_do_stmt(), and pop_and_err_blk_stk().
#define BLK_EXIT_STMT | ( | IDX | ) | blk_stk[IDX].fld.has_exit_stmt |
Definition at line 93 of file p_globals.m.
Referenced by dump_blk_ntry(), loop_end_processing(), and parse_exit_stmt().
#define BLK_FIRST_SH_IDX | ( | IDX | ) | blk_stk[IDX].fld.first_sh_idx |
Definition at line 94 of file p_globals.m.
Referenced by build_fwd_ref_entry(), check_label_ref(), check_mp_dir_nesting(), check_ordered_open_mp_nesting(), dump_blk_ntry(), gen_loop_lbl_name(), loop_top_is_perfectly_nested(), parse_case_stmt(), parse_else_stmt(), parse_forall(), parse_star_dir_directives(), pop_and_err_blk_stk(), process_blockable_dir(), process_interchange_dir(), and stmt_level_semantics().
#define BLK_FND_DEFAULT | ( | IDX | ) | blk_stk[IDX].fld.fnd_default |
Definition at line 95 of file p_globals.m.
Referenced by dump_blk_ntry(), and parse_case_stmt().
#define BLK_HAS_NESTED_LOOP | ( | IDX | ) | blk_stk[IDX].fld.has_nested_loop |
Definition at line 96 of file p_globals.m.
Referenced by check_loop_bottom_nesting(), check_mp_dir_nesting(), dump_blk_ntry(), loop_top_is_perfectly_nested(), and process_interchange_dir().
#define BLK_HEAD_IDX 1 |
Definition at line 43 of file p_globals.m.
Referenced by iss_blk_stk_err(), parse_prog_unit(), and stmt_level_semantics().
#define BLK_INC_TEMP_IDX | ( | IDX | ) | blk_stk[IDX].fld.inc_temp_idx |
Definition at line 97 of file p_globals.m.
Referenced by dump_blk_ntry().
#define BLK_INDUC_TEMP_IDX | ( | IDX | ) | blk_stk[IDX].fld.induc_temp_idx |
Definition at line 98 of file p_globals.m.
Referenced by dump_blk_ntry().
#define BLK_INTERCHANGE_DIR_SH_IDX | ( | IDX | ) | blk_stk[IDX].fld.intchg_dir_sh_idx |
Definition at line 100 of file p_globals.m.
Referenced by check_loop_bottom_nesting(), dump_blk_ntry(), loop_top_is_perfectly_nested(), parse_star_dir_directives(), and process_interchange_dir().
#define BLK_INTERCHANGE_NUM_LCVS | ( | IDX | ) | blk_stk[IDX].fld.intchg_num_lcvs |
Definition at line 99 of file p_globals.m.
Referenced by check_loop_bottom_nesting(), dump_blk_ntry(), loop_end_processing(), loop_top_is_perfectly_nested(), parse_star_dir_directives(), and process_interchange_dir().
#define BLK_IS_PARALLEL_REGION | ( | IDX | ) | blk_stk[IDX].fld.parallel_region |
Definition at line 101 of file p_globals.m.
Referenced by build_fwd_ref_entry(), check_label_ref(), dump_blk_ntry(), parse_do_stmt(), parse_mic_directives(), parse_open_mp_directives(), parse_par_directives(), and stmt_level_semantics().
Definition at line 102 of file p_globals.m.
Referenced by dump_blk_ntry(), end_do_blk(), end_labeled_do(), gen_loop_lbl_name(), parse_case_stmt(), parse_do_stmt(), parse_else_stmt(), parse_end_stmt(), and pop_and_err_blk_stk().
#define BLK_LAST_CPNT_IDX | ( | IDX | ) | blk_stk[IDX].fld_long.field32_5_1 |
Definition at line 103 of file p_globals.m.
Referenced by dump_blk_ntry(), and parse_cpnt_dcl_stmt().
#define BLK_LOOP_NUM | ( | IDX | ) | blk_stk[IDX].fld.loop_num |
Definition at line 104 of file p_globals.m.
Referenced by dump_blk_ntry(), end_do_blk(), end_labeled_do(), gen_loop_lbl_name(), and parse_do_stmt().
Definition at line 105 of file p_globals.m.
Referenced by blk_desc_str(), blk_match_err(), check_for_dup_derived_type_lbl(), cif_begin_scope_rec(), dump_blk_ntry(), end_if_blk(), end_interface_blk(), end_interface_body(), end_labeled_do(), end_select_blk(), match_blk(), parse_case_stmt(), parse_cycle_stmt(), parse_else_stmt(), and parse_exit_stmt().
#define BLK_NO_EXEC | ( | IDX | ) | blk_stk[IDX].fld.no_exec |
Definition at line 106 of file p_globals.m.
Referenced by dump_blk_ntry().
#define BLK_NP_IDX | ( | IDX | ) | blk_stk[IDX].fld.skip_lbl_idx |
Definition at line 119 of file p_globals.m.
Referenced by collapse_interface_blk(), dump_blk_ntry(), end_interface_body(), parse_typed_function_stmt(), and start_new_subpgm().
#define BLK_NUM_CASES | ( | IDX | ) | blk_stk[IDX].fld.top_lbl_idx |
Definition at line 107 of file p_globals.m.
Referenced by dump_blk_ntry(), end_select_blk(), and parse_case_stmt().
#define BLK_SB_IDX | ( | IDX | ) | blk_stk[IDX].fld_long.field32_5_2 |
Definition at line 120 of file p_globals.m.
Referenced by collapse_interface_blk(), dump_blk_ntry(), end_interface_body(), parse_typed_function_stmt(), and start_new_subpgm().
#define BLK_SKIP_LBL_IDX | ( | IDX | ) | blk_stk[IDX].fld.skip_lbl_idx |
Definition at line 108 of file p_globals.m.
Referenced by dump_blk_ntry(), loop_end_processing(), and parse_do_stmt().
#define BLK_SN_IDX | ( | IDX | ) | blk_stk[IDX].fld.label_idx |
Definition at line 121 of file p_globals.m.
Referenced by collapse_interface_blk(), dump_blk_ntry(), end_interface_body(), parse_typed_function_stmt(), and start_new_subpgm().
#define BLK_START_TEMP_IDX | ( | IDX | ) | blk_stk[IDX].fld.start_temp_idx |
Definition at line 109 of file p_globals.m.
Referenced by dump_blk_ntry().
#define BLK_STK_SIZE 20 |
Definition at line 50 of file p_globals.m.
#define BLK_TC_TEMP_IDX | ( | IDX | ) | blk_stk[IDX].fld.tc_temp_idx |
Definition at line 110 of file p_globals.m.
Referenced by dump_blk_ntry().
#define BLK_TOP_LBL_IDX | ( | IDX | ) | blk_stk[IDX].fld.top_lbl_idx |
Definition at line 111 of file p_globals.m.
Referenced by dump_blk_ntry(), parse_dir_directives(), and parse_do_stmt().
#define BLK_TYP_IDX | ( | IDX | ) | blk_stk[IDX].fld_long.field32_6_2 |
Definition at line 122 of file p_globals.m.
Referenced by collapse_interface_blk(), dump_blk_ntry(), end_interface_body(), parse_typed_function_stmt(), and start_new_subpgm().
Definition at line 112 of file p_globals.m.
Referenced by blk_desc_str(), blk_match_err(), build_fwd_ref_entry(), check_do_open_mp_nesting(), check_for_vestigial_task_blks(), check_label_ref(), check_loop_bottom_nesting(), check_mp_dir_nesting(), check_ordered_open_mp_nesting(), check_section_open_mp_context(), cif_begin_scope_rec(), cif_prog_unit_init(), dump_blk_ntry(), end_do_blk(), end_if_blk(), end_interface_body(), end_labeled_do(), end_select_blk(), iss_blk_stk_err(), loop_top_is_perfectly_nested(), match_blk(), move_blk_to_end(), parse_case_stmt(), parse_dir_directives(), parse_do_stmt(), parse_else_stmt(), parse_end_stmt(), parse_forall(), parse_mic_directives(), parse_star_dir_directives(), pop_and_err_blk_stk(), process_blockable_dir(), process_interchange_dir(), remove_do_parallel_blk(), remove_pdo_blk(), and stmt_level_semantics().
#define BLK_UNNAMED_INTERFACE | ( | IDX | ) | blk_stk[IDX].fld.inc_temp_idx |
Definition at line 113 of file p_globals.m.
Referenced by end_interface_blk(), end_interface_body(), parse_interface_stmt(), parse_typed_function_stmt(), and start_new_subpgm().
#define CLEAR_DIRECTIVE_STATE | ( | REGION | ) | directive_state &= (~(1 << REGION)) |
Definition at line 143 of file p_globals.m.
Referenced by check_do_open_mp_nesting(), check_for_vestigial_task_blks(), end_critical_section_blk(), end_do_blk(), end_guard_blk(), end_labeled_do(), end_open_mp_parallel_blk(), end_parallel_blk(), end_parallel_case_blk(), end_psection_blk(), end_region_blk(), end_SGI_parallel_blk(), end_single_process_blk(), end_task_do_blk(), parse_mic_directives(), parse_open_mp_directives(), parse_par_directives(), parse_star_directives(), pop_and_err_blk_stk(), remove_do_parallel_blk(), and remove_pdo_blk().
#define CURR_BLK blk_stk[blk_stk_idx].fld.blk_type |
Definition at line 58 of file p_globals.m.
Referenced by blk_match_err(), check_for_vestigial_task_blks(), cif_begin_scope_rec(), cif_end_scope_rec(), end_critical_section_blk(), end_do_blk(), end_do_parallel_blk(), end_guard_blk(), end_if_blk(), end_labeled_do(), end_open_mp_critical_blk(), end_open_mp_do_blk(), end_open_mp_master_blk(), end_open_mp_ordered_blk(), end_open_mp_parallel_blk(), end_open_mp_parallel_do_blk(), end_open_mp_parallel_sections_blk(), end_open_mp_parallel_workshare_blk(), end_open_mp_section_blk(), end_open_mp_sections_blk(), end_open_mp_single_blk(), end_open_mp_workshare_blk(), end_parallel_blk(), end_parallel_case_blk(), end_pdo_blk(), end_psection_blk(), end_region_blk(), end_select_blk(), end_SGI_parallel_blk(), end_single_process_blk(), end_task_do_blk(), end_where_blk(), generic_spec_semantics(), iss_blk_stk_err(), issue_attr_blk_err(), parse_access_stmt(), parse_array_spec(), parse_assignment_stmt(), parse_attr_spec(), parse_attrs(), parse_case_stmt(), parse_common_stmt(), parse_contains_stmt(), parse_data_stmt(), parse_derived_type_stmt(), parse_dir_directives(), parse_else_stmt(), parse_end_stmt(), parse_entry_stmt(), parse_equivalence_stmt(), parse_forall(), parse_function_stmt(), parse_if_stmt(), parse_implicit_stmt(), parse_interface_stmt(), parse_length_selector(), parse_module_stmt(), parse_namelist_stmt(), parse_open_mp_directives(), parse_par_directives(), parse_parameter_stmt(), parse_pe_array_spec(), parse_pointer_stmt(), parse_prefix_spec(), parse_prog_unit(), parse_save_stmt(), parse_sequence_stmt(), parse_stmt_func_stmt(), parse_subroutine_stmt(), parse_type_dcl_stmt(), parse_typed_function_stmt(), parse_use_stmt(), parse_where_stmt(), start_new_prog_unit(), start_new_scp(), start_new_subpgm(), stmt_level_semantics(), and use_stmt_semantics().
#define CURR_BLK_DEF_COLUMN blk_stk[blk_stk_idx].fld.def_column |
Definition at line 66 of file p_globals.m.
Referenced by cif_begin_scope_rec(), cif_unit_rec(), end_type_blk(), parse_case_stmt(), and start_new_prog_unit().
#define CURR_BLK_DEF_LINE blk_stk[blk_stk_idx].fld.def_line |
Definition at line 65 of file p_globals.m.
Referenced by cif_begin_scope_rec(), cif_unit_rec(), end_type_blk(), parse_case_stmt(), and start_new_prog_unit().
#define CURR_BLK_ERR blk_stk[blk_stk_idx].fld.blk_err |
Definition at line 59 of file p_globals.m.
Referenced by check_for_dup_derived_type_lbl(), cif_end_scope_rec(), end_if_blk(), end_select_blk(), parse_case_stmt(), parse_contains_stmt(), parse_derived_type_stmt(), parse_do_stmt(), parse_end_stmt(), parse_forall(), parse_if_stmt(), parse_interface_stmt(), parse_prefix_spec(), parse_select_stmt(), parse_typed_function_stmt(), and parse_where_stmt().
#define CURR_BLK_FIRST_SH_IDX blk_stk[blk_stk_idx].fld.first_sh_idx |
Definition at line 60 of file p_globals.m.
Referenced by end_do_blk(), end_forall_blk(), end_if_blk(), end_labeled_do(), end_open_mp_do_blk(), end_open_mp_parallel_blk(), end_open_mp_parallel_do_blk(), end_open_mp_parallel_sections_blk(), end_open_mp_parallel_workshare_blk(), end_open_mp_sections_blk(), end_open_mp_single_blk(), end_open_mp_workshare_blk(), end_pdo_blk(), end_psection_blk(), end_select_blk(), end_SGI_parallel_blk(), end_single_process_blk(), end_task_do_blk(), end_where_blk(), init_parse_prog_unit(), loop_end_processing(), parse_case_stmt(), parse_do_stmt(), parse_else_stmt(), parse_forall(), parse_if_stmt(), parse_mic_directives(), parse_open_mp_directives(), parse_par_directives(), parse_select_stmt(), parse_star_directives(), parse_where_stmt(), and start_new_subpgm().
#define CURR_BLK_FND_DEFAULT blk_stk[blk_stk_idx].fld.fnd_default |
Definition at line 61 of file p_globals.m.
#define CURR_BLK_LABEL blk_stk[blk_stk_idx].fld.label_idx |
Definition at line 62 of file p_globals.m.
Referenced by end_if_blk(), end_labeled_do(), end_select_blk(), parse_do_stmt(), parse_else_stmt(), parse_if_stmt(), and parse_select_stmt().
#define CURR_BLK_NAME blk_stk[blk_stk_idx].fld.name_idx |
Definition at line 63 of file p_globals.m.
Referenced by assign_offset(), blk_match_err(), check_for_dup_derived_type_lbl(), end_interface_blk(), end_interface_body(), end_module_proc(), end_type_blk(), issue_attr_blk_err(), parse_access_stmt(), parse_block_stmt(), parse_case_stmt(), parse_cpnt_dcl_stmt(), parse_derived_type_stmt(), parse_do_stmt(), parse_else_stmt(), parse_end_stmt(), parse_forall(), parse_if_stmt(), parse_interface_stmt(), parse_module_stmt(), parse_prog_unit(), parse_select_stmt(), parse_sequence_stmt(), parse_typed_function_stmt(), parse_where_stmt(), pop_and_err_blk_stk(), set_up_fake_dt_blk(), start_new_prog_unit(), start_new_subpgm(), and stmt_level_semantics().
#define CURR_BLK_NO_EXEC blk_stk[blk_stk_idx].fld.no_exec |
Definition at line 64 of file p_globals.m.
Referenced by parse_allocate_stmt(), parse_assign_stmt(), parse_assignment_stmt(), parse_backspace_stmt(), parse_block_stmt(), parse_buffer_stmt(), parse_call_stmt(), parse_close_stmt(), parse_contains_stmt(), parse_continue_stmt(), parse_cycle_stmt(), parse_deallocate_stmt(), parse_decode_stmt(), parse_derived_type_stmt(), parse_do_stmt(), parse_else_stmt(), parse_encode_stmt(), parse_endfile_stmt(), parse_exit_stmt(), parse_forall(), parse_format_stmt(), parse_goto_stmt(), parse_if_stmt(), parse_inquire_stmt(), parse_interface_stmt(), parse_module_stmt(), parse_nullify_stmt(), parse_open_stmt(), parse_print_stmt(), parse_read_stmt(), parse_return_stmt(), parse_rewind_stmt(), parse_select_stmt(), parse_stop_pause_stmt(), parse_where_stmt(), parse_write_stmt(), and start_new_subpgm().
#define INSERT_IO_END |
Definition at line 182 of file p_globals.m.
Referenced by parse_backspace_stmt(), parse_buffer_stmt(), parse_close_stmt(), parse_decode_stmt(), parse_encode_stmt(), parse_endfile_stmt(), parse_inquire_stmt(), parse_open_stmt(), parse_print_stmt(), parse_read_stmt(), parse_rewind_stmt(), and parse_write_stmt().
#define INSERT_IO_START |
Definition at line 165 of file p_globals.m.
Referenced by parse_backspace_stmt(), parse_buffer_stmt(), parse_close_stmt(), parse_decode_stmt(), parse_encode_stmt(), parse_endfile_stmt(), parse_inquire_stmt(), parse_open_stmt(), parse_print_stmt(), parse_read_stmt(), parse_rewind_stmt(), and parse_write_stmt().
#define LINK_TO_PARENT_BLK |
{ int _blk_idx; \ if (BLK_TYPE(blk_stk_idx - 1) == Doall_Blk || \ BLK_TYPE(blk_stk_idx - 1) == Do_Parallel_Blk) { \ _blk_idx = blk_stk_idx - 2; \ } else { \ _blk_idx = blk_stk_idx - 1; \ } \ if ((Do_Blk <= BLK_TYPE(_blk_idx) && \ BLK_TYPE(_blk_idx) <= Case_Blk) || \ (Parallel_Blk <= BLK_TYPE(_blk_idx) && \ BLK_TYPE(_blk_idx) <= Parallel_Case_Blk)) { \ SH_PARENT_BLK_IDX(curr_stmt_sh_idx) = \ BLK_FIRST_SH_IDX(_blk_idx); \ }}
Definition at line 207 of file p_globals.m.
Referenced by parse_case_stmt(), parse_do_stmt(), parse_else_stmt(), parse_if_stmt(), parse_mic_directives(), parse_open_mp_directives(), parse_par_directives(), parse_select_stmt(), and parse_star_directives().
#define MATCHED_TOKEN_CLASS | ( | class | ) | get_token (class) |
Definition at line 190 of file p_globals.m.
Referenced by ck_lbl_construct_name(), create_kwd_text(), determine_stmt_type(), parse_actual_arg_spec(), parse_allocate_stmt(), parse_assert_directive(), parse_assign_stmt(), parse_assignment_stmt(), parse_attr_spec(), parse_attrs(), parse_auxiliary_dir(), parse_block_stmt(), parse_buffer_stmt(), parse_cache_align_name_list(), parse_cache_bypass_dir(), parse_cache_noalloc(), parse_call_stmt(), parse_case_stmt(), parse_common_dirs(), parse_common_stmt(), parse_copy_assumed_shape_dir(), parse_cpnt_dcl_stmt(), parse_cycle_stmt(), parse_data_imp_do(), parse_data_stmt(), parse_deallocate_stmt(), parse_decode_stmt(), parse_deref(), parse_derived_type_stmt(), parse_dir_directives(), parse_dir_var_list(), parse_directive_stmt(), parse_distribution_dir(), parse_do_stmt(), parse_doall_cmic(), parse_dollar_directives(), parse_doparallel_cmic(), parse_dummy_args(), parse_else_stmt(), parse_encode_stmt(), parse_end_stmt(), parse_entry_stmt(), parse_equivalence_stmt(), parse_exit_stmt(), parse_fill_align_symbol(), parse_forall(), parse_format_stmt(), parse_function_stmt(), parse_generic_spec(), parse_goto_stmt(), parse_if_stmt(), parse_ignore_tkr(), parse_implicit_stmt(), parse_inline_always_never(), parse_inquire_stmt(), parse_io_control_list(), parse_label_list(), parse_length_selector(), parse_lhs(), parse_mic_directives(), parse_module_stmt(), parse_mp_directive(), parse_mult_opnd(), parse_name_dir(), parse_namelist_stmt(), parse_nosideeffects_dir(), parse_nullify_stmt(), parse_only_spec(), parse_open_mp_clauses(), parse_open_mp_directives(), parse_operand(), parse_par_directives(), parse_parallel_cmic(), parse_parameter_stmt(), parse_permutation_mic(), parse_pointer_stmt(), parse_prefetch_ref(), parse_prefix_spec(), parse_print_stmt(), parse_prog_unit(), parse_program_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_reference_list(), parse_sgi_dir_inline(), parse_slash_common_dirs(), parse_star_directives(), parse_stmt_func_stmt(), parse_subroutine_stmt(), parse_symmetric_dir(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), parse_use_stmt(), parse_var_common_list(), parse_var_name_list(), parse_vfunction_dir(), parse_where_stmt(), parse_write_stmt(), and set_function_rslt().
#define MAX_BLK_LOOP_NUM 4095 |
Definition at line 51 of file p_globals.m.
Referenced by parse_do_stmt().
#define POP_BLK_STK blk_stk_idx--; |
Definition at line 193 of file p_globals.m.
Referenced by blk_match_err(), check_do_open_mp_nesting(), check_for_vestigial_task_blks(), end_blockdata(), end_contains(), end_critical_section_blk(), end_do_blk(), end_do_parallel_blk(), end_doacross_blk(), end_doall_blk(), end_forall_blk(), end_function(), end_guard_blk(), end_if_blk(), end_interface_blk(), end_interface_body(), end_internal_proc(), end_labeled_do(), end_module(), end_module_proc(), end_open_mp_critical_blk(), end_open_mp_do_blk(), end_open_mp_master_blk(), end_open_mp_ordered_blk(), end_open_mp_parallel_blk(), end_open_mp_parallel_do_blk(), end_open_mp_parallel_sections_blk(), end_open_mp_parallel_workshare_blk(), end_open_mp_section_blk(), end_open_mp_sections_blk(), end_open_mp_single_blk(), end_open_mp_workshare_blk(), end_parallel_blk(), end_parallel_case_blk(), end_pdo_blk(), end_program_unit(), end_psection_blk(), end_region_blk(), end_select_blk(), end_SGI_parallel_blk(), end_single_process_blk(), end_subroutine(), end_task_do_blk(), end_type_blk(), end_wait_blk(), end_where_blk(), move_blk_to_end(), parse_else_stmt(), parse_end_stmt(), parse_if_stmt(), pop_and_err_blk_stk(), remove_do_parallel_blk(), remove_pdo_blk(), and set_up_fake_dt_blk().
#define PUSH_BLK_STK | ( | NEW_BLK | ) |
TBL_REALLOC_CK (blk_stk, 1); \ CLEAR_TBL_NTRY(blk_stk, blk_stk_idx); \ CURR_BLK_DEF_LINE = stmt_start_line; \ CURR_BLK_DEF_COLUMN = stmt_start_col; \ CURR_BLK = NEW_BLK;
Definition at line 196 of file p_globals.m.
Referenced by blk_match_err(), init_parse_prog_unit(), move_blk_to_end(), parse_case_stmt(), parse_contains_stmt(), parse_derived_type_stmt(), parse_do_stmt(), parse_else_stmt(), parse_forall(), parse_if_stmt(), parse_interface_stmt(), parse_mic_directives(), parse_open_mp_directives(), parse_par_directives(), parse_select_stmt(), parse_star_directives(), parse_where_stmt(), set_up_fake_dt_blk(), and start_new_subpgm().
#define SET_DIRECTIVE_STATE | ( | REGION | ) | directive_state |= (1 << REGION) |
Definition at line 141 of file p_globals.m.
Referenced by parse_dollar_directives(), parse_mic_directives(), parse_open_mp_directives(), parse_par_directives(), and parse_star_directives().
#define STMT_CANT_BE_IN_BLK | ( | STMT, | |
BLKTYPE | |||
) | (((stmt_in_blk[STMT] >> BLKTYPE) & 1) != 0) |
Definition at line 130 of file p_globals.m.
Referenced by end_critical_section_blk(), end_do_parallel_blk(), end_guard_blk(), end_open_mp_critical_blk(), end_open_mp_do_blk(), end_open_mp_master_blk(), end_open_mp_ordered_blk(), end_open_mp_parallel_blk(), end_open_mp_parallel_do_blk(), end_open_mp_parallel_sections_blk(), end_open_mp_parallel_workshare_blk(), end_open_mp_section_blk(), end_open_mp_sections_blk(), end_open_mp_single_blk(), end_open_mp_workshare_blk(), end_parallel_blk(), end_parallel_case_blk(), end_pdo_blk(), end_psection_blk(), end_region_blk(), end_SGI_parallel_blk(), end_single_process_blk(), iss_blk_stk_err(), parse_attr_spec(), parse_attrs(), parse_common_stmt(), parse_contains_stmt(), parse_data_stmt(), parse_derived_type_stmt(), parse_end_stmt(), parse_entry_stmt(), parse_equivalence_stmt(), parse_implicit_stmt(), parse_interface_stmt(), parse_namelist_stmt(), parse_parameter_stmt(), parse_pointer_stmt(), parse_save_stmt(), parse_stmt_func_stmt(), parse_type_dcl_stmt(), and parse_use_stmt().
#define STMT_LEGAL_IN_BLK | ( | STMT, | |
BLKTYPE | |||
) | (((stmt_in_blk[STMT] >> BLKTYPE) & 1) == 0) |
Definition at line 135 of file p_globals.m.
Referenced by blk_match_err(), iss_blk_stk_err(), parse_case_stmt(), and parse_else_stmt().
#define STMT_OUT_OF_ORDER | ( | CNTXT, | |
STMT | |||
) | (CNTXT > stmt_top_cat[STMT]) |
Definition at line 138 of file p_globals.m.
Referenced by parse_access_stmt(), parse_attrs(), parse_common_stmt(), parse_data_stmt(), parse_derived_type_stmt(), parse_equivalence_stmt(), parse_implicit_stmt(), parse_interface_stmt(), parse_namelist_stmt(), parse_parameter_stmt(), parse_pointer_stmt(), parse_save_stmt(), parse_stmt_func_stmt(), parse_type_dcl_stmt(), and parse_use_stmt().