diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-06-04 16:36:55 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-06-04 18:55:56 +0200 |
| commit | 467f6d66017b73496cef8b5212385c3b407a722f (patch) | |
| tree | 868d59c252ed3bcbf652ed4054f1602d84eb48ce | |
| parent | 78c4f520846c2d1dd4fbe02f9f18e6059307e06d (diff) | |
| download | ghdl-467f6d66017b73496cef8b5212385c3b407a722f.tar.gz ghdl-467f6d66017b73496cef8b5212385c3b407a722f.tar.bz2 ghdl-467f6d66017b73496cef8b5212385c3b407a722f.zip | |
synth-vhdl_decls: fix subtype conversion for variable default value.
Fix #2072
| -rw-r--r-- | src/synth/synth-vhdl_decls.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-vhdl_decls.adb b/src/synth/synth-vhdl_decls.adb index 2ae34bb36..96339dfcd 100644 --- a/src/synth/synth-vhdl_decls.adb +++ b/src/synth/synth-vhdl_decls.adb @@ -400,7 +400,7 @@ package body Synth.Vhdl_Decls is if Is_Valid (Def) then Init := Synth_Expression_With_Type (Syn_Inst, Def, Obj_Typ); Init := Synth_Subtype_Conversion - (Ctxt, Init, Obj_Typ, False, Decl); + (Ctxt, Init, Obj_Typ, True, Decl); if not Is_Subprg and then not Is_Static (Init.Val) then |