diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/synth/synth-expr.adb | 6 | ||||
-rw-r--r-- | src/synth/synth-stmts.adb | 4 | ||||
-rw-r--r-- | src/synth/synth-vhdl_heap.adb (renamed from src/synth/synth-heap.adb) | 4 | ||||
-rw-r--r-- | src/synth/synth-vhdl_heap.ads (renamed from src/synth/synth-heap.ads) | 4 | ||||
-rw-r--r-- | src/synth/synth-vhdl_static_proc.adb | 4 |
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; |