diff options
| -rw-r--r-- | src/synth/elab-vhdl_expr.adb | 4 | ||||
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 3 |
2 files changed, 6 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 diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index b8b6b44fa..d58399021 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -1432,6 +1432,9 @@ package body Synth.Vhdl_Expr is when Type_Vector | Type_Unbounded_Vector => return Val; + when Type_Array + | Type_Unbounded_Array => + return Val; when others => Error_Msg_Synth (+Conv, "unhandled type conversion (to array)"); |