diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-10 18:43:38 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-10 18:43:38 +0200 |
| commit | 51331309cd16699ee5770e522d5e1e2b9430d1b4 (patch) | |
| tree | 27b7b92f431f54119edb04dd1fe72c8880130010 | |
| parent | 1ee18afbe800ede060e8e0daca47b188137ee4eb (diff) | |
| download | ghdl-51331309cd16699ee5770e522d5e1e2b9430d1b4.tar.gz ghdl-51331309cd16699ee5770e522d5e1e2b9430d1b4.tar.bz2 ghdl-51331309cd16699ee5770e522d5e1e2b9430d1b4.zip | |
ghdlsynth: add --out=none to not display the result.
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index fb1239442..041b00528 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -50,7 +50,7 @@ with Synth.Context; use Synth.Context; with Synth.Flags; use Synth.Flags; package body Ghdlsynth is - type Out_Format is (Format_Raw, Format_Dump, Format_Vhdl); + type Out_Format is (Format_Raw, Format_Dump, Format_Vhdl, Format_None); -- Command --synth type Command_Synth is new Command_Lib with record @@ -96,6 +96,9 @@ package body Ghdlsynth is elsif Option = "--out=dump" then Cmd.Oformat := Format_Dump; Res := Option_Ok; + elsif Option = "--out=none" then + Cmd.Oformat := Format_None; + Res := Option_Ok; elsif Option = "--out=vhdl" then Cmd.Oformat := Format_Vhdl; Res := Option_Ok; @@ -277,6 +280,8 @@ package body Ghdlsynth is end if; case Cmd.Oformat is + when Format_None => + null; when Format_Raw => Netlists.Dump.Flag_Disp_Inline := Cmd.Disp_Inline; Netlists.Dump.Disp_Module (Res); |