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

ignore omp directived with -spf flag

Browse Source
This commit is contained in:
ALEXks
2023-10-19 16:40:55 +03:00
parent 963acc8982
commit d15d0454d5
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
dvm/fdvm/trunk/parser/lexfdvm.c
View File

@@ -1177,7 +1177,7 @@ top:
is_directive_omp = 1; /*OMP*/ is_directive_omp = 1; /*OMP*/
--lines_returned; /*OMP*/ --lines_returned; /*OMP*/
goto top;/*OMP*/ goto top;/*OMP*/
} else { } else if(SAPFOR==0) {
warn_line("Ignoring line with OpenMP conditional compilation sentinel ($)", 664, lines_returned); warn_line("Ignoring line with OpenMP conditional compilation sentinel ($)", 664, lines_returned);
prefix[1] ='!'; prefix[1] ='!';
} }
@@ -1203,7 +1203,7 @@ top:
is_directive_omp = 1; /*OMP*/ is_directive_omp = 1; /*OMP*/
-- lines_returned; /*OMP*/ -- lines_returned; /*OMP*/
goto body; /*OMP*/ goto body; /*OMP*/
} else { } else if(SAPFOR==0) {
warn_line("Ignoring OpenMP derective", 664, lines_returned); warn_line("Ignoring OpenMP derective", 664, lines_returned);
prefix[1] = '!'; prefix[1] = '!';
} }
@@ -1521,7 +1521,7 @@ top:
is_directive_omp = 1; /*OMP*/ is_directive_omp = 1; /*OMP*/
--lines_returned; /*OMP*/ --lines_returned; /*OMP*/
goto top;/*OMP*/ goto top;/*OMP*/
} else { /*OMP*/ } else if(SAPFOR==0) { /*OMP*/
warn_line("Ignoring line with OpenMP conditional compilation sentinel ($)", 664, lines_returned); /*OMP*/ warn_line("Ignoring line with OpenMP conditional compilation sentinel ($)", 664, lines_returned); /*OMP*/
prefix[1] ='!'; /*OMP*/ prefix[1] ='!'; /*OMP*/
} }
@@ -1543,7 +1543,7 @@ top:
is_directive_hpf = 1; /*OMP*/ is_directive_hpf = 1; /*OMP*/
is_directive_omp = 1; /*OMP podd*/ is_directive_omp = 1; /*OMP podd*/
goto body; /*OMP*/ goto body; /*OMP*/
} else { /*OMP*/ } else if(SAPFOR==0) { /*OMP*/
warn_line("Ignoring OpenMP derective", 664, lines_returned); /*OMP*/ warn_line("Ignoring OpenMP derective", 664, lines_returned); /*OMP*/
prefix[1] = '!'; /*OMP*/ prefix[1] = '!'; /*OMP*/
} /*OMP*/ } /*OMP*/

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

@@ -1,3 +1,3 @@
#pragma once #pragma once
#define VERSION_SPF "2227" #define VERSION_SPF "2228"