From f982dbc83995943fe74ac0efaa76a0babdab398c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 26 Jul 2020 16:38:52 +0200 Subject: synth: add -g option to enable debugger on some errors. --- src/ghdldrv/ghdlsynth.adb | 2 ++ src/synth/synth-flags.ads | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index 0789e5a56..8c00776e0 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -198,6 +198,8 @@ package body Ghdlsynth is Flag_Trace_Statements := True; elsif Option = "-i" then Flag_Debug_Init := True; + elsif Option = "-g" then + Flag_Debug_Enable := True; elsif Option = "-v" then if not Synth.Flags.Flag_Verbose then Synth.Flags.Flag_Verbose := True; diff --git a/src/synth/synth-flags.ads b/src/synth/synth-flags.ads index 825cc946f..f218f76fb 100644 --- a/src/synth/synth-flags.ads +++ b/src/synth/synth-flags.ads @@ -61,7 +61,7 @@ package Synth.Flags is Flag_Debug_Init : Boolean := False; -- True to start debugger on error. - Flag_Debug_Enable : Boolean := True; + Flag_Debug_Enable : Boolean := False; -- Maximum number of iterations for (while)/loop. 0 means unlimited. Flag_Max_Loop : Natural := 1000; -- cgit v1.2.3