From f873332f7bd50ae8bae3ee70b15d6ad616f6ad05 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 4 Jun 2022 09:12:49 +0200
Subject: elab-vhdl_debug: add print command

---
 src/synth/elab-debugger.adb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/synth/elab-debugger.adb')

diff --git a/src/synth/elab-debugger.adb b/src/synth/elab-debugger.adb
index 9d888cc95..dad63f6b0 100644
--- a/src/synth/elab-debugger.adb
+++ b/src/synth/elab-debugger.adb
@@ -44,6 +44,11 @@ package body Elab.Debugger is
       Reason_Error
      );
 
+   function Debug_Current_Instance return Synth_Instance_Acc is
+   begin
+      return Current_Instance;
+   end Debug_Current_Instance;
+
    package Breakpoints is new Tables
      (Table_Index_Type => Natural,
       Table_Component_Type => Node,
@@ -657,7 +662,7 @@ package body Elab.Debugger is
      (Kind => Menu_Command,
       Name => new String'("?"),
       Help => new String'("print help"),
-      Next => Menu_Break'Access, --  Menu_Help1'Access,
+      Next => Menu_Break'Access,
       Proc => Help_Proc'Access);
 
    Menu_Top : aliased Menu_Entry :=
-- 
cgit v1.2.3