diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-05-15 17:12:23 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-05-15 17:12:23 +0200 |
commit | 2fa4b913aefa9b23f3f7773b62d92858a6e3732b (patch) | |
tree | 1e69e0ed9d774091801e24ce3d5138f72388fe61 /src/synth/elab-debugger.ads | |
parent | 69abb3811741c002c22a4ee59ceb185455fa7a0e (diff) | |
download | ghdl-2fa4b913aefa9b23f3f7773b62d92858a6e3732b.tar.gz ghdl-2fa4b913aefa9b23f3f7773b62d92858a6e3732b.tar.bz2 ghdl-2fa4b913aefa9b23f3f7773b62d92858a6e3732b.zip |
elab-debugger: add append_info_menu, to_num
Diffstat (limited to 'src/synth/elab-debugger.ads')
-rw-r--r-- | src/synth/elab-debugger.ads | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/synth/elab-debugger.ads b/src/synth/elab-debugger.ads index 5b1bda533..3376e3ba3 100644 --- a/src/synth/elab-debugger.ads +++ b/src/synth/elab-debugger.ads @@ -16,6 +16,8 @@ -- You should have received a copy of the GNU General Public License -- along with this program. If not, see <gnu.org/licenses>. +with Types; use Types; + with Vhdl.Nodes; use Vhdl.Nodes; with Elab.Vhdl_Context; use Elab.Vhdl_Context; @@ -46,4 +48,18 @@ package Elab.Debugger is procedure Append_Menu_Command (Name : Cst_String_Acc; Help : Cst_String_Acc; Proc : Menu_Procedure); + + -- Append a command to the info menu. + procedure Append_Info_Command (Name : Cst_String_Acc; + Help : Cst_String_Acc; + Proc : Menu_Procedure); + + + -- Utilities for menu commands. + + -- Return the position of the first non-blank character. + function Skip_Blanks (S : String) return Positive; + + -- Convert STR to number RES, set VALID to true iff the conversion is ok. + procedure To_Num (Str : String; Res : out Uns32; Valid : out Boolean); end Elab.Debugger; |