From 87435390677f923015ba6a3109dd3c4e397ed462 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 13 Jun 2022 18:43:47 +0200
Subject: netlists-disp_verilog: do not display blackboxes.  Fix #2092

---
 src/synth/netlists-disp_verilog.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src')

diff --git a/src/synth/netlists-disp_verilog.adb b/src/synth/netlists-disp_verilog.adb
index baa9db2c0..848adc05b 100644
--- a/src/synth/netlists-disp_verilog.adb
+++ b/src/synth/netlists-disp_verilog.adb
@@ -1328,6 +1328,11 @@ package body Netlists.Disp_Verilog is
    is
       Self_Inst : constant Instance := Get_Self_Instance (M);
    begin
+      if Self_Inst = No_Instance then
+         --  Blackbox
+         return;
+      end if;
+
       --  Module id and name.
       Put ("module ");
       Put_Name (Get_Module_Name (M));
-- 
cgit v1.2.3