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-errors.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/vhdl/vhdl-errors.adb') diff --git a/src/vhdl/vhdl-errors.adb b/src/vhdl/vhdl-errors.adb index ac38f006e..d6a8afd66 100644 --- a/src/vhdl/vhdl-errors.adb +++ b/src/vhdl/vhdl-errors.adb @@ -762,9 +762,9 @@ package body Vhdl.Errors is end case; end Disp_Name; - function Image (N : Iir_Int64) return String + function Image (N : Int64) return String is - Res : constant String := Iir_Int64'Image (N); + Res : constant String := Int64'Image (N); begin if Res (1) = ' ' then return Res (2 .. Res'Last); @@ -773,7 +773,7 @@ package body Vhdl.Errors is end if; end Image; - function Disp_Discrete (Dtype : Iir; Pos : Iir_Int64) return String is + function Disp_Discrete (Dtype : Iir; Pos : Int64) return String is begin case Get_Kind (Dtype) is when Iir_Kind_Integer_Type_Definition => -- cgit v1.2.3