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

Basic support for mixing array and struct designators.

Browse Source
This commit is contained in:
Stephen Heumann 2022-11-27 23:54:24 -06:00
parent 250a6361c1
commit c261e14d56
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Parser.pas
View File

@ -2587,13 +2587,13 @@ var
if token.kind <> rbracech then
repeat
hasNestedDesignator := false;
if token.kind = lbrackch then begin
if token.kind in [lbrackch,dotch] then begin
if not (braces or (nestedDesignator and (disp=startingDisp)))
then begin
skipComma := true;
goto 1;
end; {if}
NextToken;
Match(lbrackch, 35);
Expression(arrayExpression, [rbrackch]);
if (expressionValue < 0)
or ((maxCount <> 0) and (expressionValue >= maxCount)) then
@ -2681,13 +2681,13 @@ var
if token.kind = rbracech then {fill remainder with zeros}
goto 2;
hasNestedDesignator := false;
if token.kind = dotch then begin
if token.kind in [dotch,lbrackch] then begin
if not (braces or (nestedDesignator and (disp=startingDisp)))
then begin
skipComma := true;
goto 1;
end; {if}
NextToken;
Match(dotch, 35);
if token.kind = ident then begin
ip := tp^.fieldList;
done := false;