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

fixed inliner

Browse Source
This commit is contained in:
ALEXks
2023-11-28 12:58:22 +03:00
parent bdde0df77f
commit 0c29d54f83
12 changed files with 75 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -338,7 +338,7 @@ public:
};
class SgExpression
{
{
public:
PTR_LLND thellnd;
// generic expression class.

10
dvm/fdvm/trunk/fdvm/acc_f2c.cpp
View File

@@ -1465,7 +1465,7 @@ void convertExpr(SgExpression *expr, SgExpression* &retExp)
{
printf(" [EXPR ERROR: %s, line %d, user line %d] unsupported variant of func call with name \"%s\"\n", __FILE__, __LINE__, first_do_par->lineNumber(), name);
if (unSupportedVars.size() != 0)
Error("Internal inconsistency in F->C onvertation", "", 654, first_do_par);
Error("Internal inconsistency in F->C convertation", "", 654, first_do_par);
}
}
}
@@ -1706,7 +1706,7 @@ static SgExpression* splitReductionForAtomic(SgExpression* lhs, SgExpression* rh
SgExpression* args = NULL;
if (!lhs || !rhs)
{
Error("Internal inconsistency in F->C onvertation", "", 654, first_do_par);
Error("Internal inconsistency in F->C convertation", "", 654, first_do_par);
return NULL;
}
@@ -2814,7 +2814,7 @@ static bool convertStmt(SgStatement* &st, pair<SgStatement*, SgStatement*> &retS
{
printf(" [STMT ERROR: %s, line %d, user line %d] unsupported variant of node: %s\n", __FILE__, __LINE__, first_do_par->lineNumber(), tag[st->variant()]);
if (unSupportedVars.size() != 0)
Error("Internal inconsistency in F->C onvertation", "", 654, first_do_par);
Error("Internal inconsistency in F->C convertation", "", 654, first_do_par);
}
}
@@ -3224,7 +3224,7 @@ void Translate_Fortran_To_C(SgStatement *Stmt)
for (set<int>::iterator i = unSupportedVars.begin(); i != unSupportedVars.end(); i++)
printf(" [EXPR ERROR: %s, line %d, %d] unsupported variant of node: %s\n", __FILE__, __LINE__, first_do_par->lineNumber(), tag[*i]);
if (unSupportedVars.size() != 0)
Error("Internal inconsistency in F->C onvertation", "", 654, first_do_par);
Error("Internal inconsistency in F->C convertation", "", 654, first_do_par);
correctLabelsUse(Stmt, Stmt->lastExecutable());
@@ -3305,7 +3305,7 @@ void Translate_Fortran_To_C(SgStatement *firstStmt, SgStatement *lastStmt, vecto
for (set<int>::iterator i = unSupportedVars.begin(); i != unSupportedVars.end(); i++)
printf(" [EXPR ERROR: %s, line %d, %d] unsupported variant of node: %s\n", __FILE__, __LINE__, first_do_par->lineNumber(), tag[*i]);
if (unSupportedVars.size() != 0)
Error("Internal inconsistency in F->C onvertation", "", 654, first_do_par);
Error("Internal inconsistency in F->C convertation", "", 654, first_do_par);
correctLabelsUse(firstStmt->lexNext(), lastStmt);