diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-05 04:37:27 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-05 04:38:48 +0200 |
| commit | 3f02d97cfe261bb96b7717c4e6199b20f253b361 (patch) | |
| tree | c902efe2a4a8c9da569e914422f8377149b040bc /src/synth/synth-decls.adb | |
| parent | 7f8eba861d8e05376b99dd5d2a98d25df989b12e (diff) | |
| download | ghdl-3f02d97cfe261bb96b7717c4e6199b20f253b361.tar.gz ghdl-3f02d97cfe261bb96b7717c4e6199b20f253b361.tar.bz2 ghdl-3f02d97cfe261bb96b7717c4e6199b20f253b361.zip | |
synth: initial support of unbounded records. Fix #1283
Diffstat (limited to 'src/synth/synth-decls.adb')
| -rw-r--r-- | src/synth/synth-decls.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb index d3a9cc13f..9e0ce30c1 100644 --- a/src/synth/synth-decls.adb +++ b/src/synth/synth-decls.adb @@ -121,9 +121,6 @@ package body Synth.Decls is El : Node; El_Typ : Type_Acc; begin - if not Is_Fully_Constrained_Type (Def) then - return null; - end if; Rec_Els := Create_Rec_El_Array (Iir_Index32 (Get_Nbr_Elements (El_List))); @@ -133,7 +130,11 @@ package body Synth.Decls is Rec_Els.E (Iir_Index32 (I + 1)).Typ := El_Typ; end loop; - return Create_Record_Type (Rec_Els); + if not Is_Fully_Constrained_Type (Def) then + return Create_Unbounded_Record (Rec_Els); + else + return Create_Record_Type (Rec_Els); + end if; end Synth_Record_Type_Definition; function Synth_Access_Type_Definition |