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