diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-09-06 02:43:27 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-09-06 02:43:27 +0200 |
commit | 0061426b03bd806424e813fc7065478a8791d1e7 (patch) | |
tree | f2dc5c99d97b3f145618b2591bf5143636d38de2 /src/synth/synth-vhdl_stmts.ads | |
parent | e951db00727e858fc11a78af7e33de12567575df (diff) | |
download | ghdl-0061426b03bd806424e813fc7065478a8791d1e7.tar.gz ghdl-0061426b03bd806424e813fc7065478a8791d1e7.tar.bz2 ghdl-0061426b03bd806424e813fc7065478a8791d1e7.zip |
simul: add an hook to display report/assert message
Diffstat (limited to 'src/synth/synth-vhdl_stmts.ads')
-rw-r--r-- | src/synth/synth-vhdl_stmts.ads | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/synth/synth-vhdl_stmts.ads b/src/synth/synth-vhdl_stmts.ads index db78c44d7..99aa5ff97 100644 --- a/src/synth/synth-vhdl_stmts.ads +++ b/src/synth/synth-vhdl_stmts.ads @@ -28,6 +28,15 @@ with Netlists; use Netlists; with Synth.Vhdl_Environment; use Synth.Vhdl_Environment.Env; package Synth.Vhdl_Stmts is + type Assertion_Report_Handler_Acc is access procedure + (Inst : Synth_Instance_Acc; + Stmt : Node; + Severity : Natural; + Msg : Valtyp); + + -- Procedure to call for report/assertion message. + Assertion_Report_Handler : Assertion_Report_Handler_Acc; + -- Create a new Synth_Instance for calling subprogram IMP/BOD. function Synth_Subprogram_Call_Instance (Inst : Synth_Instance_Acc; Imp : Node; @@ -104,10 +113,7 @@ package Synth.Vhdl_Stmts is procedure Execute_Report_Statement (Inst : Synth_Instance_Acc; Stmt : Node); procedure Exec_Failed_Assertion (Syn_Inst : Synth_Instance_Acc; - Stmt : Node; - Stmt_Msg : String; - Default_Rep : String; - Default_Severity : Natural); + Stmt : Node); procedure Init_For_Loop_Statement (Inst : Synth_Instance_Acc; Stmt : Node; |