diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-09-28 07:04:35 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-09-28 07:04:35 +0200 |
commit | edd1d24a7de51780fbb5648df0195b7bbf3b2f5d (patch) | |
tree | 93f61111ee5595b2cd54de6550eb96dc6ebc5844 /src | |
parent | af39225cd4e4ded264e3d6c4d7c5b94521efd00e (diff) | |
download | ghdl-edd1d24a7de51780fbb5648df0195b7bbf3b2f5d.tar.gz ghdl-edd1d24a7de51780fbb5648df0195b7bbf3b2f5d.tar.bz2 ghdl-edd1d24a7de51780fbb5648df0195b7bbf3b2f5d.zip |
synth: disp net number in netlists-dump
Diffstat (limited to 'src')
-rw-r--r-- | src/synth/netlists-dump.adb | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 9592dd5ea..cfd0bd3a7 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -306,6 +306,10 @@ package body Netlists.Dump is else Disp_Net_Name (N); Disp_Width (Get_Width (N)); + + Put ('{'); + Put_Trim (Net'Image (N)); + Put ('}'); end if; end Dump_Net_Name_And_Width; @@ -434,6 +438,7 @@ package body Netlists.Dump is if Get_Nbr_Inputs (Inst) > 0 then declare First : Boolean; + Drv : Net; begin First := True; Put (" ("); @@ -442,7 +447,14 @@ package body Netlists.Dump is Put (", "); end if; First := False; - Disp_Driver (Get_Driver (I)); + + Drv := Get_Driver (I); + + Put ('{'); + Put_Trim (Net'Image (Drv)); + Put ('}'); + + Disp_Driver (Drv); end loop; Put (')'); end; |