diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-22 19:03:49 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-22 21:31:28 +0200 |
commit | 5e3156f249145f7384f0a4fe25486791efd0e10a (patch) | |
tree | d86da410413ed3f337385a3a8b3ca4177cbd055a /src/ghdldrv | |
parent | 9b40ca4a65f7ffbb2186393ed6db5b054ba7a494 (diff) | |
download | ghdl-5e3156f249145f7384f0a4fe25486791efd0e10a.tar.gz ghdl-5e3156f249145f7384f0a4fe25486791efd0e10a.tar.bz2 ghdl-5e3156f249145f7384f0a4fe25486791efd0e10a.zip |
synth: support -v option.
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index 9fc3a2e98..ad0ea91c6 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -163,6 +163,12 @@ package body Ghdlsynth is Flag_Trace_Statements := True; elsif Option = "-i" then Flag_Debug_Init := True; + elsif Option = "-v" then + if not Synth.Flags.Flag_Verbose then + Synth.Flags.Flag_Verbose := True; + else + Flags.Verbose := True; + end if; else Decode_Option (Command_Lib (Cmd), Option, Arg, Res); end if; |