From 386166fc6913f20d98bee61e4051296998a22cbe Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 12 May 2022 18:17:36 +0200
Subject: ghdlsimul: add option -t to trace statements

---
 src/ghdldrv/ghdlsimul.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index da133251f..aaf355aca 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -183,6 +183,8 @@ package body Ghdlsimul is
    begin
       if Option = "--debug" or Option = "-g" then
          Synth.Flags.Flag_Debug_Enable := True;
+      elsif Option = "-t" then
+         Synth.Flags.Flag_Trace_Statements := True;
       else
          return False;
       end if;
-- 
cgit v1.2.3