diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-02-05 08:26:29 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-02-05 08:26:29 +0100 |
| commit | 71143862c7194c7ddddd76201cccadedb3471553 (patch) | |
| tree | 8d3710558e5c68970d97e44cfdab4724f477628a /src | |
| parent | bf0423ee430ba2c1aa4f51c2cb5014c1da85238a (diff) | |
| download | ghdl-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.adb | 2 | ||||
| -rw-r--r-- | src/synth/elab-vhdl_objtypes.adb | 10 | ||||
| -rw-r--r-- | src/synth/elab-vhdl_objtypes.ads | 2 |
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; |