Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

addede new pass, improved IR

Browse Source
This commit is contained in:
ALEXks
2023-12-02 10:20:13 +03:00
parent f5bc37c845
commit d48a73043a
9 changed files with 42 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
dvm/fdvm/trunk/Sage/Sage++/libSage++.cpp
View File

@@ -2218,12 +2218,12 @@ SgStatement* SgStatement::nextInChildList()
return x;
}
std::string SgStatement::sunparse()
std::string SgStatement::sunparse(int lang)
{
#ifdef __SPF
checkConsistence();
#endif
return std::string(unparse());
return std::string(unparse(lang));
}

8
dvm/fdvm/trunk/Sage/lib/include/libSage++.h
View File

@@ -243,9 +243,9 @@ public:
inline void replaceSymbBySymb(SgSymbol &symb, SgSymbol &newsymb);
inline void replaceSymbBySymbSameName(SgSymbol &symb, SgSymbol &newsymb);
inline void replaceTypeInStmt(SgType &old, SgType &newtype);
char* unparse();
char* unparse(int lang = 2); // FORTRAN_LANG
inline void unparsestdout();
std::string sunparse(); //unparsing functions.
std::string sunparse(int lang = 2); // FORTRAN_LANG
inline char *comments(); //preceding comment lines.
void addComment(const char *com);
void addComment(char *com);
@@ -3679,12 +3679,12 @@ inline SgStatement *SgStatement::getScopeForDeclare()
}
//Kataev 07.03.2013
inline char* SgStatement::unparse()
inline char* SgStatement::unparse(int lang)
{
#ifdef __SPF
checkConsistence();
#endif
return UnparseBif_Char(thebif, 2); //2 - fortran language
return UnparseBif_Char(thebif, lang); //2 - fortran language
}
inline void SgStatement::unparsestdout()