diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-19 12:12:05 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-19 12:12:05 +0100 |
| commit | 0b7f0f0e87a381ab6aaa84b512bf8165115c5874 (patch) | |
| tree | 4b251dd34ac027c2b9fc4f1c8b26a9994b34fbe3 /gcc/ada/a-ngcefu.adb | |
| parent | e7cff5af6f0cde046419d93873b92a9290076ef9 (diff) | |
| download | gcc-0b7f0f0e87a381ab6aaa84b512bf8165115c5874.zip gcc-0b7f0f0e87a381ab6aaa84b512bf8165115c5874.tar.gz gcc-0b7f0f0e87a381ab6aaa84b512bf8165115c5874.tar.bz2 | |
[multiple changes]
2014-02-19 Robert Dewar <dewar@adacore.com>
* par-ch6.adb (P_Return): For extended return, end column lines
up with RETURN.
* par.adb: Minor documentation clarification.
2014-02-19 Yannick Moy <moy@adacore.com>
* sem_prag.adb (Check_Loop_Pragma_Placement): Add check
that Loop_Invariant and Loop_Variant appear consecutively.
* gnat_rm.texi Update documentation of Loop_Invariant and
Loop_Variant pragmas.
2014-02-19 Robert Dewar <dewar@adacore.com>
* debug.adb: Document -gnatd.X.
* par-ch5.adb (P_If_Statement): Always check THEN, even if not
first token
(Check_Then_Column): Ditto.
* styleg.adb (Check_Then): Allow THEN on line after IF.
(Check_Then): Check THEN placement under control of -gnatd.X
* styleg.ads (Check_Then): Now called even if THEN is not first
token on line.
* stylesw.ads (Style_Check_If_Then_Layout): Document new
relaxed rules.
* gnat_ugn.texi: For -gnatyi, THEN can now be on line after IF.
2014-02-19 Robert Dewar <dewar@adacore.com>
* a-cfhama.adb, a-cfhase.adb, a-cforse.adb, a-cofove.adb, a-ngcefu.adb,
a-teioed.adb, a-wtedit.adb, a-ztedit.adb, exp_ch5.adb, inline.adb,
prj-pp.adb, prj-tree.adb, sem_ch12.adb, sem_ch8.adb,
vms_conv.adb: Fix bad layout of IF statements
From-SVN: r207893
Diffstat (limited to 'gcc/ada/a-ngcefu.adb')
| -rw-r--r-- | gcc/ada/a-ngcefu.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/a-ngcefu.adb b/gcc/ada/a-ngcefu.adb index edcdb5a..87a1dc9 100644 --- a/gcc/ada/a-ngcefu.adb +++ b/gcc/ada/a-ngcefu.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, 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- -- @@ -541,8 +541,10 @@ package body Ada.Numerics.Generic_Complex_Elementary_Functions is function Sin (X : Complex) return Complex is begin - if abs Re (X) < Square_Root_Epsilon and then - abs Im (X) < Square_Root_Epsilon then + if abs Re (X) < Square_Root_Epsilon + and then + abs Im (X) < Square_Root_Epsilon + then return X; end if; |