diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-07 18:24:52 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-07 18:24:52 +0200 |
| commit | 5f08159565df82d74801c60d82ce584a768e70c2 (patch) | |
| tree | b439b114fbb04772f1750e76dacc135a217fa19c | |
| parent | 5a4e0827f597d077707aa57985be951c1d40f854 (diff) | |
| download | ghdl-5f08159565df82d74801c60d82ce584a768e70c2.tar.gz ghdl-5f08159565df82d74801c60d82ce584a768e70c2.tar.bz2 ghdl-5f08159565df82d74801c60d82ce584a768e70c2.zip | |
ghdlsynth: add --out=dump
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index 27694e26e..f06676097 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_Vhdl); + type Out_Format is (Format_Raw, Format_Dump, Format_Vhdl); -- Command --synth type Command_Synth is new Command_Lib with record @@ -93,6 +93,9 @@ package body Ghdlsynth is elsif Option = "--out=raw" then Cmd.Oformat := Format_Raw; Res := Option_Ok; + elsif Option = "--out=dump" then + Cmd.Oformat := Format_Dump; + Res := Option_Ok; elsif Option = "--out=vhdl" then Cmd.Oformat := Format_Vhdl; Res := Option_Ok; @@ -275,6 +278,9 @@ package body Ghdlsynth is when Format_Raw => Netlists.Dump.Flag_Disp_Inline := Cmd.Disp_Inline; Netlists.Dump.Disp_Module (Res); + when Format_Dump => + Netlists.Dump.Flag_Disp_Inline := Cmd.Disp_Inline; + Netlists.Dump.Dump_Module (Res); when Format_Vhdl => if Boolean'(True) then Ent := Vhdl.Utils.Get_Entity_From_Configuration (Config); |