mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-06-08 10:35:18 +00:00
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:
parent
802ba3b0ba
commit
a3104853fc
|
@ -1613,7 +1613,7 @@ with stringTypePtr^ do begin
|
||||||
qualifiers := [];
|
qualifiers := [];
|
||||||
kind := arrayType;
|
kind := arrayType;
|
||||||
aType := charPtr;
|
aType := charPtr;
|
||||||
elements := 1;
|
elements := 0;
|
||||||
end; {with}
|
end; {with}
|
||||||
new(utf16StringTypePtr); {UTF-16 string constant type}
|
new(utf16StringTypePtr); {UTF-16 string constant type}
|
||||||
with utf16StringTypePtr^ do begin
|
with utf16StringTypePtr^ do begin
|
||||||
|
@ -1622,7 +1622,7 @@ with utf16StringTypePtr^ do begin
|
||||||
qualifiers := [];
|
qualifiers := [];
|
||||||
kind := arrayType;
|
kind := arrayType;
|
||||||
aType := uShortPtr;
|
aType := uShortPtr;
|
||||||
elements := 1;
|
elements := 0;
|
||||||
end; {with}
|
end; {with}
|
||||||
new(utf32StringTypePtr); {UTF-32 string constant type}
|
new(utf32StringTypePtr); {UTF-32 string constant type}
|
||||||
with utf32StringTypePtr^ do begin
|
with utf32StringTypePtr^ do begin
|
||||||
|
@ -1631,7 +1631,7 @@ with utf32StringTypePtr^ do begin
|
||||||
qualifiers := [];
|
qualifiers := [];
|
||||||
kind := arrayType;
|
kind := arrayType;
|
||||||
aType := uLongPtr;
|
aType := uLongPtr;
|
||||||
elements := 1;
|
elements := 0;
|
||||||
end; {with}
|
end; {with}
|
||||||
new(voidPtr); {void}
|
new(voidPtr); {void}
|
||||||
with voidPtr^ do begin
|
with voidPtr^ do begin
|
||||||
|
|
Loading…
Reference in New Issue
Block a user