diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-07 19:03:38 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-09 06:40:16 +0100 |
| commit | db271398f8240f64fc33bec4157d755e4c6327c7 (patch) | |
| tree | b41c0ef7d490f62af460857cfd4b2ec1a9dced42 /src/synth | |
| parent | 816cdc7faae1d4c7651546165e21ae10372f3cbf (diff) | |
| download | ghdl-db271398f8240f64fc33bec4157d755e4c6327c7.tar.gz ghdl-db271398f8240f64fc33bec4157d755e4c6327c7.tar.bz2 ghdl-db271398f8240f64fc33bec4157d755e4c6327c7.zip | |
synth: fix handle of array attributes
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index c756bb857..0004816d5 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -2519,13 +2519,12 @@ package body Synth.Vhdl_Expr is Etype := Get_Type (Expr); case Get_Kind (Expr) is - when Iir_Kind_High_Array_Attribute - | Iir_Kind_Low_Array_Attribute - | Iir_Kind_Simple_Name - | Iir_Kind_Indexed_Name - | Iir_Kind_Selected_Element - | Iir_Kind_Integer_Literal - | Iir_Kind_String_Literal8 => + when Iir_Kind_Simple_Name + | Iir_Kind_Indexed_Name + | Iir_Kind_Selected_Element + | Iir_Kind_Integer_Literal + | Iir_Kind_String_Literal8 + | Iir_Kinds_Array_Attribute => -- For array attributes: the type is the type of the index, which -- is not synthesized as a type (only as an index). -- |