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 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/simul/simul-main.adb')

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