diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-06 17:34:20 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-06 20:10:56 +0200 |
commit | d9a1ffd4ab537f62a8b42b17cf1d4fac536b4f3c (patch) | |
tree | a0a09f21c68551fa6907dcb113ca17bb87802ad0 /src/synth/synth-debugger.ads | |
parent | 9d73f95619bc4ad6f8c27e3b2048ec69f8f4a767 (diff) | |
download | ghdl-d9a1ffd4ab537f62a8b42b17cf1d4fac536b4f3c.tar.gz ghdl-d9a1ffd4ab537f62a8b42b17cf1d4fac536b4f3c.tar.bz2 ghdl-d9a1ffd4ab537f62a8b42b17cf1d4fac536b4f3c.zip |
synth-debugger: update, handle frame leave.
Diffstat (limited to 'src/synth/synth-debugger.ads')
-rw-r--r-- | src/synth/synth-debugger.ads | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/synth/synth-debugger.ads b/src/synth/synth-debugger.ads index 13313c617..9784def6c 100644 --- a/src/synth/synth-debugger.ads +++ b/src/synth/synth-debugger.ads @@ -23,12 +23,16 @@ with Vhdl.Nodes; use Vhdl.Nodes; with Synth.Context; use Synth.Context; package Synth.Debugger is - -- If true, call Debug() before executing the next sequential statement. + -- If true, debugging is enabled: + -- * call Debug_Break() before executing the next sequential statement + -- * call Debug_Leave when a frame is destroyed. Flag_Need_Debug : Boolean := False; - procedure Debug_Init; + procedure Debug_Init (Top : Node); procedure Debug_Break (Inst : Synth_Instance_Acc; Stmt : Node); + procedure Debug_Leave (Inst : Synth_Instance_Acc); + -- To be called in case of execution error, like: -- * index out of bounds. procedure Debug_Error (Inst : Synth_Instance_Acc; Expr : Node); |