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

Set errorFound to true for most errors during initialization.

Browse Source
This commit is contained in:
Stephen Heumann
2022-11-29 13:20:30 -06:00
parent ac741e26ab
commit 1f468c437f
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Parser.pas
View File

@@ -2540,6 +2540,7 @@ var
or ((maxCount <> 0) and (expressionValue >= maxCount)) then or ((maxCount <> 0) and (expressionValue >= maxCount)) then
begin begin
Error(183); Error(183);
errorFound := true;
count := 0; count := 0;
end {if} end {if}
else begin else begin
@@ -2576,6 +2577,7 @@ var
if count = maxCount then if count = maxCount then
if not (token.kind = lbrackch) then begin if not (token.kind = lbrackch) then begin
Error(183); Error(183);
errorFound := true;
count := 0; count := 0;
end; {if} end; {if}
end {else if} end {else if}
@@ -2652,8 +2654,10 @@ var
done := true done := true
else else
ip := ip^.next; ip := ip^.next;
if ip = nil then if ip = nil then begin
Error(81); Error(81);
errorFound := true;
end; {if}
if (ip <> nil) and ip^.anonMemberField then begin if (ip <> nil) and ip^.anonMemberField then begin
PutBackToken(token, false, true); PutBackToken(token, false, true);
token.kind := dotch; token.kind := dotch;
@@ -2681,6 +2685,7 @@ var
end {if} end {if}
else begin else begin
Error(9); Error(9);
errorFound := true;
goto 2; goto 2;
end; {else} end; {else}
end; {if} end; {if}