From edd1d24a7de51780fbb5648df0195b7bbf3b2f5d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 28 Sep 2019 07:04:35 +0200
Subject: synth: disp net number in netlists-dump

---
 src/synth/netlists-dump.adb | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb
index 9592dd5ea..cfd0bd3a7 100644
--- a/src/synth/netlists-dump.adb
+++ b/src/synth/netlists-dump.adb
@@ -306,6 +306,10 @@ package body Netlists.Dump is
       else
          Disp_Net_Name (N);
          Disp_Width (Get_Width (N));
+
+         Put ('{');
+         Put_Trim (Net'Image (N));
+         Put ('}');
       end if;
    end Dump_Net_Name_And_Width;
 
@@ -434,6 +438,7 @@ package body Netlists.Dump is
       if Get_Nbr_Inputs (Inst) > 0 then
          declare
             First : Boolean;
+            Drv : Net;
          begin
             First := True;
             Put (" (");
@@ -442,7 +447,14 @@ package body Netlists.Dump is
                      Put (", ");
                end if;
                First := False;
-               Disp_Driver (Get_Driver (I));
+
+               Drv := Get_Driver (I);
+
+               Put ('{');
+               Put_Trim (Net'Image (Drv));
+               Put ('}');
+
+               Disp_Driver (Drv);
             end loop;
             Put (')');
          end;
-- 
cgit v1.2.3