diff options
Diffstat (limited to 'src/synth/elab-vhdl_decls.adb')
| -rw-r--r-- | src/synth/elab-vhdl_decls.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_decls.adb b/src/synth/elab-vhdl_decls.adb index 599d4a342..d7ceef8e5 100644 --- a/src/synth/elab-vhdl_decls.adb +++ b/src/synth/elab-vhdl_decls.adb @@ -160,6 +160,8 @@ package body Elab.Vhdl_Decls is Init := Synth_Expression_With_Type (Syn_Inst, Def, Obj_Typ); Init := Exec_Subtype_Conversion (Init, Obj_Typ, False, Decl); Init := Unshare (Init, Instance_Pool); + -- Note: Obj_Typ is bounded. + Init.Typ := Obj_Typ; else if Force_Init then Current_Pool := Instance_Pool; |