Apple-2gs-SW
/
ORCA-C
mirror of https://github.com/byteworksinc/ORCA-C.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Set errorFound to true for most errors during initialization.

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