diff options
Diffstat (limited to 'src/vhdl/vhdl-disp_vhdl.adb')
-rw-r--r-- | src/vhdl/vhdl-disp_vhdl.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vhdl/vhdl-disp_vhdl.adb b/src/vhdl/vhdl-disp_vhdl.adb index f54d06788..e60480dfb 100644 --- a/src/vhdl/vhdl-disp_vhdl.adb +++ b/src/vhdl/vhdl-disp_vhdl.adb @@ -3582,9 +3582,9 @@ package body Vhdl.Disp_Vhdl is end case; end Disp_Vhdl; - procedure Disp_Int64 (Val: Iir_Int64) + procedure Disp_Int64 (Val: Int64) is - Str: constant String := Iir_Int64'Image (Val); + Str: constant String := Int64'Image (Val); begin if Str (Str'First) = ' ' then Put (Str (Str'First + 1 .. Str'Last)); @@ -3604,9 +3604,9 @@ package body Vhdl.Disp_Vhdl is end if; end Disp_Int32; - procedure Disp_Fp64 (Val: Iir_Fp64) + procedure Disp_Fp64 (Val: Fp64) is - Str: constant String := Iir_Fp64'Image (Val); + Str: constant String := Fp64'Image (Val); begin if Str (Str'First) = ' ' then Put (Str (Str'First + 1 .. Str'Last)); |