From a0540030ea458ed15847de7641aaa4175bb631ac Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 6 Oct 2022 20:38:08 +0200
Subject: simul: complete concurrent procedure calls

---
 src/synth/synth-vhdl_decls.adb | 2 --
 1 file changed, 2 deletions(-)

(limited to 'src/synth/synth-vhdl_decls.adb')

diff --git a/src/synth/synth-vhdl_decls.adb b/src/synth/synth-vhdl_decls.adb
index d8c074cd4..7732e47ec 100644
--- a/src/synth/synth-vhdl_decls.adb
+++ b/src/synth/synth-vhdl_decls.adb
@@ -723,8 +723,6 @@ package body Synth.Vhdl_Decls is
             declare
                Val : Valtyp;
             begin
-               pragma Assert (Areapools.Is_Empty (Expr_Pool));
-
                Current_Pool := Instance_Pool;
                Val := Create_Value_Memtyp (Create_Memory_U32 (0));
                Current_Pool := Expr_Pool'Access;
-- 
cgit v1.2.3