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/synth/elab-debugger.adb | |
| parent | 92fb780933886e36a178a0b86c61ba590602145f (diff) | |
| download | ghdl-10f847e928897cb420a4dae0785e412ba5b3dfe0.tar.gz ghdl-10f847e928897cb420a4dae0785e412ba5b3dfe0.tar.bz2 ghdl-10f847e928897cb420a4dae0785e412ba5b3dfe0.zip | |
elab-debugger: remove duplicate flag
Diffstat (limited to 'src/synth/elab-debugger.adb')
| -rw-r--r-- | src/synth/elab-debugger.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/synth/elab-debugger.adb b/src/synth/elab-debugger.adb index 0ff6a80e5..9d888cc95 100644 --- a/src/synth/elab-debugger.adb +++ b/src/synth/elab-debugger.adb @@ -33,8 +33,6 @@ with Elab.Vhdl_Context.Debug; use Elab.Vhdl_Context.Debug; with Elab.Vhdl_Debug; use Elab.Vhdl_Debug; package body Elab.Debugger is - Flag_Enabled : Boolean := False; - Current_Instance : Synth_Instance_Acc; Current_Loc : Node; @@ -923,7 +921,7 @@ package body Elab.Debugger is procedure Debug_Init (Top : Node) is begin - Flag_Enabled := True; + Flag_Debug_Enable := True; Current_Instance := null; Current_Loc := Top; @@ -939,7 +937,7 @@ package body Elab.Debugger is begin Current_Instance := Top; Current_Loc := Get_Source_Scope (Top); - Flag_Enabled := True; + Flag_Debug_Enable := True; -- To avoid warnings. Exec_Statement := Null_Node; @@ -985,7 +983,7 @@ package body Elab.Debugger is procedure Debug_Error (Inst : Synth_Instance_Acc; Expr : Node) is begin - if Flag_Enabled then + if Flag_Debug_Enable then Current_Instance := Inst; Current_Loc := Expr; Debug (Reason_Error); |