diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-06-03 08:32:07 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-06-03 08:32:32 +0200 |
commit | 10f847e928897cb420a4dae0785e412ba5b3dfe0 (patch) | |
tree | 0dedde2602e6e2e65af2024c1b95fe35c4c15aed /src/ghdldrv | |
parent | 92fb780933886e36a178a0b86c61ba590602145f (diff) | |
download | ghdl-10f847e928897cb420a4dae0785e412ba5b3dfe0.tar.gz ghdl-10f847e928897cb420a4dae0785e412ba5b3dfe0.tar.bz2 ghdl-10f847e928897cb420a4dae0785e412ba5b3dfe0.zip |
elab-debugger: remove duplicate flag
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlsimul.adb | 4 | ||||
-rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb index 832ccd9a2..468c2253c 100644 --- a/src/ghdldrv/ghdlsimul.adb +++ b/src/ghdldrv/ghdlsimul.adb @@ -44,6 +44,8 @@ with Grtlink; with Elab.Vhdl_Context; with Elab.Vhdl_Debug; with Elab.Vhdl_Insts; +with Elab.Debugger; + with Synth.Flags; with Simul.Vhdl_Elab; with Simul.Vhdl_Simul; @@ -185,7 +187,7 @@ package body Ghdlsimul is is begin if Option = "--debug" or Option = "-g" then - Synth.Flags.Flag_Debug_Enable := True; + Elab.Debugger.Flag_Debug_Enable := True; elsif Option = "-t" then Synth.Flags.Flag_Trace_Statements := True; elsif Option = "-i" then diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index bcda44ada..264960ffc 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -47,6 +47,7 @@ with Netlists.Inference; with Elab.Vhdl_Context; use Elab.Vhdl_Context; with Elab.Vhdl_Insts; +with Elab.Debugger; with Synthesis; with Synth.Disp_Vhdl; @@ -230,7 +231,7 @@ package body Ghdlsynth is elsif Option = "-i" then Flag_Debug_Init := True; elsif Option = "-g" then - Flag_Debug_Enable := True; + Elab.Debugger.Flag_Debug_Enable := True; elsif Option = "-v" then if not Synth.Flags.Flag_Verbose then Synth.Flags.Flag_Verbose := True; |