From 48efd462ef36acbb3065b67bee10dd9f5cc6bdd1 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Thu, 1 Dec 2022 14:09:03 -0600
Subject: [PATCH] Allow designated initialization of fields named the same as
 typedefs.

They are in separate name spaces, so this should be permitted.
---
 Parser.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Parser.pas b/Parser.pas
index bf680d5..38163f0 100644
--- a/Parser.pas
+++ b/Parser.pas
@@ -2623,7 +2623,7 @@ var
                   goto 1;
                   end; {if}
                Match(dotch, 35);
-               if token.kind = ident then begin
+               if token.kind in [ident,typedef] then begin
                   ip := tp^.fieldList;
                   done := false;
                   while (ip <> nil) and not done do