Apple-2gs-SW
/
ORCA-C
mirror of https://github.com/byteworksinc/ORCA-C.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Do not skip over the character after _Pragma(...).

This commit is contained in:
Stephen Heumann 2022-10-29 15:55:44 -05:00
parent 4702df9aac
commit e5428b21d2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Scanner.pas
View File

@ -1681,7 +1681,7 @@ fileList := fp;
fp^.name := includeFileGS;
fp^.sname := sourceFileGS;
fp^.lineNumber := lineNumber;
fp^.disp := ord4(chPtr)-ord4(bofPtr);
fp^.disp := ord4(currentChPtr)-ord4(bofPtr);
needWriteLine := false;
bofPtr := buf;