diff options
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 2 | ||||
| -rw-r--r-- | src/synth/synth-flags.ads | 2 |
2 files changed, 3 insertions, 1 deletions
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; |