From 3819515f724ed2ae81a1aa7b467359e26a3fb9e7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 6 Nov 2019 07:40:34 +0100
Subject: netlists-dump: avoid a crash on unconnected driver.

---
 src/synth/netlists-dump.adb | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb
index 1dc64c63a..3be27f3e4 100644
--- a/src/synth/netlists-dump.adb
+++ b/src/synth/netlists-dump.adb
@@ -510,9 +510,12 @@ package body Netlists.Dump is
 
                Drv := Get_Driver (I);
 
-               Put_Net_Width (Drv);
-
-               Disp_Driver (Drv, Indent + 1);
+               if Drv = No_Net then
+                  Put ('?');
+               else
+                  Put_Net_Width (Drv);
+                  Disp_Driver (Drv, Indent + 1);
+               end if;
             end loop;
             Put (')');
          end;
-- 
cgit v1.2.3