From d2988c827b9785880abc5f083d07714ba81b0cc5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 7 Sep 2022 04:47:19 +0200
Subject: elab-vhdl_stmts: fix a TODO

---
 src/synth/elab-vhdl_stmts.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/synth/elab-vhdl_stmts.adb b/src/synth/elab-vhdl_stmts.adb
index c2bbe06f1..720db8ad3 100644
--- a/src/synth/elab-vhdl_stmts.adb
+++ b/src/synth/elab-vhdl_stmts.adb
@@ -95,9 +95,10 @@ package body Elab.Vhdl_Stmts is
             Default : Node;
             Idxes : Node_Flist;
             Drng : Discrete_Range_Type;
+            Marker : Mark_Type;
          begin
             --  TODO: do not recompute indexes and ranges for each sub-block
-            --  TODO: mark & release memory
+            Mark_Expr_Pool (Marker);
             Default := Null_Node;
             Config := Configs;
             while Config /= Null_Node loop
@@ -122,6 +123,7 @@ package body Elab.Vhdl_Stmts is
                end case;
                Config := Get_Prev_Block_Configuration (Config);
             end loop;
+            Release_Expr_Pool (Marker);
 
             if Config = Null_Node then
                Config := Default;
-- 
cgit v1.2.3