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

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
Download Patch File Download Diff File Expand all files Collapse all files

4
Scanner.pas
View File

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