diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-01-12 15:32:58 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-01-12 15:32:58 +0100 |
| commit | 7d7b759c56476f4fee5f42b9086a292ac3956f55 (patch) | |
| tree | 1c0a8138cbe3c7bf3f7ed5251fd89494d7df10cd /src | |
| parent | 957e4ad55ef39ff96d7bf1d9e415aa38829c283a (diff) | |
| download | ghdl-7d7b759c56476f4fee5f42b9086a292ac3956f55.tar.gz ghdl-7d7b759c56476f4fee5f42b9086a292ac3956f55.tar.bz2 ghdl-7d7b759c56476f4fee5f42b9086a292ac3956f55.zip | |
netlists-disp_vhdl: handle const_log for disp_memory.
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index cf138b6d5..121016cac 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -379,6 +379,11 @@ package body Netlists.Disp_Vhdl is Zx := 0; Val := Get_Param_Uns32 (Inst, Param_Idx (Off / 32)); Val := Shift_Right (Val, Natural (Off mod 32)) and 1; + when Id_Const_Log => + Zx := Get_Param_Uns32 (Inst, 2 * Param_Idx (Off / 32) + 1); + Zx := Shift_Right (Zx, Natural (Off mod 32)) and 1; + Val := Get_Param_Uns32 (Inst, 2 * Param_Idx (Off / 32)); + Val := Shift_Right (Val, Natural (Off mod 32)) and 1; when Id_Const_UB32 => Zx := 0; if Off < 32 then |