Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-08-15 07:27:27 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
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
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;