From f6711c34b332f3c3f6076fe8dec64f64638428dc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 31 Jan 2023 18:59:13 +0100
Subject: elab-debugger: also pass top instance on break_time

---
 src/simul/simul-main.adb    | 2 +-
 src/synth/elab-debugger.adb | 4 ++--
 src/synth/elab-debugger.ads | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

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.
-- 
cgit v1.2.3