diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-07-26 16:38:52 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-07-26 16:38:52 +0200 |
| commit | f982dbc83995943fe74ac0efaa76a0babdab398c (patch) | |
| tree | dddf481a168d4b9c14390b645c43ea15f76cba68 | |
| parent | 3b45e4600aa046b3979798737b1aa3090f2070c3 (diff) | |
| download | ghdl-f982dbc83995943fe74ac0efaa76a0babdab398c.tar.gz ghdl-f982dbc83995943fe74ac0efaa76a0babdab398c.tar.bz2 ghdl-f982dbc83995943fe74ac0efaa76a0babdab398c.zip | |
synth: add -g option to enable debugger on some errors.
| -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; |