From a35ef31a75c2f34ba89d0db3707006d2718f8782 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 24 Sep 2022 18:21:15 +0200 Subject: simul: handle empty procedures --- src/simul/simul-vhdl_simul.adb | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/simul/simul-vhdl_simul.adb b/src/simul/simul-vhdl_simul.adb index 9242e938c..5eeebe7b6 100644 --- a/src/simul/simul-vhdl_simul.adb +++ b/src/simul/simul-vhdl_simul.adb @@ -1296,7 +1296,15 @@ package body Simul.Vhdl_Simul is Get_Suspend_State_Statement (Inst, Stmt, Resume); end if; - Execute_Sequential_Statements_Inner (Process, Stmt, Resume); + if Stmt = Null_Node then + -- No statement, return. + if Get_Kind (Src) = Iir_Kind_Procedure_Body then + Finish_Procedure_Call (Process, Src, Stmt); + end if; + else + -- There are statements + Execute_Sequential_Statements_Inner (Process, Stmt, Resume); + end if; end Execute_Sequential_Statements; procedure Execute_Concurrent_Procedure_Call (Proc : Process_State_Acc) -- cgit v1.2.3