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

fixed omp direcitves processing

Browse Source
This commit is contained in:
ALEXks
2023-11-07 14:54:54 +03:00
parent 5b2cae9070
commit 5b4071b237
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
sapfor/experts/Sapfor_2017/_src/DirectiveProcessing/directive_parser.cpp
View File

@@ -643,17 +643,20 @@ vector<OmpDir> parseOmpDirs(void* stIn, const set<string> &globalPriv, bool forD
SgStatement* st = (SgStatement*)stIn; SgStatement* st = (SgStatement*)stIn;
vector<OmpDir> resultAll; vector<OmpDir> resultAll;
char* lineS = st->comments(); const char* lineS = st->comments();
if (!lineS) if (!lineS)
return resultAll; return resultAll;
vector<string> split; string comment(lineS);
splitString(lineS, '\n', split); convertToLower(comment);
vector<string> split;
splitString(comment, '\n', split);
for (int z = split.size() - 1; z >= 0; z--) for (int z = split.size() - 1; z >= 0; z--)
{ {
string line = split[z]; string line = split[z];
convertToLower(line);
if (line.substr(0, 6) == "!$omp&") if (line.substr(0, 6) == "!$omp&")
{ {
if (z - 1 < 0) if (z - 1 < 0)

2
sapfor/experts/Sapfor_2017/_src/Utils/version.h
View File

@@ -1,3 +1,3 @@
#pragma once #pragma once
#define VERSION_SPF "2235" #define VERSION_SPF "2236"