From 816cdc7faae1d4c7651546165e21ae10372f3cbf Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 7 Jan 2023 19:03:05 +0100
Subject: simul: handle function calls in sensitivity compute.

---
 src/simul/simul-vhdl_elab.adb | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/simul')

diff --git a/src/simul/simul-vhdl_elab.adb b/src/simul/simul-vhdl_elab.adb
index 95c144473..2e7f40f7f 100644
--- a/src/simul/simul-vhdl_elab.adb
+++ b/src/simul/simul-vhdl_elab.adb
@@ -565,10 +565,14 @@ package body Simul.Vhdl_Elab is
       El : Node;
       Sig : Sub_Signal_Type;
    begin
+      --  There can be function calls.
+      Instance_Pool := Process_Pool'Access;
+
       It := List_Iterate_Safe (List);
       while Is_Valid (It) loop
          El := Get_Element (It);
          exit when El = Null_Node;
+
          Sig := Compute_Sub_Signal (Inst, El);
 
          --  Exit now in case of error.
@@ -587,6 +591,8 @@ package body Simul.Vhdl_Elab is
 
          Next (It);
       end loop;
+
+      Instance_Pool := null;
    end Gather_Sensitivity;
 
    procedure Gather_Process_Sensitivity
-- 
cgit v1.2.3