From: Eric Botcazou Date: Sat, 5 Dec 2020 07:53:16 +0000 (+0100) Subject: [Ada] Minor comment fix in System.Val_Real X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e2ff35b910f0c9a59d1ae64c142fb5866126f09f;p=gcc.git [Ada] Minor comment fix in System.Val_Real gcc/ada/ * libgnat/s-valrea.adb (Need_Extra): Fix comment. --- diff --git a/gcc/ada/libgnat/s-valrea.adb b/gcc/ada/libgnat/s-valrea.adb index 9614760199d..0ac3846542b 100644 --- a/gcc/ada/libgnat/s-valrea.adb +++ b/gcc/ada/libgnat/s-valrea.adb @@ -43,10 +43,10 @@ package body System.Val_Real is -- We need an unsigned type large enough to represent the mantissa Need_Extra : constant Boolean := Num'Machine_Mantissa > Uns'Size - 4; - -- If the mantissa of the floating-point type is almost as large as that - -- of the unsigned type, we do not have enough space for an extra digit - -- in the unsigned type so we handle the extra digit separately, at the - -- cost of a potential roundoff error. + -- If the mantissa of the floating-point type is almost as large as the + -- unsigned type, we do not have enough space for an extra digit in the + -- unsigned type so we handle the extra digit separately, at the cost of + -- a potential roundoff error. Precision_Limit : constant Uns := (if Need_Extra then 2**Num'Machine_Mantissa - 1 else 2**Uns'Size - 1);