Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Files
a4c8785e666c7ef79a816897b6877a5adcce41aa
SAPFOR/Sapfor/_src/ParallelizationRegions/expand_extract_reg.cpp
Alexander 6a4040be3e moved
2025-03-12 12:37:19 +03:00

488 lines
18 KiB
C++
Raw Blame History

#include "../Utils/leak_detector.h"
#include <map>
#include <string>
#include <vector>
#include "ParRegions_func.h"
#include "expand_extract_reg.h"
using std::map;
using std::pair;
using std::vector;
using std::string;
using std::to_string;
using std::make_pair;
static inline void insertParRegDir(SgStatement *start, const string &regName)
{
// !SPF PARALLEL_REG regName
SgStatement *regSt = new SgStatement(SPF_PARALLEL_REG_DIR);
checkNull(start->getFile(), convertFileName(__FILE__).c_str(), __LINE__);
SgSymbol *regSymb = findSymbolOrCreate(start->getFile(), regName.c_str());
regSt->setSymbol(*regSymb);
start->insertStmtBefore(*regSt, *start->controlParent());
}
static inline void insertEndParReg(SgStatement *end)
{
// !SPF END PARALLEL_REG
SgStatement *regSt = new SgStatement(SPF_END_PARALLEL_REG_DIR);
SgStatement *next = end->lexNext();
checkNull(next, convertFileName(__FILE__).c_str(), __LINE__);
next->insertStmtBefore(*regSt, *next->controlParent());
}
static inline void insertParRegDirs(SgStatement *start, SgStatement *end, const string &regName)
{
insertParRegDir(start, regName);
insertEndParReg(end);
}
static bool checkIfLineIsImplicit(const ParallelRegion *reg, const string &fileName, const int line)
{
if (reg && reg->GetName() != "DEFAULT")
{
auto regLines = reg->GetLinesByLine(fileName, line);
if (regLines && regLines->isImplicit())
return true; // error
}
return false;
}
static bool hasOwnControlParent(SgStatement *start, SgStatement *end)
{
if (start == end)
return true;
if (!end->controlParent())
printInternalError(convertFileName(__FILE__).c_str(), __LINE__);
return (end->variant() != CONTROL_END && start->controlParent() == end->controlParent() ||
end->variant() == CONTROL_END && start->controlParent() == end->controlParent()->controlParent());
}
static bool isNotComposit(SgStatement *st)
{
if (!st)
return true;
return (st->lastNodeOfStmt() == st);
}
bool expandExtractReg(const string &fileName,
int startLine,
int endLine,
const vector<ParallelRegion*> &regions,
vector<Messages> &messagesForFile,
const bool toDelete)
{
bool error = false;
if (SgFile::switchToFile(fileName) != -1)
{
SgStatement *begin = SgStatement::getStatementByFileAndLine(fileName, startLine);
SgStatement *end = SgStatement::getStatementByFileAndLine(fileName, endLine);
int lastLine = -1;
for (auto st = current_file->firstStatement(); st; st = st->lexNext())
lastLine = st->lineNumber();
for (; !begin && startLine <= lastLine;)
begin = SgStatement::getStatementByFileAndLine(fileName, ++startLine);
for (; !end && endLine > 0;)
end = SgStatement::getStatementByFileAndLine(fileName, --endLine);
// check user lines
// 2. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> N1 <20> N2 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
int errorLine;
bool localError = false;
if (!(isSgExecutableStatement(end) || end->variant() == ENTRY_STAT))
{
localError = true;
errorLine = endLine;
}
if (!(isSgExecutableStatement(begin) || begin->variant() == ENTRY_STAT))
{
localError = true;
errorLine = startLine;
}
if (localError)
{
__spf_print(1, "bad directive position on line %d: it can be placed only after all DATA statements\n", errorLine);
std::wstring bufwE, bufwR;
__spf_printToLongBuf(bufwE, L"bad directive position: it can be placed only after all DATA statements");
__spf_printToLongBuf(bufwR, R12);
messagesForFile.push_back(Messages(ERROR, errorLine, bufwR, bufwE, 1001));
error = true;
}
// 1. N1 <= N2
if (startLine > endLine)
{
__spf_print(1, "bad lines position: end line %d must be greater or equel begin line %d\n", endLine, startLine);
std::wstring bufwE, bufwR;
__spf_printToLongBuf(bufwE, L"bad lines position: end line %d must be greater or equel begin line %d", endLine, startLine);
__spf_printToLongBuf(bufwR, R13);
messagesForFile.push_back(Messages(ERROR, endLine, bufwR, bufwE, 1001));
error = true;
}
// 2. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> N1 <20> N2 <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
auto beginReg = getRegionByLine(regions, fileName, startLine);
auto endReg = getRegionByLine(regions, fileName, endLine);
if (!toDelete && beginReg && endReg && beginReg != endReg)
{
__spf_print(1, "bad lines position: begin and end lines can not be placed at differect regions\n");
std::wstring bufwE, bufwR;
__spf_printToLongBuf(bufwE, L"bad lines position: begin and end lines can not be placed at differect regions");
__spf_printToLongBuf(bufwR, R14);
messagesForFile.push_back(Messages(ERROR, endLine, bufwR, bufwE, 1001));
error = true;
}
localError = false;
if (checkIfLineIsImplicit(endReg, fileName, endLine))
{
localError = true;
errorLine = endLine;
}
if (checkIfLineIsImplicit(beginReg, fileName, startLine))
{
localError = true;
errorLine = startLine;
}
if (localError)
{
__spf_print(1, "bad lines position on line %d: begin and end lines can not be placed at region implicit lines\n", errorLine);
std::wstring bufwE, bufwR;
__spf_printToLongBuf(bufwE, L"bad lines position: begin and end lines can not be placed at region implicit lines");
__spf_printToLongBuf(bufwR, R15);
messagesForFile.push_back(Messages(ERROR, errorLine, bufwR, bufwE, 1001));
error = true;
}
// X. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
SgStatement *beginFunc = begin, *endFunc = end;
while (!isSgProgHedrStmt(beginFunc))
beginFunc = beginFunc->controlParent();
while (!isSgProgHedrStmt(endFunc))
endFunc = endFunc->controlParent();
if (beginFunc != endFunc)
{
__spf_print(1, "bad lines position: begin and end lines can not be placed at different functions\n");
std::wstring bufwE, bufwR;
__spf_printToLongBuf(bufwE, L"bad lines position: begin and end lines can not be placed at different functions");
__spf_printToLongBuf(bufwR, R16);
messagesForFile.push_back(Messages(ERROR, errorLine, bufwR, bufwE, 1001));
error = true;
}
// 3. <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [N1,N2] <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
const ParallelRegionLines *beginLines = NULL, *endLines = NULL;
map<const ParallelRegion*, vector<const ParallelRegionLines*>> internalLines;
for (auto &reg : regions)
{
auto regLines = reg->GetLines(fileName);
for (auto &lines : *regLines)
{
if (!lines.isImplicit())
{
/*
if (startLine >= lines.lines.first && startLine <= lines.lines.second)
beginLines = &lines;
if (endLine >= lines.lines.first && endLine <= lines.lines.second)
endLines = &lines;
*/
if (startLine < lines.lines.first && endLine > lines.lines.second)
{
auto it = internalLines.find(reg);
if (it == internalLines.end())
it = internalLines.insert(it, make_pair(reg, vector<const ParallelRegionLines*>()));
it->second.push_back(&lines);
}
}
}
}
if (!toDelete && internalLines.size() > 1)
{
__spf_print(1, "bad lines position on line %d: begin and end lines can not include fragments of different regions at extending operation\n", startLine);
std::wstring bufwE, bufwR;
__spf_printToLongBuf(bufwE, L"bad lines position: begin and end lines can not include fragments of different regions at extending operation");
__spf_printToLongBuf(bufwR, R17);
messagesForFile.push_back(Messages(ERROR, startLine, bufwR, bufwE, 1001));
error = true;
}
// use cases
if (beginReg && beginReg->GetName() != "DEFAULT")
beginLines = beginReg->GetLinesByLine(fileName, startLine);
if (endReg && endReg->GetName() != "DEFAULT")
endLines = endReg->GetLinesByLine(fileName, endLine);
// delete all internal fragments
for (auto &regLines : internalLines)
{
for (auto &lines : regLines.second)
{
lines->stats.first->GetOriginal()->lexPrev()->deleteStmt();
lines->stats.second->GetOriginal()->lexNext()->deleteStmt();
}
}
if (error)
return true;
localError = false;
if (beginLines && !endLines)
{
if (!toDelete)
{
if (hasOwnControlParent(beginLines->stats.first->GetOriginal(), end))
{
insertEndParReg(end);
beginLines->stats.second->GetOriginal()->lexNext()->deleteStmt();
}
else
{
errorLine = endLine;
localError = true;
}
}
else
{
if (hasOwnControlParent(beginLines->stats.first->GetOriginal(), begin) && begin->variant() != CONTROL_END)
{
if (startLine == beginLines->lines.first)
beginLines->stats.first->GetOriginal()->lexPrev()->deleteStmt();
else
insertEndParReg(begin->lexPrev());
beginLines->stats.second->GetOriginal()->lexNext()->deleteStmt();
}
else
{
errorLine = startLine;
localError = true;
}
}
}
else if (endLines && !beginLines)
{
if (!toDelete)
{
if (hasOwnControlParent(begin, endLines->stats.first->GetOriginal()))
{
insertParRegDir(begin, endReg->GetName());
endLines->stats.first->GetOriginal()->lexPrev()->deleteStmt();
}
else
{
errorLine = startLine;
localError = true;
}
}
else
{
if (hasOwnControlParent(endLines->stats.first->GetOriginal(), end) && isNotComposit(end))
{
if (endLine == endLines->lines.second)
endLines->stats.second->GetOriginal()->lexNext()->deleteStmt();
else
insertParRegDir(end->lexNext(), endReg->GetName());
endLines->stats.first->GetOriginal()->lexPrev()->deleteStmt();
}
else
{
errorLine = endLine;
localError = true;
}
}
}
else if (!beginLines && !endLines)
{
if (!toDelete)
{
string regName;
// TODO: create correct new region name
if (internalLines.size())
regName = internalLines.begin()->first->GetName();
else
regName = "reg" + to_string(regions.size());
if (hasOwnControlParent(begin, end))
insertParRegDirs(begin, end, regName);
else
{
__spf_print(1, "bad lines %d-%d position: expected lines with the same scope for creating region fragment\n", startLine, endLine);
std::wstring bufwE, bufwR;
__spf_printToLongBuf(bufwE, L"bad lines position: expected lines with the same scope for creating region fragment");
__spf_printToLongBuf(bufwR, R18);
messagesForFile.push_back(Messages(ERROR, endLine, bufwR, bufwE, 1001));
error = true;
}
}
}
else if (beginLines && endLines)
{
if (!toDelete)
{
if (beginLines != endLines && hasOwnControlParent(beginLines->stats.first->GetOriginal(), endLines->stats.first->GetOriginal()))
{
beginLines->stats.second->GetOriginal()->lexNext()->deleteStmt();
endLines->stats.first->GetOriginal()->lexPrev()->deleteStmt();
}
else
{
__spf_print(1, "bad lines %d-%d position: can not extend region fragments with different scope\n", startLine, endLine);
std::wstring bufwE, bufwR;
__spf_printToLongBuf(bufwE, L"bad lines %d-%d position: can not extend region fragments with different scope", startLine, endLine);
__spf_printToLongBuf(bufwR, R19, startLine, endLine);
messagesForFile.push_back(Messages(ERROR, endLine, bufwR, bufwE, 1001));
error = true;
}
}
else
{
int errorLine1, errorLine2;
localError = false;
/*
if (beginLines == endLines && !hasOwnControlParent(begin, end))
{
localError = true;
errorLine = startLine;
errorLine1 = startLine;
errorLine2 = endLine;
}
*/
if (hasOwnControlParent(beginLines->stats.first->GetOriginal(), begin) && begin->variant() != CONTROL_END)
{
if (startLine == beginLines->lines.first)
beginLines->stats.first->GetOriginal()->lexPrev()->deleteStmt();
else
insertEndParReg(begin->lexPrev());
}
else
{
localError = true;
errorLine = startLine;
errorLine1 = beginLines->lines.first;
errorLine2 = startLine;
}
if (hasOwnControlParent(endLines->stats.first->GetOriginal(), end) && isNotComposit(end))
{
if (endLine == endLines->lines.second)
endLines->stats.second->GetOriginal()->lexNext()->deleteStmt();
else
insertParRegDir(end->lexNext(), endReg->GetName());
}
else
{
localError = true;
errorLine = endLine;
errorLine1 = endLine;
errorLine2 = endLines->lines.second;
}
if (beginLines != endLines)
{
beginLines->stats.second->GetOriginal()->lexNext()->deleteStmt();
endLines->stats.first->GetOriginal()->lexPrev()->deleteStmt();
}
/*
if (localError)
{
__spf_print(1, "bad lines %d-%d position: expected line with the same scope for extracting region fragment\n", errorLine1, errorLine2);
std::wstring bufw;
__spf_printToLongBuf(bufw, L"bad lines position: expected line with the same scope for extracting region fragment");
messagesForFile.push_back(Messages(ERROR, errorLine, bufw, 1001));
error = true;
}
*/
}
}
if (localError)
{
__spf_print(1, "bad lines position: expected lines with the same control parent on line %d\n", errorLine);
std::wstring bufwE, bufwR;
__spf_printToLongBuf(bufwE, L"bad lines position: expected lines with the same control parent");
__spf_printToLongBuf(bufwR, R20);
messagesForFile.push_back(Messages(ERROR, errorLine, bufwR, bufwE, 1001));
error = true;
}
// TODO: check: delete all possible empty fragments
/*
SgStatement *parStart = NULL;
SgStatement *parEnd = NULL;
while (begin->variant() != PROG_HEDR && begin->variant() != PROC_HEDR && begin->variant() != FUNC_HEDR)
begin = begin->controlParent();
end = begin->lastNodeOfStmt();
for (auto st = begin; st != end; st = st->lexNext())
{
if (st->variant() == SPF_PARALLEL_REG_DIR)
parStart = st;
if (st->variant() == SPF_END_PARALLEL_REG_DIR)
{
parEnd = st;
if (parStart && parStart->lexNext() == parEnd)
{
parStart->deleteStmt();
parEnd->deleteStmt();
parStart = NULL;
parEnd = NULL;
}
}
}
*/
}
else
printInternalError(convertFileName(__FILE__).c_str(), __LINE__);
return error;
}
Reference in New Issue View Git Blame Copy Permalink