From 63bfd5f5f928660b20382da9f7b2d61ae7077962 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 10 Dec 2022 07:59:08 +0100
Subject: vhdl-sem_types.adb(Set_Type_Has_Signal): generalize.

In case of subtype, mark the parent type.

Fix #2267
---
 src/vhdl/vhdl-sem_types.adb | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem_types.adb b/src/vhdl/vhdl-sem_types.adb
index dbc4230fb..a6f8e0223 100644
--- a/src/vhdl/vhdl-sem_types.adb
+++ b/src/vhdl/vhdl-sem_types.adb
@@ -90,13 +90,8 @@ package body Vhdl.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;
+            --  Mark all the hierarchy.
+            Set_Type_Has_Signal (Get_Parent_Type (Atype));
          when others =>
             null;
       end case;
-- 
cgit v1.2.3