diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-15 03:33:19 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-15 03:33:19 +0200 |
| commit | a8fae0fb11d5dbe0a196af689301f48f5cca64ee (patch) | |
| tree | 6906bb160fb5518cfec57ad0f7c858acd0b5750f /src/synth/synth-vhdl_stmts.adb | |
| parent | 26353d25ad3eead54a5143df0f0298f142911670 (diff) | |
| download | ghdl-a8fae0fb11d5dbe0a196af689301f48f5cca64ee.tar.gz ghdl-a8fae0fb11d5dbe0a196af689301f48f5cca64ee.tar.bz2 ghdl-a8fae0fb11d5dbe0a196af689301f48f5cca64ee.zip | |
synth: improve handling of complex types
Diffstat (limited to 'src/synth/synth-vhdl_stmts.adb')
| -rw-r--r-- | src/synth/synth-vhdl_stmts.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index 45de83118..b37cdcc77 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -1959,7 +1959,7 @@ package body Synth.Vhdl_Stmts is Create_Object (Caller_Inst, Assoc, Info_To_Valtyp (Info)); end if; if Info.Kind /= Target_Memory - and then Is_Static (Info.Obj.Val) + and then Info.Obj.Val.Kind = Value_Memory then -- FIXME: the subtype conversion will copy the value, so -- allocate here in current_pool ? |