From 51e84968803814de78a47a3b78b3599e9efb0708 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 6 Nov 2019 03:39:43 +0100
Subject: netlists-cleanup: do not remove the self-instance.

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

diff --git a/src/synth/netlists-cleanup.adb b/src/synth/netlists-cleanup.adb
index 207a8a63e..21d6f94d1 100644
--- a/src/synth/netlists-cleanup.adb
+++ b/src/synth/netlists-cleanup.adb
@@ -64,6 +64,8 @@ package body Netlists.Cleanup is
       List := No_Instance;
 
       Inst := Get_First_Instance (M);
+      --  But keep the self-instance.
+      Inst := Get_Next_Instance (Inst);
       while Inst /= No_Instance loop
          Next_Inst := Get_Next_Instance (Inst);
          Extract_If_Unused (Inst, List);
-- 
cgit v1.2.3