From 143d372c82f5f7a273904fef4d407384ba0abe85 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 29 Nov 2019 07:53:01 +0100
Subject: synth-inference: adjust guard.  Fix #1041

---
 src/synth/synth-inference.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/synth-inference.adb b/src/synth/synth-inference.adb
index 4c4b95c5f..270c944fa 100644
--- a/src/synth/synth-inference.adb
+++ b/src/synth/synth-inference.adb
@@ -389,7 +389,9 @@ package body Synth.Inference is
          Last_Out := O;
 
          while Is_Connected (Last_Out) loop
-            if not Has_One_Connection (Last_Out) then
+            if not Has_One_Connection (Last_Out)
+              and then not Is_Const_Net (Last_Out)
+            then
                --  TODO.
                raise Internal_Error;
             end if;
-- 
cgit v1.2.3