From 23545327c7801d5b1fa5c9bd520ff243fccceab6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
Date: Thu, 7 Jan 2016 06:47:40 +0100
Subject: Keep alias in use clauses.  Fix issue 15.

---
 src/vhdl/sem.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb
index ca340303f..bba4075a1 100644
--- a/src/vhdl/sem.adb
+++ b/src/vhdl/sem.adb
@@ -2744,7 +2744,7 @@ package body Sem is
 
          case Get_Kind (Name) is
             when Iir_Kind_Selected_Name =>
-               Sem_Name (Name);
+               Sem_Name (Name, True);
                case Get_Kind (Get_Named_Entity (Name)) is
                   when Iir_Kind_Error =>
                      --  Continue in case of error.
-- 
cgit v1.2.3