diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-14 08:31:20 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-14 08:31:58 +0200 |
| commit | 27f5ba8367977ebf157157deae1e777017e28957 (patch) | |
| tree | 5a95a5b62e28fe1d88f43ec1e532b4f29fdb7cdf | |
| parent | 1b78b16bd6ffde3cf5ab83f5e3cb65d9dfc09b85 (diff) | |
| download | ghdl-27f5ba8367977ebf157157deae1e777017e28957.tar.gz ghdl-27f5ba8367977ebf157157deae1e777017e28957.tar.bz2 ghdl-27f5ba8367977ebf157157deae1e777017e28957.zip | |
synth: improve support of components (anon subtypes).
| -rw-r--r-- | src/synth/synth-insts.adb | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index a44437cdc..74c4247c3 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -160,6 +160,7 @@ package body Synth.Insts is Imp : Node; Syn_Inst : Synth_Instance_Acc; Inter : Node; + Inter_Type : Node; Nbr_Inputs : Port_Nbr; Nbr_Outputs : Port_Nbr; Num : Uns32; @@ -182,6 +183,19 @@ package body Synth.Insts is -- Copy values for generics. Inter := Get_Generic_Chain (Decl); while Inter /= Null_Node loop + -- Bounds or range of the type. + Inter_Type := Get_Subtype_Indication (Inter); + if Inter_Type /= Null_Node then + case Get_Kind (Inter_Type) is + when Iir_Kind_Array_Subtype_Definition => + Create_Object (Syn_Inst, Inter_Type, + Get_Value (Params.Syn_Inst, Inter_Type)); + when others => + null; + end case; + end if; + + -- Object. Create_Object (Syn_Inst, Inter, Get_Value (Params.Syn_Inst, Inter)); Inter := Get_Chain (Inter); end loop; @@ -470,6 +484,7 @@ package body Synth.Insts is raise Internal_Error; end case; + Synth_Declaration_Type (Comp_Inst, Inter); case Mode_To_Port_Kind (Get_Mode (Inter)) is when Port_In => Create_Object |