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

fixed parser

Browse Source
This commit is contained in:
ALEXks
2023-10-11 20:12:31 +03:00
parent 8d6661fa9d
commit 963acc8982
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1168,7 +1168,7 @@ top:
break;
else
*p = c;
if ((prefix[1]=='$') && (prefix[2]==' ')) { /*OMP*/
if ((prefix[1]=='$') && ((prefix[2]==' ') || isdigit(prefix[2]))) { /*OMP*/
if(OMP_program==1 ) {
for (p = prefix; p < prefixend; p++) {/*OMP*/
*p = ' ';/*OMP*/
@@ -1512,7 +1512,7 @@ top:
for (; p < prefixend; p++)
*p = ' ';
if ((prefix[1]=='$') && (prefix[2]!='O') && (prefix[2]!='o')) { /*OMP*/
if ((prefix[1]=='$') && ((prefix[2]==' ') || (prefix[2]=='&'))) { /*OMP*/
if (OMP_program == 1) { /*OMP*/
for (p = prefix; p < prefixend; p++) {/*OMP*/
*p = ' ';/*OMP*/