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

Give error for arrays that are still 0 size after initialization.

Browse Source 
This prohibits empty initializers ({}) for arrays of unknown size, consistent with C23 requirements. Previous versions of C did not allow empty initializers at all, but ORCA/C historically did in some cases, so this patch still allows them for structs/unions/arrays of known size.
This commit is contained in:
Stephen Heumann 2022-11-30 17:57:21 -06:00
parent e7940db4c8
commit 94584b0f05
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Parser.pas
View File

@ -2595,9 +2595,15 @@ var
done := true; done := true;
until done or (token.kind = eofsy); until done or (token.kind = eofsy);
if maxCount = 0 then begin {set the array size} if maxCount = 0 then begin {set the array size}
maxCount := (maxDisp - startingDisp + ktp^.size - 1) div ktp^.size; if maxDisp <> startingDisp then begin
tp^.elements := maxCount; maxCount := (maxDisp - startingDisp + ktp^.size-1) div ktp^.size;
RecomputeSizes(variable^.itype); tp^.elements := maxCount;
RecomputeSizes(variable^.itype);
end {if}
else begin
Error(49);
errorFound := true;
end; {else}
end; {if} end; {if}
if braces then begin if braces then begin
disp := startingDisp + maxCount * ktp^.size; disp := startingDisp + maxCount * ktp^.size;