From 4d2ef5b79a3b4e0a6eb7ce8a3c6aeca7d468797c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 27 Jul 2022 05:10:09 +0200
Subject: synthesis.adb: cleanup after expand.  For #2142

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

diff --git a/src/synth/synthesis.adb b/src/synth/synthesis.adb
index 911b2d5f6..e83cdb4ea 100644
--- a/src/synth/synthesis.adb
+++ b/src/synth/synthesis.adb
@@ -100,6 +100,8 @@ package body Synthesis is
 
       if not Synth.Flags.Flag_Debug_Noexpand then
          Netlists.Expands.Expand_Gates (Ctxt, M);
+         --  Remove unused dyn_expand inputs.
+         Netlists.Cleanup.Mark_And_Sweep (M);
       end if;
    end Instance_Passes;
 
-- 
cgit v1.2.3