From 5e3156f249145f7384f0a4fe25486791efd0e10a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 22 Apr 2020 19:03:49 +0200
Subject: synth: support -v option.

---
 src/ghdldrv/ghdlsynth.adb | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/ghdldrv')

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;
-- 
cgit v1.2.3