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

updated dvm

Browse Source
This commit is contained in:
ALEXks
2024-12-25 12:56:47 +03:00
parent 34cf4cc202
commit f3f7368bdc
7 changed files with 205 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1345,11 +1345,16 @@ body:/* if(newname) {
{ prefix[5]=BLANKC; *endcd++ = '\0';}
else
*endcd++ = '\0'; /* put NULL char in buffer as end marker */
if((c==';') && (char_cntx==0)) {
stmt_end: if((c==';') && (char_cntx==0)) {
restcd = bend - endcd;
while( ((c = getc(infile)) == ';') || (c == ' '))
restcd--;
(void) ungetc(c,infile);
if(c == '!') { /* delimiter ';' is ignored before comment */
restcd = 0;
goto stmt_end;
}
else
(void) ungetc(c,infile);
}
else if((c=='!') && (char_cntx==0)) {
cmt = tempbuf;
@@ -1615,11 +1620,16 @@ body: /* Read body of line */
/*('\r\n' is end line marker in Windows) */
else
*endcd++ = '\0'; /* put NULL char in buffer as end marker */
if((c==';') && (char_cntx==0)) {
stmt_end: if((c==';') && (char_cntx==0)) {
restcd = 1;
while( ((c = getc(infile)) == ';') || (c == ' '))
;
(void) ungetc(c,infile);
if(c == '!') { /* delimiter ';' is ignored before comment */
restcd = 0;
goto stmt_end;
}
else
(void) ungetc(c,infile);
}
else if((c=='!') && (char_cntx==0)) {
cmt = tempbuf;