diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-01-02 10:03:06 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-01-02 10:03:06 +0100 |
| commit | d56c58668b10ca7a6684cb518b4978207c7b88b2 (patch) | |
| tree | 08de640e67ed682664be9db4bd2ee902e1b7e26a /src | |
| parent | 913d4aa9636e3f06b612a9591faada1fe030b75c (diff) | |
| download | ghdl-d56c58668b10ca7a6684cb518b4978207c7b88b2.tar.gz ghdl-d56c58668b10ca7a6684cb518b4978207c7b88b2.tar.bz2 ghdl-d56c58668b10ca7a6684cb518b4978207c7b88b2.zip | |
synth: handle scalar inout association for subprograms. Fix #1064
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/synth-stmts.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 4def552e6..4717cd488 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -1432,6 +1432,8 @@ package body Synth.Stmts is raise Internal_Error; end if; Val := Info.Obj; + elsif Info.Kind = Target_Simple then + Val := Info.Obj; else Val := Synth_Read_Memory (Caller_Inst, Info.Obj, Info.Off, No_Net, |