diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-10 06:58:57 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-10 18:14:47 +0200 |
commit | db7d0b337e85c3b327efa799418ef92de3a369ce (patch) | |
tree | b1aec6a72ccf989da9617cbc0f581b12eb80b8c8 /src/vhdl/translate/trans-chap3.adb | |
parent | 2c5ce4b3aab14d67e97623e8dfe31cf27a043e7c (diff) | |
download | ghdl-db7d0b337e85c3b327efa799418ef92de3a369ce.tar.gz ghdl-db7d0b337e85c3b327efa799418ef92de3a369ce.tar.bz2 ghdl-db7d0b337e85c3b327efa799418ef92de3a369ce.zip |
vhdl: replace Iir_Int64 by Int64, and Iir_Fp64 by Fp64.
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 971d52b31..8c3021d43 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -340,7 +340,7 @@ package body Trans.Chap3 is St : constant Iir := Get_Subtype_Definition (Get_Type_Declarator (Def)); L, H : Iir; - Lv, Hv : Iir_Int64; + Lv, Hv : Int64; begin Get_Low_High_Limit (Get_Range_Constraint (St), L, H); Lv := Get_Value (L); @@ -983,12 +983,12 @@ package body Trans.Chap3 is -- Get the length of DEF, ie the number of elements. -- If the length is not statically defined, returns -1. function Get_Array_Subtype_Length (Def : Iir_Array_Subtype_Definition) - return Iir_Int64 + return Int64 is Indexes_List : constant Iir_Flist := Get_Index_Subtype_List (Def); Index : Iir; - Idx_Len : Iir_Int64; - Len : Iir_Int64; + Idx_Len : Int64; + Len : Int64; begin -- Check if the bounds of the array are locally static. Len := 1; @@ -1059,7 +1059,7 @@ package body Trans.Chap3 is Info : constant Type_Info_Acc := Get_Info (Def); Pinfo : constant Type_Info_Acc := Get_Info (Parent_Type); - Len : Iir_Int64; + Len : Int64; Id : O_Ident; El_Constrained : Boolean; @@ -2068,24 +2068,24 @@ package body Trans.Chap3 is end; when Type_Mode_I64 => declare - V : Iir_Int64; + V : Int64; begin V := Get_Value (Lit); if Is_Hi then - return V = Iir_Int64'Last; + return V = Int64'Last; else - return V = Iir_Int64'First; + return V = Int64'First; end if; end; when Type_Mode_P64 => declare - V : Iir_Int64; + V : Int64; begin V := Get_Physical_Value (Lit); if Is_Hi then - return V = Iir_Int64'Last; + return V = Int64'Last; else - return V = Iir_Int64'First; + return V = Int64'First; end if; end; when Type_Mode_F64 => @@ -2657,7 +2657,7 @@ package body Trans.Chap3 is Indexes_List : constant Iir_Flist := Get_Index_Subtype_List (Atype); Nbr_Dim : constant Natural := Get_Nbr_Elements (Indexes_List); Index : Iir; - Val : Iir_Int64; + Val : Int64; Rng : Iir; begin Val := 1; |