diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-31 18:59:13 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-31 20:27:01 +0100 |
| commit | f6711c34b332f3c3f6076fe8dec64f64638428dc (patch) | |
| tree | 295bdc917ff036fdb46ce414663e3f28ba8fe61d | |
| parent | 919cc95cce51bbe0fb1fb0778ed63fffd184977b (diff) | |
| download | ghdl-f6711c34b332f3c3f6076fe8dec64f64638428dc.tar.gz ghdl-f6711c34b332f3c3f6076fe8dec64f64638428dc.tar.bz2 ghdl-f6711c34b332f3c3f6076fe8dec64f64638428dc.zip | |
elab-debugger: also pass top instance on break_time
| -rw-r--r-- | src/simul/simul-main.adb | 2 | ||||
| -rw-r--r-- | src/synth/elab-debugger.adb | 4 | ||||
| -rw-r--r-- | src/synth/elab-debugger.ads | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/src/simul/simul-main.adb b/src/simul/simul-main.adb index 7ed10b001..9ca156e3e 100644 --- a/src/simul/simul-main.adb +++ b/src/simul/simul-main.adb @@ -115,7 +115,7 @@ package body Simul.Main is -- No not break anymore on time, Break_Time := Std_Time'Last; Break_Step := False; - Elab.Debugger.Debug_Time; + Elab.Debugger.Debug_Time (Vhdl_Elab.Top_Instance); end if; exit when Grt.Processes.Has_Simulation_Timeout; diff --git a/src/synth/elab-debugger.adb b/src/synth/elab-debugger.adb index 843e111e0..819f04d9b 100644 --- a/src/synth/elab-debugger.adb +++ b/src/synth/elab-debugger.adb @@ -1035,9 +1035,9 @@ package body Elab.Debugger is Debug (Reason_Break); end Debug_Break; - procedure Debug_Time is + procedure Debug_Time (Top : Synth_Instance_Acc) is begin - Current_Instance := Root_Instance; + Current_Instance := Top; Current_Loc := Null_Node; Debug (Reason_Time); diff --git a/src/synth/elab-debugger.ads b/src/synth/elab-debugger.ads index 88cfb21b0..5a046c7bb 100644 --- a/src/synth/elab-debugger.ads +++ b/src/synth/elab-debugger.ads @@ -41,7 +41,7 @@ package Elab.Debugger is procedure Debug_Leave (Inst : Synth_Instance_Acc); -- Debug on a time breakpoint. - procedure Debug_Time; + procedure Debug_Time (Top : Synth_Instance_Acc); -- To be called in case of execution error, like: -- * index out of bounds. |