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

Terminate header generation if #warning is encountered.

Browse Source 
This is necessary to ensure that the warning message is printed on subsequent compiles.
This commit is contained in:
Stephen Heumann 2022-02-19 14:06:15 -06:00
parent a73dce103b
commit aabbadb34b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Scanner.pas
View File

@ -2727,7 +2727,9 @@ var
begin {DoError} begin {DoError}
lFirstPtr := firstPtr; lFirstPtr := firstPtr;
if isError then if isError then
numErrors := numErrors+1; numErrors := numErrors+1
else
TermHeader;
new(msg); new(msg);
if isError then if isError then
msg^ := '#error:' msg^ := '#error:'