From e2ff35b910f0c9a59d1ae64c142fb5866126f09f Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sat, 5 Dec 2020 08:53:16 +0100 Subject: [PATCH] [Ada] Minor comment fix in System.Val_Real gcc/ada/ * libgnat/s-valrea.adb (Need_Extra): Fix comment. --- gcc/ada/libgnat/s-valrea.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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); -- 2.30.2