From e9bbdaaef2b3fec0d9843db4f3aaac741641e279 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 13 Jan 2020 19:10:40 +0100
Subject: synth: improve support for expanded names. For #1090

---
 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 781bc704d..e5f72e8fa 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -972,7 +972,8 @@ package body Synth.Expr is
                        return Value_Acc is
    begin
       case Get_Kind (Name) is
-         when Iir_Kind_Simple_Name =>
+         when Iir_Kind_Simple_Name
+           | Iir_Kind_Selected_Name =>
             return Synth_Name (Syn_Inst, Get_Named_Entity (Name));
          when Iir_Kind_Interface_Signal_Declaration
            | Iir_Kind_Variable_Declaration
@@ -1764,6 +1765,7 @@ package body Synth.Expr is
                end if;
             end;
          when Iir_Kind_Simple_Name
+           | Iir_Kind_Selected_Name
            | Iir_Kind_Interface_Signal_Declaration --  For PSL.
            | Iir_Kind_Signal_Declaration =>  -- For PSL.
             return Synth_Name (Syn_Inst, Expr);
-- 
cgit v1.2.3