diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-01 23:12:30 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-01 23:12:30 +0200 |
commit | 345a2a99fac5291417c1f477bdfd6caad7ee71a9 (patch) | |
tree | 2e0077047d02166f7d8a32e8c027262c9da4e21c /src/synth/synth-values.adb | |
parent | 2c66a8bd567a50f4eb2e4bb3d35e9e3dd1e10ff5 (diff) | |
download | ghdl-345a2a99fac5291417c1f477bdfd6caad7ee71a9.tar.gz ghdl-345a2a99fac5291417c1f477bdfd6caad7ee71a9.tar.bz2 ghdl-345a2a99fac5291417c1f477bdfd6caad7ee71a9.zip |
synth: use more Dim_Type.
Diffstat (limited to 'src/synth/synth-values.adb')
-rw-r--r-- | src/synth/synth-values.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index f9fd187cb..2fbdd0d6a 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -343,7 +343,7 @@ package body Synth.Values is El); end Create_Vec_Type_By_Length; - function Create_Bound_Array (Ndims : Iir_Index32) return Bound_Array_Acc + function Create_Bound_Array (Ndims : Dim_Type) return Bound_Array_Acc is use System; subtype Data_Type is Bound_Array (Ndims); @@ -388,7 +388,7 @@ package body Synth.Values is Arr_El => El_Type))); end Create_Array_Type; - function Create_Unbounded_Array (Ndim : Iir_Index32; El_Type : Type_Acc) + function Create_Unbounded_Array (Ndim : Dim_Type; El_Type : Type_Acc) return Type_Acc is subtype Unbounded_Type_Type is Type_Type (Type_Unbounded_Array); @@ -438,7 +438,7 @@ package body Synth.Values is end if; return Typ.Vbound; when Type_Array => - return Typ.Abounds.D (Iir_Index32 (Dim)); + return Typ.Abounds.D (Dim); when others => raise Internal_Error; end case; @@ -850,7 +850,7 @@ package body Synth.Values is return Atype.W; end Get_Type_Width; - function Get_Bound_Length (T : Type_Acc; Dim : Iir_Index32) return Width is + function Get_Bound_Length (T : Type_Acc; Dim : Dim_Type) return Width is begin case T.Kind is when Type_Vector => |