From 3483b608443e6c3c24eae7966f39b152883bdf54 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 26 Jan 2018 06:55:30 +0100
Subject: sem_type: also set has_signal on subtype type mark type.

---
 src/vhdl/sem_types.adb | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src')

diff --git a/src/vhdl/sem_types.adb b/src/vhdl/sem_types.adb
index 01b862f3c..d4439b6ab 100644
--- a/src/vhdl/sem_types.adb
+++ b/src/vhdl/sem_types.adb
@@ -91,6 +91,13 @@ package body Sem_Types is
            | Iir_Kind_Record_Subtype_Definition =>
             Set_Type_Has_Signal (Get_Base_Type (Atype));
             Mark_Resolution_Function (Atype);
+            declare
+               Tm : constant Iir := Get_Subtype_Type_Mark (Atype);
+            begin
+               if Tm /= Null_Iir then
+                  Set_Type_Has_Signal (Get_Type (Get_Named_Entity (Tm)));
+               end if;
+            end;
          when others =>
             null;
       end case;
-- 
cgit v1.2.3