diff options
| author | Robert Dewar <dewar@adacore.com> | 2006-10-31 18:43:17 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 18:43:17 +0100 |
| commit | 524c02d73cada8610253a83558a02ebc5ba9ed25 (patch) | |
| tree | 3f37f743a56bbe74b02bcc19967f77055cb299aa /gcc/ada/a-ngelfu.adb | |
| parent | 7aa422856805314726d6dd2aa81888533b401af8 (diff) | |
| download | gcc-524c02d73cada8610253a83558a02ebc5ba9ed25.zip gcc-524c02d73cada8610253a83558a02ebc5ba9ed25.tar.gz gcc-524c02d73cada8610253a83558a02ebc5ba9ed25.tar.bz2 | |
a-taster.adb, [...]: Minor reformatting.
2006-10-31 Robert Dewar <dewar@adacore.com>
* a-taster.adb, s-traent-vms.adb, a-elchha.ads, a-elchha.adb,
a-exctra.adb, ali-util.adb, exp_disp.ads, s-stalib.ads, s-traent.adb,
s-addope.ads, s-addope.adb, a-rbtgso.adb, a-crbltr.ads, a-coprnu.adb,
a-cgcaso.adb, a-cgarso.adb, a-cgaaso.adb, a-coormu.adb, a-ciormu.adb,
a-rbtgso.ads, a-stunha.adb, a-stunha.adb, a-ciorma.adb, a-coorma.adb,
a-secain.adb, a-slcain.adb, a-shcain.adb, a-stwiha.adb, a-stwiha.adb,
a-strhas.adb, a-strhas.adb, a-stzhas.adb, a-stzhas.adb, a-szuzha.adb,
a-chacon.adb, a-chacon.adb, a-chacon.ads, a-stboha.adb, a-swbwha.adb,
a-szbzha.adb: Minor reformatting. Fix header.
* a-numaux-x86.adb: Add parentheses for use of unary minus
* a-ngcefu.adb: Supply missing parentheses for unary minus
* a-ngcoty.adb: Add parens for use of unary minus
* a-ngelfu.adb: Add missing parens for unary minus
* a-tifiio.adb: Add parentheses for uses of unary minus
From-SVN: r118231
Diffstat (limited to 'gcc/ada/a-ngelfu.adb')
| -rw-r--r-- | gcc/ada/a-ngelfu.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/a-ngelfu.adb b/gcc/ada/a-ngelfu.adb index 97d170d..cb12478 100644 --- a/gcc/ada/a-ngelfu.adb +++ b/gcc/ada/a-ngelfu.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -332,7 +332,7 @@ package body Ada.Numerics.Generic_Elementary_Functions is return Pi / 2.0; elsif X = -1.0 then - return -Pi / 2.0; + return -(Pi / 2.0); end if; return Float_Type'Base (Aux.Asin (Double (X))); @@ -355,7 +355,7 @@ package body Ada.Numerics.Generic_Elementary_Functions is return Cycle / 4.0; elsif X = -1.0 then - return -Cycle / 4.0; + return -(Cycle / 4.0); end if; return Arctan (X / Sqrt ((1.0 - X) * (1.0 + X)), 1.0, Cycle); @@ -373,7 +373,7 @@ package body Ada.Numerics.Generic_Elementary_Functions is elsif X > 1.0 / Sqrt_Epsilon then return Log (X) + Log_Two; - elsif X < -1.0 / Sqrt_Epsilon then + elsif X < -(1.0 / Sqrt_Epsilon) then return -(Log (-X) + Log_Two); elsif X < 0.0 then @@ -448,7 +448,7 @@ package body Ada.Numerics.Generic_Elementary_Functions is if Y > 0.0 then return Cycle / 4.0; else -- Y < 0.0 - return -Cycle / 4.0; + return -(Cycle / 4.0); end if; else |