From f798ed92fb4e3a054e4373cb1ef53bbb3d18d0e7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 28 Nov 2019 05:53:41 +0100
Subject: netlists-dump: adjust dump output to be more easily

---
 src/synth/netlists-dump.adb | 23 +++++++----------------
 1 file changed, 7 insertions(+), 16 deletions(-)

(limited to 'src')

diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb
index 841c5d831..4c0c2b192 100644
--- a/src/synth/netlists-dump.adb
+++ b/src/synth/netlists-dump.adb
@@ -46,28 +46,19 @@ package body Netlists.Dump is
       end if;
 
       Prefix := Get_Sname_Prefix (N);
+      if Prefix /= No_Sname then
+         Dump_Name (Prefix);
+         Put (".");
+      end if;
 
       case Get_Sname_Kind (N) is
          when Sname_User =>
-            if Prefix = No_Sname then
-               Put ("\");
-            else
-               Dump_Name (Prefix);
-               Put (".");
-            end if;
+            Put ("\");
             Put (Image (Get_Sname_Suffix (N)));
          when Sname_Artificial =>
-            if Prefix = No_Sname then
-               Put ("$");
-            else
-               Dump_Name (Prefix);
-               Put (".");
-            end if;
+            Put ("$");
             Put (Image (Get_Sname_Suffix (N)));
          when Sname_Version =>
-            if Prefix /= No_Sname then
-               Dump_Name (Prefix);
-            end if;
             Put ("%");
             Put_Uns32 (Get_Sname_Version (N));
       end case;
@@ -322,7 +313,7 @@ package body Netlists.Dump is
                Dump_Name (Get_Input_Desc (Get_Module (Inst), Idx).Name);
             else
                Dump_Name (Get_Instance_Name (Inst));
-               Put ('.');
+               Put (':');
                Dump_Name (Get_Output_Desc (Get_Module (Inst), Idx).Name);
             end if;
          end;
-- 
cgit v1.2.3