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

Treat string constant base types as having unknown number of elements. 

I am not aware of any effect from this, but the change makes their element count consistent with the size of 0 (indicating an incomplete type).
This commit is contained in:
Stephen Heumann 2022-06-18 19:18:29 -05:00
parent 802ba3b0ba
commit a3104853fc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Symbol.pas
View File

@ -1613,7 +1613,7 @@ with stringTypePtr^ do begin
qualifiers := [];
kind := arrayType;
aType := charPtr;
elements := 1;
elements := 0;
end; {with}
new(utf16StringTypePtr); {UTF-16 string constant type}
with utf16StringTypePtr^ do begin
@ -1622,7 +1622,7 @@ with utf16StringTypePtr^ do begin
qualifiers := [];
kind := arrayType;
aType := uShortPtr;
elements := 1;
elements := 0;
end; {with}
new(utf32StringTypePtr); {UTF-32 string constant type}
with utf32StringTypePtr^ do begin
@ -1631,7 +1631,7 @@ with utf32StringTypePtr^ do begin
qualifiers := [];
kind := arrayType;
aType := uLongPtr;
elements := 1;
elements := 0;
end; {with}
new(voidPtr); {void}
with voidPtr^ do begin