From fcef281d6e3f2bda74c2f75543ea3d7d2927c813 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 13 Oct 2019 07:17:11 +0200
Subject: synth-inst: minor refactoring.

---
 src/synth/synth-insts.adb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb
index c636cc497..6c0e65864 100644
--- a/src/synth/synth-insts.adb
+++ b/src/synth/synth-insts.adb
@@ -915,9 +915,8 @@ package body Synth.Insts is
       --  Remove unused gates.  This is not only an optimization but also
       --  a correctness point: there might be some unsynthesizable gates, like
       --  the one created for 'rising_egde (clk) and not rst'.
-      if not Flags.Flag_Debug_Nocleanup then
-         Netlists.Cleanup.Remove_Unconnected_Instances
-           (Get_Instance_Module (Syn_Inst));
+      if not Synth.Flags.Flag_Debug_Nocleanup then
+         Netlists.Cleanup.Remove_Unconnected_Instances (Inst.M);
       end if;
    end Synth_Instance;
 
-- 
cgit v1.2.3