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/vhdl-sem_names.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/vhdl-sem_names.adb')
| -rw-r--r-- | src/vhdl/vhdl-sem_names.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb index 1e104fbff..ac3ec321a 100644 --- a/src/vhdl/vhdl-sem_names.adb +++ b/src/vhdl/vhdl-sem_names.adb @@ -1031,7 +1031,7 @@ package body Vhdl.Sem_Names is end if; declare - Dim : Iir_Int64; + Dim : Int64; Indexes_List : constant Iir_Flist := Get_Index_Subtype_List (Prefix_Type); begin @@ -1042,7 +1042,7 @@ package body Vhdl.Sem_Names is else Dim := Get_Value (Parameter); end if; - if Dim < 1 or else Dim > Iir_Int64 (Get_Nbr_Elements (Indexes_List)) + if Dim < 1 or else Dim > Int64 (Get_Nbr_Elements (Indexes_List)) then Error_Msg_Sem (+Attr, "parameter value out of bound"); Dim := 1; @@ -3633,7 +3633,7 @@ package body Vhdl.Sem_Names is Set_Simple_Name_Identifier (Res, Id); Attr_Type := Create_Unidim_Array_By_Length (String_Type_Definition, - Iir_Int64 (Name_Table.Get_Name_Length (Id)), + Int64 (Name_Table.Get_Name_Length (Id)), Attr); Set_Simple_Name_Subtype (Res, Attr_Type); Set_Expr_Staticness (Res, Locally); |