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/synth/elab-debugger.adb | 4 ++--
 src/synth/elab-debugger.ads | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/synth')

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