aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/elab-vhdl_expr.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2022-06-04 09:13:38 +0200
committerTristan Gingold <tgingold@free.fr>2022-06-04 16:27:50 +0200
commit3b4ef2e843e7bead1f05a2045627583916807374 (patch)
treee75a1eaf4c4746673a9d3b248f14cf5f3ae09696 /src/synth/elab-vhdl_expr.adb
parent0b9d3bd73f2e91efdbf5e491f0cfe6ca984e50a5 (diff)
downloadghdl-3b4ef2e843e7bead1f05a2045627583916807374.tar.gz
ghdl-3b4ef2e843e7bead1f05a2045627583916807374.tar.bz2
ghdl-3b4ef2e843e7bead1f05a2045627583916807374.zip
synth-vhdl_expr: do not abort on array subtype conversion
Diffstat (limited to 'src/synth/elab-vhdl_expr.adb')
-rw-r--r--src/synth/elab-vhdl_expr.adb4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/elab-vhdl_expr.adb b/src/synth/elab-vhdl_expr.adb
index 72a0e2b8c..f2f24e5c4 100644
--- a/src/synth/elab-vhdl_expr.adb
+++ b/src/synth/elab-vhdl_expr.adb
@@ -901,7 +901,9 @@ package body Elab.Vhdl_Expr is
| Iir_Kind_Array_Subtype_Definition =>
case Conv_Typ.Kind is
when Type_Vector
- | Type_Unbounded_Vector =>
+ | Type_Unbounded_Vector
+ | Type_Array
+ | Type_Unbounded_Array =>
return Val;
when others =>
Error_Msg_Elab