From bf7876e4db586c1b8f3bef1939d5110b8f1d050b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 16 Jan 2017 21:53:26 +0100
Subject: sem_names: finish sem of 'subtype prefix.

---
 src/vhdl/sem_names.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb
index cdce11b4c..d01c9c991 100644
--- a/src/vhdl/sem_names.adb
+++ b/src/vhdl/sem_names.adb
@@ -1696,8 +1696,7 @@ package body Sem_Names is
             end if;
             return Res;
          when Iir_Kind_Subtype_Attribute =>
-            Free_Iir (Name);
-            return Res;
+            null;
          when Iir_Kinds_Signal_Value_Attribute =>
             null;
          when Iir_Kinds_Signal_Attribute =>
@@ -1753,7 +1752,8 @@ package body Sem_Names is
             pragma Assert (Get_Kind (Name) = Iir_Kind_Selected_By_All_Name);
             Finish_Sem_Dereference (Res);
             Free_Iir (Name);
-         when Iir_Kinds_Signal_Value_Attribute =>
+         when Iir_Kinds_Signal_Value_Attribute
+           | Iir_Kind_Subtype_Attribute =>
             Sem_Name_Free_Result (Name, Res);
          when others =>
             Error_Kind ("finish_sem_name_1(2)", Res);
-- 
cgit v1.2.3