diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-03-28 08:40:56 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-03-28 08:40:56 +0100 |
commit | 6c78e574f10382cc0edf8c9bfaef2c9b8c3dd2aa (patch) | |
tree | 4d4dbe5285ce17323f9d884f418fd45966f46c43 | |
parent | 437614dcd2483de09244d04b1ade8946e51de61f (diff) | |
download | ghdl-6c78e574f10382cc0edf8c9bfaef2c9b8c3dd2aa.tar.gz ghdl-6c78e574f10382cc0edf8c9bfaef2c9b8c3dd2aa.tar.bz2 ghdl-6c78e574f10382cc0edf8c9bfaef2c9b8c3dd2aa.zip |
netlists-dump: improve output.
-rw-r--r-- | src/synth/netlists-dump.adb | 18 |
1 files changed, 12 insertions, 6 deletions
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; |