Terminate header generation if #warning is encountered.

This is necessary to ensure that the warning message is printed on subsequent compiles.
2022-02-19 14:06:15 -06:00 · 2022-02-19 14:06:15 -06:00 · aabbadb34b
parent a73dce103b
commit aabbadb34b
1 changed files with 3 additions and 1 deletions
--- a/Scanner.pas
+++ b/Scanner.pas
@ -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:'