From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 5071038708F9; Thu, 17 Dec 2020 10:51:47 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 5071038708F9 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r11-6217] [Ada] Minor comment fix in System.Val_Real X-Act-Checkin: gcc X-Git-Author: Eric Botcazou X-Git-Refname: refs/heads/master X-Git-Oldrev: 96c1f71463d067012241179df71c5872cec7a765 X-Git-Newrev: e2ff35b910f0c9a59d1ae64c142fb5866126f09f Message-Id: <20201217105147.5071038708F9@sourceware.org> Date: Thu, 17 Dec 2020 10:51:47 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 17 Dec 2020 10:51:47 -0000 https://gcc.gnu.org/g:e2ff35b910f0c9a59d1ae64c142fb5866126f09f commit r11-6217-ge2ff35b910f0c9a59d1ae64c142fb5866126f09f Author: Eric Botcazou Date: Sat Dec 5 08:53:16 2020 +0100 [Ada] Minor comment fix in System.Val_Real gcc/ada/ * libgnat/s-valrea.adb (Need_Extra): Fix comment. Diff: --- 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);