diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-02-01 21:10:17 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-02-02 07:38:14 +0100 |
| commit | b2cab4a6f6457f5c2662c0219753b96cae6c0237 (patch) | |
| tree | 7bc002278de0e85ef11d96c1d19abc016aa38321 /src/synth | |
| parent | 3fd41d16549e0ff43e52f45da9509969b7adea18 (diff) | |
| download | ghdl-b2cab4a6f6457f5c2662c0219753b96cae6c0237.tar.gz ghdl-b2cab4a6f6457f5c2662c0219753b96cae6c0237.tar.bz2 ghdl-b2cab4a6f6457f5c2662c0219753b96cae6c0237.zip | |
translate: rework translate_object_subtype_indication.
Fix #2337
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/elab-vhdl_annotations.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/synth/elab-vhdl_annotations.adb b/src/synth/elab-vhdl_annotations.adb index c7b8f64fb..83d19e225 100644 --- a/src/synth/elab-vhdl_annotations.adb +++ b/src/synth/elab-vhdl_annotations.adb @@ -285,7 +285,7 @@ package body Elab.Vhdl_Annotations is | Iir_Kind_Interface_Constant_Declaration | Iir_Kind_Interface_File_Declaration => -- Elaborate the subtype indication only if it not shared. - if Is_Owned_Subtype_Indication (El) then + if Has_Owned_Subtype_Indication (El) then Annotate_Type_Definition (Block_Info, Get_Subtype_Indication (El)); end if; @@ -323,14 +323,14 @@ package body Elab.Vhdl_Annotations is begin case Get_Kind (Decl) is when Iir_Kind_Interface_Signal_Declaration => - if With_Types and then Is_Owned_Subtype_Indication (Decl) then + if With_Types and then Has_Owned_Subtype_Indication (Decl) then Annotate_Type_Definition (Block_Info, Get_Type (Decl)); end if; Create_Signal_Info (Block_Info, Decl); when Iir_Kind_Interface_Variable_Declaration | Iir_Kind_Interface_Constant_Declaration | Iir_Kind_Interface_File_Declaration => - if With_Types and then Is_Owned_Subtype_Indication (Decl) then + if With_Types and then Has_Owned_Subtype_Indication (Decl) then Annotate_Type_Definition (Block_Info, Get_Type (Decl)); end if; Create_Object_Info (Block_Info, Decl); @@ -557,7 +557,7 @@ package body Elab.Vhdl_Annotations is procedure Annotate_Declaration_Type (Block_Info: Sim_Info_Acc; Decl: Iir) is begin - if Is_Owned_Subtype_Indication (Decl) then + if Has_Owned_Subtype_Indication (Decl) then -- Really annotate the subtype indication, which might be different -- from the type (for constant declarations). Annotate_Type_Definition (Block_Info, Get_Subtype_Indication (Decl)); @@ -652,7 +652,7 @@ package body Elab.Vhdl_Annotations is Annotate_Subprogram_Body (Block_Info, Decl); when Iir_Kind_Object_Alias_Declaration => - if Is_Owned_Subtype_Indication (Decl) then + if Has_Owned_Subtype_Indication (Decl) then Annotate_Type_Definition (Block_Info, Get_Type (Decl)); end if; Create_Object_Info (Block_Info, Decl); |