aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/netlists-dump.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2020-03-28 08:40:56 +0100
committerTristan Gingold <tgingold@free.fr>2020-03-28 08:40:56 +0100
commit6c78e574f10382cc0edf8c9bfaef2c9b8c3dd2aa (patch)
tree4d4dbe5285ce17323f9d884f418fd45966f46c43 /src/synth/netlists-dump.adb
parent437614dcd2483de09244d04b1ade8946e51de61f (diff)
downloadghdl-6c78e574f10382cc0edf8c9bfaef2c9b8c3dd2aa.tar.gz
ghdl-6c78e574f10382cc0edf8c9bfaef2c9b8c3dd2aa.tar.bz2
ghdl-6c78e574f10382cc0edf8c9bfaef2c9b8c3dd2aa.zip
netlists-dump: improve output.
Diffstat (limited to 'src/synth/netlists-dump.adb')
-rw-r--r--src/synth/netlists-dump.adb18
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;