aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2023-02-05 08:26:29 +0100
committerTristan Gingold <tgingold@free.fr>2023-02-05 08:26:29 +0100
commit71143862c7194c7ddddd76201cccadedb3471553 (patch)
tree8d3710558e5c68970d97e44cfdab4724f477628a /src
parentbf0423ee430ba2c1aa4f51c2cb5014c1da85238a (diff)
downloadghdl-71143862c7194c7ddddd76201cccadedb3471553.tar.gz
ghdl-71143862c7194c7ddddd76201cccadedb3471553.tar.bz2
ghdl-71143862c7194c7ddddd76201cccadedb3471553.zip
elab-vhdl_objtypes: rename acc_bnd_sz to acc_type_sz
Diffstat (limited to 'src')
-rw-r--r--src/synth/elab-vhdl_heap.adb2
-rw-r--r--src/synth/elab-vhdl_objtypes.adb10
-rw-r--r--src/synth/elab-vhdl_objtypes.ads2
3 files changed, 7 insertions, 7 deletions
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;