synth: renaming (synth-heap -> synth-vhdl_heap)

5 files changed, 11 insertions, 11 deletions

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 6c50ab6a9..d52ab0c29 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -44,7 +44,7 @@ with Synth.Environment;
 with Synth.Decls;
 with Synth.Stmts; use Synth.Stmts;
 with Synth.Vhdl_Oper; use Synth.Vhdl_Oper;
-with Synth.Heap; use Synth.Heap;
+with Synth.Vhdl_Heap; use Synth.Vhdl_Heap;
 with Synth.Debugger;
 with Synth.Vhdl_Aggr;
 
@@ -528,7 +528,7 @@ package body Synth.Expr is
             begin
                --  Maybe do not dereference it if its type is known ?
                Val := Synth_Expression (Syn_Inst, Get_Prefix (Expr));
-               Res := Heap.Synth_Dereference (Read_Access (Val));
+               Res := Vhdl_Heap.Synth_Dereference (Read_Access (Val));
                return Res.Typ;
             end;
 
@@ -1072,7 +1072,7 @@ package body Synth.Expr is
                Val : Valtyp;
             begin
                Val := Synth_Expression (Syn_Inst, Get_Prefix (Name));
-               return Heap.Synth_Dereference (Read_Access (Val));
+               return Vhdl_Heap.Synth_Dereference (Read_Access (Val));
             end;
          when others =>
             Error_Kind ("synth_name", Name);
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 03f5de65f..bc7c7f4a4 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -45,7 +45,7 @@ with Synth.Expr; use Synth.Expr;
 with Synth.Insts; use Synth.Insts;
 with Synth.Source;
 with Synth.Vhdl_Static_Proc;
-with Synth.Heap;
+with Synth.Vhdl_Heap;
 with Synth.Flags;
 with Synth.Debugger;
 
@@ -240,7 +240,7 @@ package body Synth.Stmts is
             if Dest_Off /= (0, 0) and then Dest_Dyn.Voff /= No_Net then
                raise Internal_Error;
             end if;
-            Dest_Base := Heap.Synth_Dereference (Read_Access (Dest_Base));
+            Dest_Base := Vhdl_Heap.Synth_Dereference (Read_Access (Dest_Base));
             Dest_Typ := Dest_Base.Typ;
 
          when others =>
diff --git a/src/synth/synth-heap.adb b/src/synth/synth-vhdl_heap.adb
index 3f6a93732..5270c99e0 100644
--- a/src/synth/synth-heap.adb
+++ b/src/synth/synth-vhdl_heap.adb
@@ -20,7 +20,7 @@ with Types; use Types;
 with Tables;
 
 
-package body Synth.Heap is
+package body Synth.Vhdl_Heap is
 
    package Heap_Table is new Tables
      (Table_Component_Type => Valtyp,
@@ -89,4 +89,4 @@ package body Synth.Heap is
       Free (Heap_Table.Table (Idx));
    end Synth_Deallocate;
 
-end Synth.Heap;
+end Synth.Vhdl_Heap;
diff --git a/src/synth/synth-heap.ads b/src/synth/synth-vhdl_heap.ads
index be01deb6c..0e1928b26 100644
--- a/src/synth/synth-heap.ads
+++ b/src/synth/synth-vhdl_heap.ads
@@ -19,7 +19,7 @@
 with Synth.Objtypes; use Synth.Objtypes;
 with Synth.Values; use Synth.Values;
 
-package Synth.Heap is
+package Synth.Vhdl_Heap is
    --  Allocate a value.
    function Allocate_By_Type (T : Type_Acc) return Heap_Index;
    function Allocate_By_Value (V : Valtyp) return Heap_Index;
@@ -27,4 +27,4 @@ package Synth.Heap is
    function Synth_Dereference (Idx : Heap_Index) return Valtyp;
 
    procedure Synth_Deallocate (Idx : Heap_Index);
-end Synth.Heap;
+end Synth.Vhdl_Heap;
diff --git a/src/synth/synth-vhdl_static_proc.adb b/src/synth/synth-vhdl_static_proc.adb
index 4c68bb58b..462896451 100644
--- a/src/synth/synth-vhdl_static_proc.adb
+++ b/src/synth/synth-vhdl_static_proc.adb
@@ -21,7 +21,7 @@ with Vhdl.Errors; use Vhdl.Errors;
 with Synth.Values; use Synth.Values;
 with Synth.Errors; use Synth.Errors;
 with Synth.Vhdl_Files; use Synth.Vhdl_Files;
-with Synth.Heap;
+with Synth.Vhdl_Heap;
 
 package body Synth.Vhdl_Static_Proc is
 
@@ -33,7 +33,7 @@ package body Synth.Vhdl_Static_Proc is
    begin
       Val := Read_Access (Param);
       if Val /= Null_Heap_Index then
-         Synth.Heap.Synth_Deallocate (Val);
+         Synth.Vhdl_Heap.Synth_Deallocate (Val);
          Write_Access (Param.Val.Mem, Null_Heap_Index);
       end if;
    end Synth_Deallocate;