From 86fd1ab3079b50c5b7234db2cedf3d1e8c0f081b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 1 Nov 2021 19:50:19 +0100
Subject: synth: do full elaboration before synthesis

---
 src/synth/synth-vhdl_static_proc.adb | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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

diff --git a/src/synth/synth-vhdl_static_proc.adb b/src/synth/synth-vhdl_static_proc.adb
index 462896451..5dc31318b 100644
--- a/src/synth/synth-vhdl_static_proc.adb
+++ b/src/synth/synth-vhdl_static_proc.adb
@@ -18,10 +18,11 @@
 
 with Vhdl.Errors; use Vhdl.Errors;
 
-with Synth.Values; use Synth.Values;
+with Elab.Vhdl_Values; use Elab.Vhdl_Values;
+with Elab.Vhdl_Heap;
+with Elab.Vhdl_Files; use Elab.Vhdl_Files;
+
 with Synth.Errors; use Synth.Errors;
-with Synth.Vhdl_Files; use Synth.Vhdl_Files;
-with Synth.Vhdl_Heap;
 
 package body Synth.Vhdl_Static_Proc is
 
@@ -33,7 +34,7 @@ package body Synth.Vhdl_Static_Proc is
    begin
       Val := Read_Access (Param);
       if Val /= Null_Heap_Index then
-         Synth.Vhdl_Heap.Synth_Deallocate (Val);
+         Elab.Vhdl_Heap.Synth_Deallocate (Val);
          Write_Access (Param.Val.Mem, Null_Heap_Index);
       end if;
    end Synth_Deallocate;
-- 
cgit v1.2.3