From 6c78e574f10382cc0edf8c9bfaef2c9b8c3dd2aa Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 28 Mar 2020 08:40:56 +0100 Subject: netlists-dump: improve output. --- src/synth/netlists-dump.adb | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'src/synth') diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 8a018788d..950fa66de 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -353,15 +353,16 @@ package body Netlists.Dump is Disp_Net_Name (N); W := Get_Width (N); - if W /= 1 then - Put ('['); - Put_Uns32 (W); - Put (']'); - end if; - if Flag_Disp_Id then Put_Net_Width (N); + else + if W /= 1 then + Put ('['); + Put_Uns32 (W); + Put (']'); + end if; end if; + end if; end Dump_Net_Name_And_Width; @@ -534,6 +535,11 @@ package body Netlists.Dump is if Desc.Name /= No_Sname then Put ('.'); Dump_Name (Desc.Name); + if Flag_Disp_Id then + Put ("{p"); + Put_Trim (Input'Image (I)); + Put ('}'); + end if; Put (": "); end if; end if; -- cgit v1.2.3