diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-09 07:43:00 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-09 07:43:00 +0200 |
| commit | 9b18abcd0ffe810d15d7a36462614b4ae0218a45 (patch) | |
| tree | 43bcabd2286d1eac1cc6a04e70bfd4c08669eaee /src/synth | |
| parent | 994b31cc61de24cd525e6e29cfde8688abd8b16a (diff) | |
| download | ghdl-9b18abcd0ffe810d15d7a36462614b4ae0218a45.tar.gz ghdl-9b18abcd0ffe810d15d7a36462614b4ae0218a45.tar.bz2 ghdl-9b18abcd0ffe810d15d7a36462614b4ae0218a45.zip | |
netlists-disp_vhdl: handle const_SB32
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index 154f9f361..05e94c205 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -361,7 +361,8 @@ package body Netlists.Disp_Vhdl is O : constant Net := Get_Output (Inst, 0); begin case Get_Id (Imod) is - when Id_Const_UB32 => + when Id_Const_UB32 + | Id_Const_SB32 => Disp_Binary_Lit (Get_Param_Uns32 (Inst, 0), 0, Get_Width (O)); when Id_Const_UL32 => Disp_Binary_Lit (Get_Param_Uns32 (Inst, 0), |