From 15a35af9b7995d0c5bd72b0221dfe4880336b1ff Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 19 Nov 2017 09:48:46 +0100
Subject: sem_names: do not try to analyze a selected element as an expanded
 name.

Fix #465.
---
 src/vhdl/sem_names.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb
index a863c3118..0190ee1a4 100644
--- a/src/vhdl/sem_names.adb
+++ b/src/vhdl/sem_names.adb
@@ -2091,7 +2091,8 @@ package body Sem_Names is
                while Is_Valid (It) loop
                   El := Get_Element (It);
                   case Get_Kind (El) is
-                     when Iir_Kind_Function_Call =>
+                     when Iir_Kind_Function_Call
+                       | Iir_Kind_Selected_Element =>
                         --  Not an expanded name.
                         null;
                      when others =>
-- 
cgit v1.2.3