diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-11-30 13:25:01 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-11-30 13:25:01 +0100 |
commit | 6be88e751d21f5009735473ef1501b5337212d09 (patch) | |
tree | 004babe34e0c53150f59f24c7c454cd10244c4ce /src/ghdldrv | |
parent | 2bb61759d873dcffc8943f667073d472ca21a6dc (diff) | |
download | ghdl-6be88e751d21f5009735473ef1501b5337212d09.tar.gz ghdl-6be88e751d21f5009735473ef1501b5337212d09.tar.bz2 ghdl-6be88e751d21f5009735473ef1501b5337212d09.zip |
netlists-dump: add option --disp-noid
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index 1523ab51c..856fb2cc8 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -55,6 +55,7 @@ package body Ghdlsynth is -- Command --synth type Command_Synth is new Command_Lib with record Disp_Inline : Boolean := True; + Disp_Id : Boolean := True; Oformat : Out_Format := Format_Vhdl; end record; function Decode_Command (Cmd : Command_Synth; Name : String) @@ -90,6 +91,9 @@ package body Ghdlsynth is if Option = "--disp-noinline" then Cmd.Disp_Inline := False; Res := Option_Ok; + elsif Option = "--disp-noid" then + Cmd.Disp_Id := False; + Res := Option_Ok; elsif Option = "--out=raw" then Cmd.Oformat := Format_Raw; Res := Option_Ok; @@ -309,6 +313,7 @@ package body Ghdlsynth is null; when Format_Raw => Netlists.Dump.Flag_Disp_Inline := Cmd.Disp_Inline; + Netlists.Dump.Flag_Disp_Id := Cmd.Disp_Id; Netlists.Dump.Disp_Module (Res); when Format_Dump => Netlists.Dump.Flag_Disp_Inline := Cmd.Disp_Inline; |