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_objtypes.adb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/synth/elab-vhdl_objtypes.adb') 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 -- cgit v1.2.3