Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
Go to the source code of this file.
Functions | |
void | INITO2F_translate (TOKEN_BUFFER tokens, INITO_IDX inito) |
void | PARAMETER2F_translate (TOKEN_BUFFER tokens, INITO_IDX inito) |
Variables | |
TOKEN_BUFFER | Data_Stmt_Tokens |
void INITO2F_translate | ( | TOKEN_BUFFER | tokens, |
INITO_IDX | inito | ||
) |
Definition at line 1384 of file init2f.cxx.
References Append_And_Reclaim_Token_List(), Append_F77_Indented_Newline(), Append_Token_Special(), Append_Token_String(), ASSERT_DBG_FATAL, DIAG_W2F_UNEXPECTED_SYMBOL, FREE, INIT2F_Get_Initv_Array(), INIT2F_translate(), INITO_st(), New_Token_Buffer(), NULL, ST_type(), Stab_Is_Common_Block(), Stab_Is_Equivalence_Block(), and TY_Is_Structured().
Referenced by write_st::operator()(), and ST2F_decl_var().
void PARAMETER2F_translate | ( | TOKEN_BUFFER | tokens, |
INITO_IDX | inito | ||
) |
Definition at line 1440 of file init2f.cxx.
References Append_And_Reclaim_Token_List(), Append_F77_Indented_Newline(), Append_Token_Special(), Append_Token_String(), ASSERT_DBG_FATAL, DIAG_W2F_UNEXPECTED_SYMBOL, FREE, INIT2F_Get_Initv_Array(), INIT2F_translate(), INITO_st(), New_Token_Buffer(), NULL, ST_name(), ST_type(), Stab_Is_Common_Block(), Stab_Is_Equivalence_Block(), TY_Is_Structured(), and W2CF_Symtab_Nameof_Ty().
Referenced by ST2F_decl_var().