From d4b148035ddbf84657d18d927a28885c494d5875 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 1 Nov 2019 18:19:08 +0100
Subject: netlists-dump: improve output.

---
 src/synth/netlists-dump.adb | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'src')

diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb
index 7a68839a6..701be8f7d 100644
--- a/src/synth/netlists-dump.adb
+++ b/src/synth/netlists-dump.adb
@@ -350,17 +350,22 @@ package body Netlists.Dump is
       end if;
    end Disp_Net_Name;
 
+   procedure Put_Net_Width (N : Net) is
+   begin
+      Put ("{n");
+      Put_Trim (Net'Image (N));
+      Put ('w');
+      Put_Trim (Width'Image (Get_Width (N)));
+      Put ('}');
+   end Put_Net_Width;
+
    procedure Dump_Net_Name_And_Width (N : Net) is
    begin
       if N = No_Net then
          Put ("?");
       else
          Disp_Net_Name (N);
-         Disp_Width (Get_Width (N));
-
-         Put ("{n");
-         Put_Trim (Net'Image (N));
-         Put ('}');
+         Put_Net_Width (N);
       end if;
    end Dump_Net_Name_And_Width;
 
@@ -502,11 +507,7 @@ package body Netlists.Dump is
 
                Drv := Get_Driver (I);
 
-               Put ("{n");
-               Put_Trim (Net'Image (Drv));
-               Put ('w');
-               Put_Trim (Width'Image (Get_Width (Drv)));
-               Put ('}');
+               Put_Net_Width (Drv);
 
                Disp_Driver (Drv);
             end loop;
-- 
cgit v1.2.3