diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-01-08 07:27:14 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-01-08 07:28:29 +0100 |
| commit | e4384df2d52f319b2a8e45b3a1a26277d88760b5 (patch) | |
| tree | db40677456c84e8f159d4d94190589237e173344 /src/synth/synth-context.adb | |
| parent | 513ea00c0d355c1534b8ed6f28a78ca15c91d612 (diff) | |
| download | ghdl-e4384df2d52f319b2a8e45b3a1a26277d88760b5.tar.gz ghdl-e4384df2d52f319b2a8e45b3a1a26277d88760b5.tar.bz2 ghdl-e4384df2d52f319b2a8e45b3a1a26277d88760b5.zip | |
synth: improve support of out/inout variable parameters.
Diffstat (limited to 'src/synth/synth-context.adb')
| -rw-r--r-- | src/synth/synth-context.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-context.adb b/src/synth/synth-context.adb index c02604049..8aea87ea9 100644 --- a/src/synth/synth-context.adb +++ b/src/synth/synth-context.adb @@ -228,7 +228,7 @@ package body Synth.Context is is Info : constant Sim_Info_Acc := Get_Info (Decl); begin - pragma Assert (Syn_Inst.Objects (Info.Slot) = null); + pragma Assert (Val = null or else Syn_Inst.Objects (Info.Slot) = null); Syn_Inst.Objects (Info.Slot) := Val; end Create_Object_Force; |