From ac8b203059b2d054880550c72adef815ea29950d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 22 Sep 2019 17:26:53 +0200
Subject: synth: completly disable inference with -di.

---
 src/synth/synth-inference.adb | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/synth/synth-inference.adb b/src/synth/synth-inference.adb
index afb47c965..4ac726c32 100644
--- a/src/synth/synth-inference.adb
+++ b/src/synth/synth-inference.adb
@@ -463,10 +463,12 @@ package body Synth.Inference is
       Clk : Net;
       Enable : Net;
    begin
-      Find_Longest_Loop (Val, Prev_Val, Last_Mux, Len);
-      if Len <= 0
-        or else Flags.Flag_Debug_Noinference
-      then
+      if not Flags.Flag_Debug_Noinference then
+         Find_Longest_Loop (Val, Prev_Val, Last_Mux, Len);
+      else
+         Len := -1;
+      end if;
+      if Len <= 0 then
          --  No logical loop or self assignment.
          Add_Conc_Assign (Wid, Val, Off, Stmt);
       else
-- 
cgit v1.2.3