From 947e9b02a14e82093ec995acb3bc51cc93c893bc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 10 Mar 2020 07:42:46 +0100
Subject: netlists-cleanup: avoid a warning.

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

(limited to 'src')

diff --git a/src/synth/netlists-cleanup.adb b/src/synth/netlists-cleanup.adb
index 991ca3ad7..230e61e10 100644
--- a/src/synth/netlists-cleanup.adb
+++ b/src/synth/netlists-cleanup.adb
@@ -253,6 +253,7 @@ package body Netlists.Cleanup is
          Last_Unused : Instance;
       begin
          First_Unused := No_Instance;
+         Last_Unused := No_Instance;
 
          Extract_All_Instances (M, Inst);
          --  But keep the self-instance.
-- 
cgit v1.2.3