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

ArrayAnalysis: consider case of IO_PRIV array from module

Browse Source
This commit is contained in:
Mikhail Kocharmin
2025-09-10 22:13:31 +03:00
parent f90142c8af
commit 320a112bef
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/Distribution/ArrayAnalysis.cpp
View File

@@ -270,6 +270,12 @@ static void findArrayRefs (SgExpression* ex, SgStatement* st, string fName, int
fillPrivatesFromComment(new Statement(prev), privatesS); fillPrivatesFromComment(new Statement(prev), privatesS);
if (privatesS.find(symb->identifier()) != privatesS.end()) if (privatesS.find(symb->identifier()) != privatesS.end())
itNew->second.first->SetDistributeFlag(DIST::SPF_PRIV); itNew->second.first->SetDistributeFlag(DIST::SPF_PRIV);
if (!(itNew->second.first->IsNotDistribute()) &&
deprecatedByIO.find(symb->identifier()) != deprecatedByIO.end())
{
itNew->second.first->SetDistributeFlag(DIST::IO_PRIV);
}
} }
else else
itNew->second.first->SetDistributeFlag(DIST::SPF_PRIV); itNew->second.first->SetDistributeFlag(DIST::SPF_PRIV);
@@ -648,6 +654,9 @@ int getAllDeclaredArrays(SgFile* file, map<tuple<int, string, string>, pair<DIST
} }
} }
for (const auto& n : deprecatedByIO)
__spf_print(1, "depr io: %s\n", n.c_str());
while (st != lastNode) while (st != lastNode)
{ {
if (st->variant() == CONTAINS_STMT) if (st->variant() == CONTAINS_STMT)