diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-06 21:22:03 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-06 21:22:03 +0200 |
| commit | cddbaa9cbaf33428bb2dc59de00f9f89f8bcd585 (patch) | |
| tree | acb0af7fdc5b10c27238e7b34c35a261e1ae179c | |
| parent | 693c4af7ef3d6d250bef95becec0092d4c81213c (diff) | |
| download | ghdl-cddbaa9cbaf33428bb2dc59de00f9f89f8bcd585.tar.gz ghdl-cddbaa9cbaf33428bb2dc59de00f9f89f8bcd585.tar.bz2 ghdl-cddbaa9cbaf33428bb2dc59de00f9f89f8bcd585.zip | |
netlists-dump: improve output for --out=raw
| -rw-r--r-- | src/synth/netlists-dump.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index effb5949d..8e5988e5c 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -307,7 +307,7 @@ package body Netlists.Dump is Disp_Net_Name (N); Disp_Width (Get_Width (N)); - Put ('{'); + Put ("{n"); Put_Trim (Net'Image (N)); Put ('}'); end if; @@ -408,8 +408,9 @@ package body Netlists.Dump is Dump_Name (Get_Module_Name (M)); if True then - Put ('@'); + Put ("{i"); Put_Trim (Instance'Image (Inst)); + Put ('}'); end if; if Get_Nbr_Params (Inst) > 0 then @@ -450,7 +451,7 @@ package body Netlists.Dump is Drv := Get_Driver (I); - Put ('{'); + Put ("{n"); Put_Trim (Net'Image (Drv)); Put ('}'); @@ -521,7 +522,7 @@ package body Netlists.Dump is if False then Disp_Driver (Get_Driver (I)); else - Disp_Net_Name (Get_Driver (I)); + Dump_Net_Name_And_Width (Get_Driver (I)); end if; New_Line; end loop; |