mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-06-18 11:29:30 +00:00
Set errorFound to true for most errors during initialization.
This commit is contained in:
parent
ac741e26ab
commit
1f468c437f
|
@ -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}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user