diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-17 02:13:23 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-17 02:13:23 +0200 |
| commit | 2ab83662516b7466e1870548cb8906e0842bb3ca (patch) | |
| tree | d21e0381315f132bb1813a76635c5963bf44625a /src/ghdldrv | |
| parent | a4754febc694fd9836fd73050016175c4de92860 (diff) | |
| download | ghdl-2ab83662516b7466e1870548cb8906e0842bb3ca.tar.gz ghdl-2ab83662516b7466e1870548cb8906e0842bb3ca.tar.bz2 ghdl-2ab83662516b7466e1870548cb8906e0842bb3ca.zip | |
synth: add synth-flags, add debug option -di.
Diffstat (limited to 'src/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index 0f566ad6b..f6539d2c4 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -45,6 +45,7 @@ with Netlists.Disp_Vhdl; with Synthesis; with Synth.Disp_Vhdl; with Synth.Context; use Synth.Context; +with Synth.Flags; use Synth.Flags; package body Ghdlsynth is type Out_Format is (Format_Raw, Format_Vhdl); @@ -93,6 +94,9 @@ package body Ghdlsynth is elsif Option = "--out=vhdl" then Cmd.Oformat := Format_Vhdl; Res := Option_Ok; + elsif Option = "-di" then + Flag_Debug_Noinference := True; + Res := Option_Ok; else Decode_Option (Command_Lib (Cmd), Option, Arg, Res); end if; |