From c05f4211c1734a61ec5775da3d479ebf4b0812a5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 1 Mar 2020 14:22:26 +0100
Subject: Fix regressions after previous commit.

---
 src/vhdl/vhdl-utils.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
index 421bf4474..35cbef34a 100644
--- a/src/vhdl/vhdl-utils.adb
+++ b/src/vhdl/vhdl-utils.adb
@@ -449,6 +449,11 @@ package body Vhdl.Utils is
          when Iir_Kind_Simple_Name
            | Iir_Kind_Selected_Name =>
             return Name_To_Value (Get_Named_Entity (Name));
+         when Iir_Kind_Indexed_Name
+           | Iir_Kind_Selected_Element
+           | Iir_Kind_Slice_Name =>
+            --  Already a value.
+            return Name;
          when others =>
             return Name_To_Object (Name);
       end case;
-- 
cgit v1.2.3