diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 12:09:08 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 12:09:08 +0200 |
| commit | 9d2a20713d87bed983029db5ffacb8dc06662ff6 (patch) | |
| tree | f57566a77072c4f68d1cbfc9fa74d269655364e6 /gcc/ada/a-ngelfu.adb | |
| parent | 7bfff488f808213bf183da60f89f4230271957f4 (diff) | |
| download | gcc-9d2a20713d87bed983029db5ffacb8dc06662ff6.zip gcc-9d2a20713d87bed983029db5ffacb8dc06662ff6.tar.gz gcc-9d2a20713d87bed983029db5ffacb8dc06662ff6.tar.bz2 | |
[multiple changes]
2014-07-31 Robert Dewar <dewar@adacore.com>
* frontend.adb: Minor reformatting.
* sem.adb: Minor reformatting.
* sem_ch6.adb (Analyze_Null_Procedure): Set proper sloc for
identifiers on rewrite.
* par.adb: Minor comment updates.
* a-ngelfu.adb (Cos): Minor simplification.
* par-ch13.adb (Get_Aspect_Specifications): Improve messages
and recovery for bad aspect.
* exp_ch3.adb: Code clean up.
* sem_util.ads: Minor comment correction.
* sem_ch13.adb (Check_Array_Type): Properly handle large types.
* sem_ch3.adb: Code clean up.
* binderr.ads: Minor comment correction.
2014-07-31 Ed Schonberg <schonberg@adacore.com>
* exp_disp.adb (Expand_Interface_Conversion): A call whose
prefix is a static conversion to an interface type that is not
class-wide is not dispatching.
From-SVN: r213338
Diffstat (limited to 'gcc/ada/a-ngelfu.adb')
| -rw-r--r-- | gcc/ada/a-ngelfu.adb | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/a-ngelfu.adb b/gcc/ada/a-ngelfu.adb index 796f574..f31f685 100644 --- a/gcc/ada/a-ngelfu.adb +++ b/gcc/ada/a-ngelfu.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -509,12 +509,8 @@ package body Ada.Numerics.Generic_Elementary_Functions is function Cos (X : Float_Type'Base) return Float_Type'Base is begin - if X = 0.0 then - return 1.0; - - elsif abs X < Sqrt_Epsilon then + if abs X < Sqrt_Epsilon then return 1.0; - end if; return Float_Type'Base (Aux.Cos (Double (X))); |