From db7d0b337e85c3b327efa799418ef92de3a369ce Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 10 May 2019 06:58:57 +0200 Subject: vhdl: replace Iir_Int64 by Int64, and Iir_Fp64 by Fp64. --- src/vhdl/vhdl-sem_inst.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/vhdl/vhdl-sem_inst.adb') diff --git a/src/vhdl/vhdl-sem_inst.adb b/src/vhdl/vhdl-sem_inst.adb index 2fa563987..0611fc8f1 100644 --- a/src/vhdl/vhdl-sem_inst.adb +++ b/src/vhdl/vhdl-sem_inst.adb @@ -352,8 +352,8 @@ package body Vhdl.Sem_Inst is Set_Iir_Mode (Res, F, Get_Iir_Mode (N, F)); when Type_Iir_Index32 => Set_Iir_Index32 (Res, F, Get_Iir_Index32 (N, F)); - when Type_Iir_Int64 => - Set_Iir_Int64 (Res, F, Get_Iir_Int64 (N, F)); + when Type_Int64 => + Set_Int64 (Res, F, Get_Int64 (N, F)); when Type_Boolean => Set_Boolean (Res, F, Get_Boolean (N, F)); when Type_Iir_Staticness => @@ -377,8 +377,8 @@ package body Vhdl.Sem_Inst is Set_Iir_Int32 (Res, F, Get_Iir_Int32 (N, F)); when Type_Int32 => Set_Int32 (Res, F, Get_Int32 (N, F)); - when Type_Iir_Fp64 => - Set_Iir_Fp64 (Res, F, Get_Iir_Fp64 (N, F)); + when Type_Fp64 => + Set_Fp64 (Res, F, Get_Fp64 (N, F)); when Type_Token_Type => Set_Token_Type (Res, F, Get_Token_Type (N, F)); when Type_Name_Id => -- cgit v1.2.3