From ed614df2af4debb68d6533d74a38ed35f9030e1c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 28 Sep 2019 08:16:13 +0200
Subject: netlists-disp_vhdl: handle id_edge.

---
 src/synth/netlists-disp_vhdl.adb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index 6e12f4876..6e2628384 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -773,6 +773,9 @@ package body Netlists.Disp_Vhdl is
                     ("  \o0 <= \i1; -- reduce and" & NL, Inst);
                end if;
             end;
+         when Id_Edge =>
+            Disp_Template
+              ("  \o0 <= '1' when rising_edge (\i0) else '0';" & NL, Inst);
          when Id_Assert =>
             Disp_Template
               ("  \l0: assert \i0 = '1' severity error;" & NL, Inst);
-- 
cgit v1.2.3