From 1f01e14d5ee7290ae4af76127d0d31067389f893 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 14 Oct 2019 19:52:59 +0200
Subject: netlists-dump: do not print name of anonymous parameters.

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

(limited to 'src')

diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb
index aa7dbe3e7..85080050d 100644
--- a/src/synth/netlists-dump.adb
+++ b/src/synth/netlists-dump.adb
@@ -131,8 +131,12 @@ package body Netlists.Dump is
    is
       Desc : constant Param_Desc := Get_Param_Desc (Inst, Idx);
    begin
-      Dump_Name (Desc.Name);
-      Put ('=');
+      if Desc.Name /= No_Sname then
+         --  Const_Bit/Log gates have anonymous parameters.
+         Dump_Name (Desc.Name);
+         Put ('=');
+      end if;
+
       case Desc.Typ is
          when Param_Invalid =>
             Put ("invalid");
-- 
cgit v1.2.3