diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-12-31 12:26:21 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-12-31 18:57:44 +0100 |
commit | 03e71f74ace9dbd543435b5f94df87b83bb7d54f (patch) | |
tree | d34cb1a5e9d9f10b56705decc58ebf1d049e9b6a /src/synth/netlists-disp_vhdl.adb | |
parent | ba0bcbe24ecec931358c0cf230841d3c86ffc8bb (diff) | |
download | ghdl-03e71f74ace9dbd543435b5f94df87b83bb7d54f.tar.gz ghdl-03e71f74ace9dbd543435b5f94df87b83bb7d54f.tar.bz2 ghdl-03e71f74ace9dbd543435b5f94df87b83bb7d54f.zip |
netlists-disp_vhdl: display iadff.
Diffstat (limited to 'src/synth/netlists-disp_vhdl.adb')
-rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index 29fc6f169..41c32eeaa 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -882,7 +882,8 @@ package body Netlists.Disp_Vhdl is Put_Line (";"); when Id_Const_Bit => null; - when Id_Adff => + when Id_Adff + | Id_Iadff => Disp_Template (" process (\i0, \i2)" & NL & " begin" & NL & " if \i2 = '1' then" & NL & @@ -1153,6 +1154,10 @@ package body Netlists.Disp_Vhdl is Put (" := "); Disp_Constant_Inline (Get_Net_Parent (Get_Input_Net (Inst, 2))); + when Id_Iadff => + Put (" := "); + Disp_Constant_Inline + (Get_Net_Parent (Get_Input_Net (Inst, 4))); when Constant_Module_Id => Put (" := "); Disp_Constant_Inline (Inst); |