netlists-dump: improve output.

1 files changed, 11 insertions, 10 deletions

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;