diff options
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; |