Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-12-22 07:30:54 +00:00
Code Issues Projects Releases Wiki Activity

Fix bug where line number was off by one when using defaults.h.

Browse Source 
This fixes the compco11.c test case.
This commit is contained in:
Stephen Heumann 2016-10-15 20:52:10 -05:00
parent b019c59803
commit 4247eb2c91
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Scanner.pas
View File

@ -1198,7 +1198,10 @@ fp^.next := fileList;
fileList := fp; fileList := fp;
fp^.name := includeFileGS; fp^.name := includeFileGS;
fp^.sname := sourceFileGS; fp^.sname := sourceFileGS;
fp^.lineNumber := lineNumber+1; if default then
fp^.lineNumber := lineNumber
else
fp^.lineNumber := lineNumber+1;
if OpenFile(true, default) then begin {open a new file and proceed from there} if OpenFile(true, default) then begin {open a new file and proceed from there}
lineNumber := 1; lineNumber := 1;
StartInclude(@includeFileGS); StartInclude(@includeFileGS);