vhdl-sem_types.adb(Set_Type_Has_Signal): generalize.

In case of subtype, mark the parent type.

Fix #2267

1 files changed, 2 insertions, 7 deletions

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;