diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-21 08:51:51 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-21 08:51:51 +0200 |
| commit | 108c98263d15c50fd19fd39926dd6aa213d30b52 (patch) | |
| tree | d1cf61dd37d403d323cdd5761e1e783674ca53a5 | |
| parent | 3d9fe666d21340a27ce3310efb0509e4305090f4 (diff) | |
| download | ghdl-108c98263d15c50fd19fd39926dd6aa213d30b52.tar.gz ghdl-108c98263d15c50fd19fd39926dd6aa213d30b52.tar.bz2 ghdl-108c98263d15c50fd19fd39926dd6aa213d30b52.zip | |
netlists-dump: disp width of outputs in instances.
| -rw-r--r-- | src/synth/netlists-dump.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 8e1550dc9..9592dd5ea 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -167,9 +167,11 @@ package body Netlists.Dump is if Get_Nbr_Outputs (Inst) > 0 then Put_Indent (Indent + 1); Put ("outputs"); - for I of Outputs (Inst) loop + for O of Outputs (Inst) loop Put (' '); - Dump_Net_Name (I, True); + Dump_Net_Name (O, True); + Put (':'); + Put_Trim (Width'Image (Get_Width (O))); end loop; New_Line; end if; |