diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-04 20:09:17 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-04 20:09:17 +0200 |
| commit | 9343f9eaf79e405c7876361e9e456b796eb3ea56 (patch) | |
| tree | 411a3c579dcb56188eb270bdd372d5979adb4523 | |
| parent | b790578d72b1975423c9a9b3ce17f6fd9f12d2f9 (diff) | |
| download | ghdl-9343f9eaf79e405c7876361e9e456b796eb3ea56.tar.gz ghdl-9343f9eaf79e405c7876361e9e456b796eb3ea56.tar.bz2 ghdl-9343f9eaf79e405c7876361e9e456b796eb3ea56.zip | |
synth: handle const_bit in disp_constant_inline.
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index 4d0780d3c..e131469d5 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -499,6 +499,10 @@ package body Netlists.Disp_Vhdl is when Id_Const_Z => Disp_Template ("(\n0 downto 0 => 'Z')", Inst, (0 => Get_Width (O) - 1)); + when Id_Const_Bit => + Disp_Const_Bit (Inst); + when Id_Const_Log => + raise Internal_Error; when others => raise Internal_Error; end case; |