diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-07-31 09:43:55 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 11:43:55 +0200 |
| commit | e9a794351b31fd48b76e65c2dc29f534829e42cc (patch) | |
| tree | e113ac5a4b45830f2790a8af96c4e8eac9a4feb8 /gcc/ada/s-arit64.adb | |
| parent | 7c0c194ba4cd9a9bb779075cb977cb319882bc0b (diff) | |
| download | gcc-e9a794351b31fd48b76e65c2dc29f534829e42cc.zip gcc-e9a794351b31fd48b76e65c2dc29f534829e42cc.tar.gz gcc-e9a794351b31fd48b76e65c2dc29f534829e42cc.tar.bz2 | |
exp_ch5.adb, [...]: Minor comment correction.
2014-07-31 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, freeze.adb, exp_ch3.adb: Minor comment correction.
* s-arit64.adb: Minor reformatting.
2014-07-31 Robert Dewar <dewar@adacore.com>
* gnat1drv.adb (Adjust_Global_Switches): Default for overflow
checking is enabled except in GNAT_Mode.
* switch-c.adb (Scan_Front_End_Switches): Implement -gnato0
(suppress overflow checks).
From-SVN: r213327
Diffstat (limited to 'gcc/ada/s-arit64.adb')
| -rw-r--r-- | gcc/ada/s-arit64.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/s-arit64.adb b/gcc/ada/s-arit64.adb index 51b05f9..adcb66f 100644 --- a/gcc/ada/s-arit64.adb +++ b/gcc/ada/s-arit64.adb @@ -259,8 +259,8 @@ package body System.Arith_64 is T2 := 0; end if; - -- Here we have T2 set to the contribution to the upper half - -- of the result from the upper halves of the input values. + -- Here we have T2 set to the contribution to the upper half of the + -- result from the upper halves of the input values. T1 := Xlo * Ylo; T2 := T2 + Hi (T1); @@ -332,9 +332,9 @@ package body System.Arith_64 is Scale : Natural; -- Scaling factor used for multiple-precision divide. Dividend and - -- Divisor are multiplied by 2 ** Scale, and the final remainder - -- is divided by the scaling factor. The reason for this scaling - -- is to allow more accurate estimation of quotient digits. + -- Divisor are multiplied by 2 ** Scale, and the final remainder is + -- divided by the scaling factor. The reason for this scaling is to + -- allow more accurate estimation of quotient digits. T1, T2, T3 : Uns64; -- Temporary values @@ -383,8 +383,8 @@ package body System.Arith_64 is D (1) := 0; end if; - -- Now it is time for the dreaded multiple precision division. First - -- an easy case, check for the simple case of a one digit divisor. + -- Now it is time for the dreaded multiple precision division. First an + -- easy case, check for the simple case of a one digit divisor. if Zhi = 0 then if D (1) /= 0 or else D (2) >= Zlo then |