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

fixed privates analysis

Browse Source
This commit is contained in:
ALEXks
2023-10-27 20:12:02 +03:00
parent 91788bd09e
commit ec2975a2ed
4 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -208,7 +208,7 @@ static void addInListIfNeed(SgSymbol *tmp, int type, reduction_operation_list *t
while (dimList)
{
allArraySub.push(dimList->lhs());
allArraySubConv.push(make_pair(LowerShiftForArrays(tmp, rank), UpperShiftForArrays(tmp, rank)));
allArraySubConv.push(make_pair(LowerShiftForArrays(tmp, rank, type), UpperShiftForArrays(tmp, rank)));
++rank;
dimList = dimList->rhs();
}
@@ -222,7 +222,7 @@ static void addInListIfNeed(SgSymbol *tmp, int type, reduction_operation_list *t
bool ddot = false;
if (ex->variant() == DDOT && ex->lhs() || IS_ALLOCATABLE(tmp))
ddot = true;
t.correctExp.push_back(LowerShiftForArrays(tmp, rank));
t.correctExp.push_back(LowerShiftForArrays(tmp, rank, type));
// swap array's dimentionss
if (inNewVars(tmp->identifier()))