From 71143862c7194c7ddddd76201cccadedb3471553 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 5 Feb 2023 08:26:29 +0100 Subject: elab-vhdl_objtypes: rename acc_bnd_sz to acc_type_sz --- src/synth/elab-vhdl_heap.adb | 2 +- src/synth/elab-vhdl_objtypes.adb | 10 +++++----- src/synth/elab-vhdl_objtypes.ads | 2 +- 3 files changed, 7 insertions(+), 7 deletions(-) (limited to 'src') diff --git a/src/synth/elab-vhdl_heap.adb b/src/synth/elab-vhdl_heap.adb index 8b125c589..8e89d9387 100644 --- a/src/synth/elab-vhdl_heap.adb +++ b/src/synth/elab-vhdl_heap.adb @@ -63,7 +63,7 @@ package body Elab.Vhdl_Heap is Obj_Typ : Type_Acc; Res : out Memory_Ptr) is - Typ_Sz : constant Size_Type := Acc_Typ.Acc_Bnd_Sz; + Typ_Sz : constant Size_Type := Acc_Typ.Acc_Type_Sz; E : Heap_Entry; begin pragma Assert (Acc_Typ.Kind = Type_Access); diff --git a/src/synth/elab-vhdl_objtypes.adb b/src/synth/elab-vhdl_objtypes.adb index f59380091..6f3c88675 100644 --- a/src/synth/elab-vhdl_objtypes.adb +++ b/src/synth/elab-vhdl_objtypes.adb @@ -679,13 +679,13 @@ package body Elab.Vhdl_Objtypes is is subtype Access_Type_Type is Type_Type (Type_Access); function Alloc is new Areapools.Alloc_On_Pool_Addr (Access_Type_Type); - Bnd_Sz : Size_Type; + Type_Sz : Size_Type; begin if Acc_Type = null then -- For incomplete type. - Bnd_Sz := 0; + Type_Sz := 0; else - Bnd_Sz := Compute_Size_Type (Acc_Type); + Type_Sz := Compute_Size_Type (Acc_Type); end if; return To_Type_Acc (Alloc (Current_Pool, (Kind => Type_Access, Wkind => Wkind_Sim, @@ -694,13 +694,13 @@ package body Elab.Vhdl_Objtypes is Sz => Heap_Ptr_Sz, W => 1, Acc_Acc => Acc_Type, - Acc_Bnd_Sz => Bnd_Sz))); + Acc_Type_Sz => Type_Sz))); end Create_Access_Type; procedure Complete_Access_Type (Acc_Type : Type_Acc; Des_Typ : Type_Acc) is begin Acc_Type.Acc_Acc := Des_Typ; - Acc_Type.Acc_Bnd_Sz := Compute_Size_Type (Des_Typ); + Acc_Type.Acc_Type_Sz := Compute_Size_Type (Des_Typ); end Complete_Access_Type; function Create_File_Type (File_Type : Type_Acc) return Type_Acc diff --git a/src/synth/elab-vhdl_objtypes.ads b/src/synth/elab-vhdl_objtypes.ads index dcd29a6cf..a310cce27 100644 --- a/src/synth/elab-vhdl_objtypes.ads +++ b/src/synth/elab-vhdl_objtypes.ads @@ -201,7 +201,7 @@ package Elab.Vhdl_Objtypes is when Type_Access => Acc_Acc : Type_Acc; -- Memory size to store the type. - Acc_Bnd_Sz : Size_Type; + Acc_Type_Sz : Size_Type; when Type_File => File_Typ : Type_Acc; File_Signature : String_Acc; -- cgit v1.2.3