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/netlists-dump.adb | |
parent | 1a7a8ac61228917e81d1a27222f8faa0b35385c0 (diff) | |
download | ghdl-5a31efbb82ef8ef34f5052c9c7a43dea97794718.tar.gz ghdl-5a31efbb82ef8ef34f5052c9c7a43dea97794718.tar.bz2 ghdl-5a31efbb82ef8ef34f5052c9c7a43dea97794718.zip |
synth: add --disp-noinline
Diffstat (limited to 'src/synth/netlists-dump.adb')
-rw-r--r-- | src/synth/netlists-dump.adb | 8 |
1 files changed, 6 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; |