Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
Go to the source code of this file.
Defines | |
#define | ST2F_FIRST_PARAM_IDX(funtype) |
Functions | |
void | ST2F_initialize () |
void | ST2F_finalize () |
void | ST2F_use_translate (TOKEN_BUFFER tokens, ST *st) |
void | ST2F_decl_translate (TOKEN_BUFFER tokens, const ST *st) |
void | ST2F_deref_translate (TOKEN_BUFFER tokens, ST *st) |
void | ReorderParms (ST **parms, INT32 num_params) |
void | ST2F_func_header (TOKEN_BUFFER tokens, ST *st, ST **params, INT32 num_parms, BOOL is_altentry) |
void | ST2F_Use_Preg (TOKEN_BUFFER tokens, TY_IDX preg_ty, PREG_IDX preg_idx) |
void | ST2F_Declare_Tempvar (TY_IDX ty, UINT idx) |
void | ST2F_output_keyword (TOKEN_BUFFER tokens, ST *st) |
bool | haveCommonBlockName (ST *st) |
#define ST2F_FIRST_PARAM_IDX | ( | funtype | ) |
(W2X_Unparse_Target->Func_Return_To_Param(funtype)? \ (W2X_Unparse_Target->Func_Return_Character(funtype)? 2 : 1) : 0)
Definition at line 120 of file st2f.h.
Referenced by ST2F_func_header(), WN2F_call(), WN2F_interface_blk(), and WN2F_translate_purple_main().
bool haveCommonBlockName | ( | ST * | st | ) |
Definition at line 548 of file st2f.cxx.
References NULL, and ST_name().
Referenced by ST2F_use_var(), and WN2F_Exit_PU_Block().
void ReorderParms | ( | ST ** | parms, |
INT32 | num_params | ||
) |
Definition at line 771 of file st2f.cxx.
References ARB_const_lbnd(), ARB_const_ubnd(), ARB_dimension(), ARB_empty_lbnd(), ARB_empty_ubnd(), ARB_lbnd_var(), ARB_ubnd_var(), GetStSet(), KIND_ARRAY, KIND_POINTER, ST::st_idx, ST_is_temp_var(), St_Table, ST_type(), TY_arb(), TY_is_character(), TY_is_f90_deferred_shape(), TY_kind(), TY_pointed(), and Ty_Table.
Referenced by ST2F_func_header(), and WN2F_interface_blk().
void ST2F_decl_translate | ( | TOKEN_BUFFER | tokens, |
const ST * | st | ||
) |
Definition at line 733 of file st2f.cxx.
References ST2F_Decl_Handler, and ST_sym_class().
Referenced by write_st::operator()(), WN2F_emit_commons::operator()(), ST2F_func_header(), W2F_def_ST(), WN2F_Append_Symtab_Consts(), WN2F_interface_blk(), and WN2F_translate_purple_main().
void ST2F_Declare_Tempvar | ( | TY_IDX | ty, |
UINT | idx | ||
) |
Definition at line 1201 of file st2f.cxx.
References Append_And_Reclaim_Token_List(), Append_F77_Indented_Newline(), Append_Token_String(), Current_Indentation(), Current_scope, New_Token_Buffer(), NULL, Pointer_Mtype, PU_is_nested_func(), Pu_Table, PUinfo_local_decls, PUinfo_local_decls_indent, Scope_tab, Set_Current_Indentation(), ST_is_in_module(), ST_pu(), Stab_Mtype_To_Ty(), TY2F_translate(), TY_Is_Pointer(), and W2CF_Symtab_Nameof_Tempvar().
Referenced by INIT2F_Implied_DoLoop(), WN2F_do_while(), WN2F_Function_Call_Lhs(), WN2F_pstid(), and WN2F_stid().
void ST2F_deref_translate | ( | TOKEN_BUFFER | tokens, |
ST * | st | ||
) |
Definition at line 716 of file st2f.cxx.
References Append_Token_String(), ASSERT_DBG_FATAL, CLASS_VAR, DIAG_W2F_UNEXPECTED_SYMCLASS, Set_BE_ST_w2fc_referenced(), ST_sym_class(), ST_type(), Stab_Is_Based_At_Common_Or_Equivalence(), TY_Is_Pointer(), and W2CF_Symtab_Nameof_St_Pointee().
Referenced by WN2F_Offset_Symref().
void ST2F_finalize | ( | ) |
Definition at line 704 of file st2f.cxx.
Referenced by W2F_Fini().
void ST2F_func_header | ( | TOKEN_BUFFER | tokens, |
ST * | st, | ||
ST ** | params, | ||
INT32 | num_parms, | ||
BOOL | is_altentry | ||
) |
Definition at line 895 of file st2f.cxx.
References Append_And_Reclaim_Token_List(), Append_F77_Indented_Newline(), Append_Token_Special(), Append_Token_String(), ASSERT_DBG_FATAL, DIAG_W2F_UNEXPECTED_SYMBOL, FALSE, Unparse_Target::Func_Return_Type(), Get_Current_PU(), KIND_ARRAY, KIND_FUNCTION, KIND_VOID, MTYPE_B, New_Token_Buffer(), NULL, OPR_USE, Prepend_Token_String(), PU_Body, PU_is_mainpu(), PU_is_nested_func(), PU_recursive(), Pu_Table, ReorderParms(), ST2F_decl_translate(), ST2F_FIRST_PARAM_IDX, ST_is_block_data(), ST_is_in_module(), ST_is_intent_in_argument(), ST_is_intent_out_argument(), ST_is_optional_argument(), ST_is_return_var(), ST_is_value_parm(), ST_pu(), ST_pu_type(), Stab_Mtype_To_Ty(), STAB_PARAM_HAS_IMPLICIT_LENGTH(), TRUE, TY2F_translate(), TY_AR_etype(), TY_is_character(), TY_Is_Pointer(), TY_kind(), TY_mtype(), W2CF_Symtab_Nameof_St(), W2X_Unparse_Target, wn, WN_first(), WN_kid(), WN_kid_count(), WN_next(), WN_operator(), WN_rtype(), and WN_st().
Referenced by WN2F_Entry_Point().
void ST2F_initialize | ( | ) |
Definition at line 697 of file st2f.cxx.
Referenced by W2F_Init().
void ST2F_output_keyword | ( | TOKEN_BUFFER | tokens, |
ST * | st | ||
) |
Definition at line 1279 of file st2f.cxx.
References Append_Token_String(), STC_val(), Targ_String_Address(), and Targ_String_Length().
Referenced by WN2F_call(), and WN2F_parm().
void ST2F_Use_Preg | ( | TOKEN_BUFFER | tokens, |
TY_IDX | preg_ty, | ||
PREG_IDX | preg_idx | ||
) |
Definition at line 1178 of file st2f.cxx.
References Append_Token_String(), PUinfo_Is_Preg_Declared(), PUinfo_Preg_Type(), PUinfo_Set_Preg_Declared(), ST2F_Define_Preg(), and W2CF_Symtab_Nameof_Preg().
Referenced by Append_A_Clause_Symbol(), Append_Implicit_Locals(), Append_Nest_Clauses(), W2F_Translate_Stid_Lhs(), WN2F_Function_Call_Lhs(), WN2F_ldid(), WN2F_Load_Return_Reg(), WN2F_pstid(), WN2F_return(), and WN2F_stid().
void ST2F_use_translate | ( | TOKEN_BUFFER | tokens, |
ST * | st | ||
) |
Definition at line 710 of file st2f.cxx.
References ST2F_Use_Handler, and ST_sym_class().
Referenced by WN2F_Block(), WN2F_call(), WN2F_Callsite_Directives(), WN2F_casegoto(), WN2F_Function_Call_Lhs(), WN2F_Offset_Symref(), WN2F_process_pragma(), and WN2F_return().