diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-04-16 19:03:15 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-04-16 19:03:15 +0200 |
| commit | 5a31efbb82ef8ef34f5052c9c7a43dea97794718 (patch) | |
| tree | c51adbe64e14faab0906b63776c61760d1cc7286 /src/synth | |
| parent | 1a7a8ac61228917e81d1a27222f8faa0b35385c0 (diff) | |
| download | ghdl-5a31efbb82ef8ef34f5052c9c7a43dea97794718.tar.gz ghdl-5a31efbb82ef8ef34f5052c9c7a43dea97794718.tar.bz2 ghdl-5a31efbb82ef8ef34f5052c9c7a43dea97794718.zip | |
synth: add --disp-noinline
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/netlists-dump.adb | 8 | ||||
| -rw-r--r-- | src/synth/netlists-dump.ads | 3 |
2 files changed, 9 insertions, 2 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 16818bada..76438a6e1 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -305,8 +305,6 @@ package body Netlists.Dump is end if; end Dump_Net_Name_And_Width; - Flag_Disp_Inline : constant Boolean := True; - function Can_Inline (Inst : Instance) return Boolean is begin case Get_Id (Inst) is @@ -411,6 +409,12 @@ package body Netlists.Dump is Dump_Name (Get_Name (Inst)); end if; + if True then + Put ('['); + Put_Trim (Instance'Image (Inst)); + Put (']'); + end if; + if Get_Nbr_Inputs (M) > 0 then declare First : Boolean; diff --git a/src/synth/netlists-dump.ads b/src/synth/netlists-dump.ads index 7cca85400..b2855111c 100644 --- a/src/synth/netlists-dump.ads +++ b/src/synth/netlists-dump.ads @@ -19,6 +19,9 @@ -- MA 02110-1301, USA. package Netlists.Dump is + -- If set, compact print. + Flag_Disp_Inline : Boolean := True; + procedure Dump_Net_Name (N : Net; With_Id : Boolean := False); procedure Disp_Driver (Drv : Net); procedure Disp_Instance (Inst : Instance; With_Name : Boolean); |