diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 17:43:17 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 17:43:17 +0000 |
| commit | 54aa575d5b79ea2411858ee5ac9f1194f7befa3f (patch) | |
| tree | 3f37f743a56bbe74b02bcc19967f77055cb299aa /gcc | |
| parent | 8744aea811f896b6b6f8f8021f1460bfdb901a27 (diff) | |
| download | gcc-54aa575d5b79ea2411858ee5ac9f1194f7befa3f.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118231 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
40 files changed, 86 insertions, 178 deletions
diff --git a/gcc/ada/a-cgaaso.adb b/gcc/ada/a-cgaaso.adb index b91de5fc55a..5c2e22d3b0d 100644 --- a/gcc/ada/a-cgaaso.adb +++ b/gcc/ada/a-cgaaso.adb @@ -9,10 +9,6 @@ -- -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. -- -- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- --- -- -- 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- -- -- ware Foundation; either version 2, or (at your option) any later ver- -- @@ -34,7 +30,7 @@ -- This unit was originally developed by Matthew J Heaney. -- ------------------------------------------------------------------------------ --- This algorithm was adapted from GNAT.Heap_Sort (see g-heasor.ad[sb]). +-- This algorithm was adapted from GNAT.Heap_Sort (see g-heasor.ad[sb]) with System; diff --git a/gcc/ada/a-cgarso.adb b/gcc/ada/a-cgarso.adb index 8d5a08b4f14..1b09dcf1cde 100644 --- a/gcc/ada/a-cgarso.adb +++ b/gcc/ada/a-cgarso.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-cgcaso.adb b/gcc/ada/a-cgcaso.adb index 43ddb645b04..e61ae71d0c5 100644 --- a/gcc/ada/a-cgcaso.adb +++ b/gcc/ada/a-cgcaso.adb @@ -9,10 +9,6 @@ -- -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. -- -- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- --- -- -- 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- -- -- ware Foundation; either version 2, or (at your option) any later ver- -- @@ -34,7 +30,7 @@ -- This unit has originally being developed by Matthew J Heaney. -- ------------------------------------------------------------------------------ --- This algorithm was adapted from GNAT.Heap_Sort_G (see g-hesorg.ad[sb]). +-- This algorithm was adapted from GNAT.Heap_Sort_G (see g-hesorg.ad[sb]) with System; diff --git a/gcc/ada/a-chacon.adb b/gcc/ada/a-chacon.adb index 9884337fea7..d95db64a680 100755 --- a/gcc/ada/a-chacon.adb +++ b/gcc/ada/a-chacon.adb @@ -2,15 +2,11 @@ -- -- -- GNAT RUN-TIME COMPONENTS -- -- -- --- A D A . C H A R A C T E R S . H A N D L I N G -- +-- A D A . C H A R A C T E R S . C O N V E R S I O N S -- -- -- -- B o d y -- -- -- --- Copyright (C) 2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2005-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- -- diff --git a/gcc/ada/a-chacon.ads b/gcc/ada/a-chacon.ads index 9ce9337291e..7c7ea8393ac 100755 --- a/gcc/ada/a-chacon.ads +++ b/gcc/ada/a-chacon.ads @@ -2,11 +2,11 @@ -- -- -- GNAT RUN-TIME COMPONENTS -- -- -- --- A D A . C H A R A C T E R S . H A N D L I N G -- +-- A D A . C H A R A C T E R S . C O N V E R S I O N S -- -- -- -- S p e c -- -- -- --- Copyright (C) 2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2005-2006, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- diff --git a/gcc/ada/a-ciorma.adb b/gcc/ada/a-ciorma.adb index fda5c3971de..dc806bc32fb 100644 --- a/gcc/ada/a-ciorma.adb +++ b/gcc/ada/a-ciorma.adb @@ -7,11 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-ciormu.adb b/gcc/ada/a-ciormu.adb index 980e868f0ef..f3af12e2785 100644 --- a/gcc/ada/a-ciormu.adb +++ b/gcc/ada/a-ciormu.adb @@ -9,10 +9,6 @@ -- -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. -- -- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- --- -- -- 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- -- -- ware Foundation; either version 2, or (at your option) any later ver- -- diff --git a/gcc/ada/a-coorma.adb b/gcc/ada/a-coorma.adb index 95b8796c8d4..81e0d4eb246 100644 --- a/gcc/ada/a-coorma.adb +++ b/gcc/ada/a-coorma.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-coormu.adb b/gcc/ada/a-coormu.adb index 2ad3613016f..912bde39025 100644 --- a/gcc/ada/a-coormu.adb +++ b/gcc/ada/a-coormu.adb @@ -8,10 +8,6 @@ -- -- -- Copyright (C) 2004-2006, Free Software Foundation, Inc. -- -- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- --- -- -- 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- -- -- ware Foundation; either version 2, or (at your option) any later ver- -- diff --git a/gcc/ada/a-coprnu.adb b/gcc/ada/a-coprnu.adb index fd7f34580a8..9840c8daa7a 100644 --- a/gcc/ada/a-coprnu.adb +++ b/gcc/ada/a-coprnu.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-crbltr.ads b/gcc/ada/a-crbltr.ads index 391892920f8..ee966f9a1ef 100644 --- a/gcc/ada/a-crbltr.ads +++ b/gcc/ada/a-crbltr.ads @@ -6,11 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- @@ -33,6 +29,8 @@ -- This unit was originally developed by Matthew J Heaney. -- ------------------------------------------------------------------------------ +-- This package declares the tree type used to implement ordered containers + package Ada.Containers.Red_Black_Trees is pragma Pure; diff --git a/gcc/ada/a-elchha.adb b/gcc/ada/a-elchha.adb index 135daf50f7f..fabd3ff68f6 100644 --- a/gcc/ada/a-elchha.adb +++ b/gcc/ada/a-elchha.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2003-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- -- diff --git a/gcc/ada/a-elchha.ads b/gcc/ada/a-elchha.ads index 9d40242d83e..bbd68b45063 100644 --- a/gcc/ada/a-elchha.ads +++ b/gcc/ada/a-elchha.ads @@ -6,11 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2003 Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2003-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- -- @@ -35,8 +31,7 @@ -- -- ------------------------------------------------------------------------------ --- Last chance handler. Unhandled exceptions are passed to this --- routine. +-- Last chance handler. Unhandled exceptions are passed to this routine procedure Ada.Exceptions.Last_Chance_Handler (Except : Exception_Occurrence); diff --git a/gcc/ada/a-exctra.adb b/gcc/ada/a-exctra.adb index 1b3c79d2a5b..acfa21bf013 100644 --- a/gcc/ada/a-exctra.adb +++ b/gcc/ada/a-exctra.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2003 Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 1999-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- -- diff --git a/gcc/ada/a-ngcefu.adb b/gcc/ada/a-ngcefu.adb index d0e203d2780..2807a3e11b6 100644 --- a/gcc/ada/a-ngcefu.adb +++ b/gcc/ada/a-ngcefu.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- -- @@ -420,7 +420,7 @@ package body Ada.Numerics.Generic_Complex_Elementary_Functions is return Compose_From_Cartesian (Cos (Re (X)) * Cosh (Im (X)), - -Sin (Re (X)) * Sinh (Im (X))); + -(Sin (Re (X)) * Sinh (Im (X)))); end Cos; ---------- diff --git a/gcc/ada/a-ngcoty.adb b/gcc/ada/a-ngcoty.adb index 044f748fb6a..548f2d671ee 100644 --- a/gcc/ada/a-ngcoty.adb +++ b/gcc/ada/a-ngcoty.adb @@ -69,7 +69,7 @@ package body Ada.Numerics.Generic_Complex_Types is function "*" (Left, Right : Imaginary) return Real'Base is begin - return -R (Left) * R (Right); + return -(R (Left) * R (Right)); end "*"; function "*" (Left : Complex; Right : Real'Base) return Complex is @@ -317,8 +317,8 @@ package body Ada.Numerics.Generic_Complex_Types is c : constant R := Right.Re; d : constant R := Right.Im; begin - return Complex'(Re => (a * c) / (c ** 2 + d ** 2), - Im => -(a * d) / (c ** 2 + d ** 2)); + return Complex'(Re => (a * c) / (c ** 2 + d ** 2), + Im => -((a * d) / (c ** 2 + d ** 2))); end "/"; function "/" (Left : Complex; Right : Imaginary) return Complex is @@ -327,7 +327,7 @@ package body Ada.Numerics.Generic_Complex_Types is d : constant R := R (Right); begin - return (b / d, -a / d); + return (b / d, -(a / d)); end "/"; function "/" (Left : Imaginary; Right : Complex) return Complex is @@ -347,7 +347,7 @@ package body Ada.Numerics.Generic_Complex_Types is function "/" (Left : Real'Base; Right : Imaginary) return Imaginary is begin - return Imaginary (-Left / R (Right)); + return Imaginary (-(Left / R (Right))); end "/"; --------- diff --git a/gcc/ada/a-ngelfu.adb b/gcc/ada/a-ngelfu.adb index 97d170dd474..cb12478e25c 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 diff --git a/gcc/ada/a-numaux-x86.adb b/gcc/ada/a-numaux-x86.adb index e154671a229..5c85661eeb9 100644 --- a/gcc/ada/a-numaux-x86.adb +++ b/gcc/ada/a-numaux-x86.adb @@ -7,7 +7,7 @@ -- B o d y -- -- (Machine Version for x86) -- -- -- --- Copyright (C) 1998-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1998-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- -- @@ -566,7 +566,7 @@ package body Ada.Numerics.Aux is return Double'Copy_Sign (1.0, X); end if; - return 1.0 / (1.0 + Exp (-2.0 * X)) - 1.0 / (1.0 + Exp (2.0 * X)); + return 1.0 / (1.0 + Exp (-(2.0 * X))) - 1.0 / (1.0 + Exp (2.0 * X)); end Tanh; end Ada.Numerics.Aux; diff --git a/gcc/ada/a-rbtgso.adb b/gcc/ada/a-rbtgso.adb index fcb9adf2fc6..fc0c706304a 100644 --- a/gcc/ada/a-rbtgso.adb +++ b/gcc/ada/a-rbtgso.adb @@ -7,11 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-rbtgso.ads b/gcc/ada/a-rbtgso.ads index 381ac5b0b6d..69316573d33 100644 --- a/gcc/ada/a-rbtgso.ads +++ b/gcc/ada/a-rbtgso.ads @@ -5,15 +5,34 @@ -- A D A . C O N T A I N E R S . R E D _ B L A C K _ T R E E S . -- -- G E N E R I C _ S E T _ O P E R A T I O N S -- -- -- --- S p e c -- +-- B o d y -- -- -- --- This specification is adapted from the Ada Reference Manual for use with -- --- GNAT. In accordance with the copyright of that document, you can freely -- --- copy and modify this specification, provided that if you redistribute a -- --- modified version, any changes that you have made are clearly indicated. -- +-- Copyright (C) 2004-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- -- +-- ware Foundation; either version 2, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- +-- for more details. You should have received a copy of the GNU General -- +-- Public License distributed with GNAT; see file COPYING. If not, write -- +-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- +-- Boston, MA 02110-1301, USA. -- +-- -- +-- As a special exception, if other files instantiate generics from this -- +-- unit, or you link this unit with other files to produce an executable, -- +-- this unit does not by itself cause the resulting executable to be -- +-- covered by the GNU General Public License. This exception does not -- +-- however invalidate any other reasons why the executable file might be -- +-- covered by the GNU Public License. -- +-- -- +-- This unit was originally developed by Matthew J Heaney. -- ------------------------------------------------------------------------------ +-- Tree_Type is used to implement ordered containers. This package declares +-- set-based tree operations. + with Ada.Containers.Red_Black_Trees.Generic_Operations; generic diff --git a/gcc/ada/a-secain.adb b/gcc/ada/a-secain.adb index 74d222d6a59..d901b3c67cc 100644 --- a/gcc/ada/a-secain.adb +++ b/gcc/ada/a-secain.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-shcain.adb b/gcc/ada/a-shcain.adb index 4b6000c26be..737a968cd67 100644 --- a/gcc/ada/a-shcain.adb +++ b/gcc/ada/a-shcain.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-slcain.adb b/gcc/ada/a-slcain.adb index 5a5b8928c43..b87a4809593 100644 --- a/gcc/ada/a-slcain.adb +++ b/gcc/ada/a-slcain.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-stboha.adb b/gcc/ada/a-stboha.adb index ba5ce06b0d2..ae5cd931241 100644 --- a/gcc/ada/a-stboha.adb +++ b/gcc/ada/a-stboha.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2006 Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-strhas.adb b/gcc/ada/a-strhas.adb index ba02a75c68c..2c18043a8fa 100644 --- a/gcc/ada/a-strhas.adb +++ b/gcc/ada/a-strhas.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-stunha.adb b/gcc/ada/a-stunha.adb index 34db5634116..ba6f55442d2 100644 --- a/gcc/ada/a-stunha.adb +++ b/gcc/ada/a-stunha.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-stwiha.adb b/gcc/ada/a-stwiha.adb index dd38568440d..3a0b0b16688 100644 --- a/gcc/ada/a-stwiha.adb +++ b/gcc/ada/a-stwiha.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-stzhas.adb b/gcc/ada/a-stzhas.adb index ec5e928edc1..6ca526c39df 100644 --- a/gcc/ada/a-stzhas.adb +++ b/gcc/ada/a-stzhas.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-swbwha.adb b/gcc/ada/a-swbwha.adb index 42b844ba8f2..6a5f84777e6 100644 --- a/gcc/ada/a-swbwha.adb +++ b/gcc/ada/a-swbwha.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2006 Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-szbzha.adb b/gcc/ada/a-szbzha.adb index 458f47757d4..641edca2331 100644 --- a/gcc/ada/a-szbzha.adb +++ b/gcc/ada/a-szbzha.adb @@ -7,11 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2006 Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-szuzha.adb b/gcc/ada/a-szuzha.adb index fff8114e656..f210d7a8923 100644 --- a/gcc/ada/a-szuzha.adb +++ b/gcc/ada/a-szuzha.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/a-taster.adb b/gcc/ada/a-taster.adb index 8b0be0a22f6..559e261ff9a 100644 --- a/gcc/ada/a-taster.adb +++ b/gcc/ada/a-taster.adb @@ -8,10 +8,6 @@ -- -- -- Copyright (C) 2005-2006, Free Software Foundation, Inc. -- -- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- --- -- -- 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- -- -- ware Foundation; either version 2, or (at your option) any later ver- -- diff --git a/gcc/ada/a-tifiio.adb b/gcc/ada/a-tifiio.adb index d94688668f8..fe06c2c99e7 100644 --- a/gcc/ada/a-tifiio.adb +++ b/gcc/ada/a-tifiio.adb @@ -279,7 +279,7 @@ package body Ada.Text_IO.Fixed_IO is -- decimal point. subtype Int is Integer; - E0 : constant Int := -20 * Boolean'Pos (Num'Small >= 1.0E1); + E0 : constant Int := -(20 * Boolean'Pos (Num'Small >= 1.0E1)); E1 : constant Int := E0 + 10 * Boolean'Pos (Num'Small * 10.0**E0 < 1.0E-10); E2 : constant Int := E1 + 5 * Boolean'Pos (Num'Small * 10.0**E1 < 1.0E-5); E3 : constant Int := E2 + 3 * Boolean'Pos (Num'Small * 10.0**E2 < 1.0E-3); @@ -637,10 +637,10 @@ package body Ada.Text_IO.Fixed_IO is if Exact then Y := Int64'Min (Int64 (-Num'Small), -1) * 10**Integer'Max (0, D); - Z := Int64'Min (Int64 (-1.0 / Num'Small), -1) + Z := Int64'Min (Int64 (-(1.0 / Num'Small)), -1) * 10**Integer'Max (0, -D); else - Y := Int64 (-Num'Small * 10.0**E); + Y := Int64 (-(Num'Small * 10.0**E)); Z := -10**Max_Digits; end if; diff --git a/gcc/ada/ali-util.adb b/gcc/ada/ali-util.adb index a3369772d12..2ed90a70e18 100644 --- a/gcc/ada/ali-util.adb +++ b/gcc/ada/ali-util.adb @@ -137,6 +137,7 @@ package body ALI.Util is function Get_File_Checksum (Fname : Name_Id) return Word is Full_Name : Name_Id; Source_Index : Source_File_Index; + begin Full_Name := Find_File (Fname, Osint.Source); diff --git a/gcc/ada/exp_disp.ads b/gcc/ada/exp_disp.ads index 50f1a6b2f26..f68fe458b74 100644 --- a/gcc/ada/exp_disp.ads +++ b/gcc/ada/exp_disp.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- 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- -- @@ -209,7 +209,7 @@ package Exp_Disp is -- the required tag checks when appropriate. For CPP types the call is -- done through the Vtable (tag checks are not relevant) - procedure Expand_Interface_Actuals (Call_Node : Node_Id); + procedure Expand_Interface_Actuals (Call_Node : Node_Id); -- Ada 2005 (AI-251): Displace all the actuals corresponding to class-wide -- interfaces to reference the interface tag of the actual object diff --git a/gcc/ada/s-addope.adb b/gcc/ada/s-addope.adb index 12ed81d6aae..984897a6a01 100644 --- a/gcc/ada/s-addope.adb +++ b/gcc/ada/s-addope.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004 Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the implementation dependent sections of this file. -- +-- Copyright (C) 2004-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- -- diff --git a/gcc/ada/s-addope.ads b/gcc/ada/s-addope.ads index 89b089b307c..680fe35ae4e 100644 --- a/gcc/ada/s-addope.ads +++ b/gcc/ada/s-addope.ads @@ -6,11 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2004-2005 Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the implementation dependent sections of this file. -- +-- Copyright (C) 2004-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- -- @@ -59,6 +55,13 @@ package System.Address_Operations is -- Standard (which may or may not be visible depending on the exact -- form of the declaration of type System.Address). + -- For addition, subtraction, and multiplication, the effect of overflow + -- is 2's complement wrapping (as though the type Address were unsigned). + + -- For division and modulus operations, the caller is responsible for + -- ensuring that the Right argument is non-zero, and the effect of the + -- call is not specified if a zero argument is passed. + function AddA (Left, Right : Address) return Address; function SubA (Left, Right : Address) return Address; function MulA (Left, Right : Address) return Address; diff --git a/gcc/ada/s-stalib.ads b/gcc/ada/s-stalib.ads index 8388e8d7ac2..e609d480eeb 100644 --- a/gcc/ada/s-stalib.ads +++ b/gcc/ada/s-stalib.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- 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- -- @@ -258,7 +258,7 @@ package System.Standard_Library is Exception_Trace : Exception_Trace_Kind := RM_Convention; pragma Atomic (Exception_Trace); - -- By default, follow the RM convention. + -- By default, follow the RM convention ----------------- -- Subprograms -- diff --git a/gcc/ada/s-traent-vms.adb b/gcc/ada/s-traent-vms.adb index 089f514a2eb..029be03fa8b 100644 --- a/gcc/ada/s-traent-vms.adb +++ b/gcc/ada/s-traent-vms.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2005 Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2003-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- -- diff --git a/gcc/ada/s-traent.adb b/gcc/ada/s-traent.adb index b3ef1289bf7..0ff61a2b22d 100644 --- a/gcc/ada/s-traent.adb +++ b/gcc/ada/s-traent.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2005 Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- +-- Copyright (C) 2003-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- -- |