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-objtypes.ads | |
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-objtypes.ads')
-rw-r--r-- | src/synth/synth-objtypes.ads | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/synth/synth-objtypes.ads b/src/synth/synth-objtypes.ads index 339197489..c90937b64 100644 --- a/src/synth/synth-objtypes.ads +++ b/src/synth/synth-objtypes.ads @@ -77,6 +77,7 @@ package Synth.Objtypes is Type_Slice, Type_Array, Type_Unbounded_Array, + Type_Unbounded_Record, Type_Record, Type_Access, @@ -144,7 +145,8 @@ package Synth.Objtypes is when Type_Unbounded_Array => Uarr_Ndim : Dim_Type; Uarr_El : Type_Acc; - when Type_Record => + when Type_Record + | Type_Unbounded_Record => Rec : Rec_El_Array_Acc; when Type_Access => Acc_Acc : Type_Acc; @@ -210,6 +212,7 @@ package Synth.Objtypes is function Create_Rec_El_Array (Nels : Iir_Index32) return Rec_El_Array_Acc; function Create_Record_Type (Els : Rec_El_Array_Acc) return Type_Acc; + function Create_Unbounded_Record (Els : Rec_El_Array_Acc) return Type_Acc; function Create_Access_Type (Acc_Type : Type_Acc) return Type_Acc; |