From d444e0db133898308795ffbf8081330e6a33ed4f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 6 Oct 2019 08:45:30 +0200
Subject: netlists-dump: add prefix to numbers.

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

(limited to 'src/synth/netlists-dump.adb')

diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb
index cfd0bd3a7..e2b6f7ee8 100644
--- a/src/synth/netlists-dump.adb
+++ b/src/synth/netlists-dump.adb
@@ -92,9 +92,9 @@ package body Netlists.Dump is
          Dump_Name (Get_Input_Desc (Get_Module (Inst), Idx).Name);
       end if;
       if With_Id then
-         Put ('(');
+         Put ("{p");
          Put_Trim (Input'Image (I));
-         Put (')');
+         Put ('}');
       end if;
    end Dump_Input_Name;
 
@@ -111,9 +111,9 @@ package body Netlists.Dump is
          Dump_Name (Get_Output_Desc (Get_Module (Inst), Idx).Name);
       end if;
       if With_Id then
-         Put ('(');
+         Put ("{n");
          Put_Trim (Net'Image (N));
-         Put (')');
+         Put ('}');
       end if;
    end Dump_Net_Name;
 
@@ -136,9 +136,9 @@ package body Netlists.Dump is
       Put_Indent (Indent);
       Put ("instance ");
       Dump_Name (Get_Name (Inst));
-      Put (" (");
+      Put (" {i");
       Put_Trim (Instance'Image (Inst));
-      Put (')');
+      Put ('}');
       Put (": ");
       Dump_Name (Get_Name (Get_Module (Inst)));
       New_Line;
@@ -195,9 +195,9 @@ package body Netlists.Dump is
    begin
       --  Module id and name.
       Put_Indent (Indent);
-      Put ("module @");
+      Put ("module {m");
       Put_Trim (Module'Image (M));
-      Put (" ");
+      Put ("} ");
       Dump_Name (Get_Name (M));
       New_Line;
 
-- 
cgit v1.2.3