From 5d797c187b2d3b17253a002fdad1557951aa4e85 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 30 Aug 2019 03:22:13 +0200
Subject: synth: fix named association in record aggregate.

---
 src/synth/synth-expr.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/synth')

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 7bdad0672..0badb844b 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -373,7 +373,9 @@ package body Synth.Expr is
                      end if;
                   end loop;
                when Iir_Kind_Choice_By_Name =>
-                  Pos := Natural (Get_Element_Position (Get_Name (Assoc)));
+                  Pos := Natural (Get_Element_Position
+                                    (Get_Named_Entity
+                                       (Get_Choice_Name (Assoc))));
                   Set_Elem (Pos);
                when others =>
                   Error_Msg_Synth
-- 
cgit v1.2.3