From f7300b2906b6c918c83b6037d7223e7409dd440e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 11 Oct 2019 18:42:53 +0200
Subject: netlists-iterators: avoid a crash if no ports.

---
 src/synth/netlists-iterators.adb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/synth/netlists-iterators.adb b/src/synth/netlists-iterators.adb
index 2bb1c8c05..4468a889e 100644
--- a/src/synth/netlists-iterators.adb
+++ b/src/synth/netlists-iterators.adb
@@ -316,9 +316,7 @@ package body Netlists.Iterators is
                Inst := Get_Next_Instance (Inst);
                exit when Inst = No_Instance;
                Num := Get_Nbr_Outputs (Inst);
-               if Num = 0 then
-                  pragma Assert (Get_Id (Get_Module (Inst)) = Id_Free);
-               else
+               if Num /= 0 then
                   return Nets_Cursor'(Inst => Inst,
                                       N => Get_First_Output (Inst),
                                       Num => Num);
-- 
cgit v1.2.3