1 parent 10659e3 commit a3552a9Copy full SHA for a3552a9
1 file changed
src/system/system-vxworks7-x86-ravenscar-sfp-rtp.ads
@@ -78,8 +78,8 @@ package System is
78
Max_Binary_Modulus : constant := 2 ** Standard'Max_Integer_Size;
79
Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
80
81
- Max_Base_Digits : constant := Long_Long_Float'Digits;
82
- Max_Digits : constant := Long_Long_Float'Digits;
+ Max_Base_Digits : constant := Long_Float'Digits;
+ Max_Digits : constant := Long_Float'Digits;
83
84
Max_Mantissa : constant := Standard'Max_Integer_Size - 1;
85
Fine_Delta : constant := 2.0 ** (-Max_Mantissa);
0 commit comments