From a3104853fcb6a4e852544596ced815a2acd0e3e1 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Sat, 18 Jun 2022 19:18:29 -0500
Subject: [PATCH] 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).
---
 Symbol.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Symbol.pas b/Symbol.pas
index d012d52..273e36c 100644
--- a/Symbol.pas
+++ b/Symbol.pas
@@ -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