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-values.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-values.adb')
| -rw-r--r-- | src/synth/synth-values.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index 40a394b4a..e515d6a46 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -425,7 +425,9 @@ package body Synth.Values is Write_Value_Default (Arr_Index (M, I - 1, El_Typ), El_Typ); end loop; end; - when Type_Unbounded_Vector => + when Type_Unbounded_Vector + | Type_Unbounded_Array + | Type_Unbounded_Record => raise Internal_Error; when Type_Slice => raise Internal_Error; @@ -438,8 +440,6 @@ package body Synth.Values is Write_Value_Default (Arr_Index (M, I - 1, El_Typ), El_Typ); end loop; end; - when Type_Unbounded_Array => - raise Internal_Error; when Type_Record => for I in Typ.Rec.E'Range loop Write_Value_Default (M + Typ.Rec.E (I).Moff, Typ.Rec.E (I).Typ); |