diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-06-04 09:12:49 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-06-04 16:27:49 +0200 |
commit | f873332f7bd50ae8bae3ee70b15d6ad616f6ad05 (patch) | |
tree | 130bc8be609ad3bf53076226598008b71baef404 /src/synth/elab-debugger.adb | |
parent | 067cbd4ad02a724bcbe5cec50a7229787c1ae74c (diff) | |
download | ghdl-f873332f7bd50ae8bae3ee70b15d6ad616f6ad05.tar.gz ghdl-f873332f7bd50ae8bae3ee70b15d6ad616f6ad05.tar.bz2 ghdl-f873332f7bd50ae8bae3ee70b15d6ad616f6ad05.zip |
elab-vhdl_debug: add print command
Diffstat (limited to 'src/synth/elab-debugger.adb')
-rw-r--r-- | src/synth/elab-debugger.adb | 7 |
1 files changed, 6 insertions, 1 deletions
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 := |