Index: a-taster.adb =================================================================== --- a-taster.adb (revision 118179) +++ a-taster.adb (working copy) @@ -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- -- Index: s-traent-vms.adb =================================================================== --- s-traent-vms.adb (revision 118179) +++ s-traent-vms.adb (working copy) @@ -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- -- Index: a-elchha.ads =================================================================== --- a-elchha.ads (revision 118179) +++ a-elchha.ads (working copy) @@ -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); Index: a-elchha.adb =================================================================== --- a-elchha.adb (revision 118179) +++ a-elchha.adb (working copy) @@ -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- -- Index: a-exctra.adb =================================================================== --- a-exctra.adb (revision 118179) +++ a-exctra.adb (working copy) @@ -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- -- Index: ali-util.adb =================================================================== --- ali-util.adb (revision 118179) +++ ali-util.adb (working copy) @@ -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); Index: exp_disp.ads =================================================================== --- exp_disp.ads (revision 118179) +++ exp_disp.ads (working copy) @@ -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 Index: s-stalib.ads =================================================================== --- s-stalib.ads (revision 118179) +++ s-stalib.ads (working copy) @@ -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 -- Index: s-traent.adb =================================================================== --- s-traent.adb (revision 118179) +++ s-traent.adb (working copy) @@ -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- -- Index: s-addope.ads =================================================================== --- s-addope.ads (revision 118179) +++ s-addope.ads (working copy) @@ -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; Index: s-addope.adb =================================================================== --- s-addope.adb (revision 118179) +++ s-addope.adb (working copy) @@ -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- -- Index: a-rbtgso.adb =================================================================== --- a-rbtgso.adb (revision 118179) +++ a-rbtgso.adb (working copy) @@ -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- -- Index: a-crbltr.ads =================================================================== --- a-crbltr.ads (revision 118179) +++ a-crbltr.ads (working copy) @@ -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; Index: a-coprnu.adb =================================================================== --- a-coprnu.adb (revision 118179) +++ a-coprnu.adb (working copy) @@ -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- -- Index: a-cgcaso.adb =================================================================== --- a-cgcaso.adb (revision 118179) +++ a-cgcaso.adb (working copy) @@ -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; Index: a-cgarso.adb =================================================================== --- a-cgarso.adb (revision 118179) +++ a-cgarso.adb (working copy) @@ -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- -- Index: a-cgaaso.adb =================================================================== --- a-cgaaso.adb (revision 118179) +++ a-cgaaso.adb (working copy) @@ -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; Index: a-coormu.adb =================================================================== --- a-coormu.adb (revision 118179) +++ a-coormu.adb (working copy) @@ -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- -- Index: a-ciormu.adb =================================================================== --- a-ciormu.adb (revision 118179) +++ a-ciormu.adb (working copy) @@ -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- -- Index: a-rbtgso.ads =================================================================== --- a-rbtgso.ads (revision 118179) +++ a-rbtgso.ads (working copy) @@ -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 Index: a-stunha.adb =================================================================== --- a-stunha.adb (revision 118179) +++ a-stunha.adb (working copy) @@ -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- -- Index: a-stunha.adb =================================================================== --- a-stunha.adb (revision 118179) +++ a-stunha.adb (working copy) @@ -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- -- Index: a-ciorma.adb =================================================================== --- a-ciorma.adb (revision 118179) +++ a-ciorma.adb (working copy) @@ -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- -- Index: a-coorma.adb =================================================================== --- a-coorma.adb (revision 118179) +++ a-coorma.adb (working copy) @@ -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- -- Index: a-secain.adb =================================================================== --- a-secain.adb (revision 118179) +++ a-secain.adb (working copy) @@ -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- -- Index: a-slcain.adb =================================================================== --- a-slcain.adb (revision 118179) +++ a-slcain.adb (working copy) @@ -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- -- Index: a-shcain.adb =================================================================== --- a-shcain.adb (revision 118179) +++ a-shcain.adb (working copy) @@ -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- -- Index: a-stwiha.adb =================================================================== --- a-stwiha.adb (revision 118179) +++ a-stwiha.adb (working copy) @@ -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- -- Index: a-stwiha.adb =================================================================== --- a-stwiha.adb (revision 118179) +++ a-stwiha.adb (working copy) @@ -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- -- Index: a-strhas.adb =================================================================== --- a-strhas.adb (revision 118179) +++ a-strhas.adb (working copy) @@ -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- -- Index: a-strhas.adb =================================================================== --- a-strhas.adb (revision 118179) +++ a-strhas.adb (working copy) @@ -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- -- Index: a-stzhas.adb =================================================================== --- a-stzhas.adb (revision 118179) +++ a-stzhas.adb (working copy) @@ -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- -- Index: a-stzhas.adb =================================================================== --- a-stzhas.adb (revision 118179) +++ a-stzhas.adb (working copy) @@ -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- -- Index: a-szuzha.adb =================================================================== --- a-szuzha.adb (revision 118179) +++ a-szuzha.adb (working copy) @@ -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- -- Index: a-chacon.adb =================================================================== --- a-chacon.adb (revision 118179) +++ a-chacon.adb (working copy) @@ -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- -- Index: a-chacon.adb =================================================================== --- a-chacon.adb (revision 118179) +++ a-chacon.adb (working copy) @@ -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- -- Index: a-chacon.ads =================================================================== --- a-chacon.ads (revision 118179) +++ a-chacon.ads (working copy) @@ -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 -- Index: a-stboha.adb =================================================================== --- a-stboha.adb (revision 118179) +++ a-stboha.adb (working copy) @@ -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- -- Index: a-swbwha.adb =================================================================== --- a-swbwha.adb (revision 118179) +++ a-swbwha.adb (working copy) @@ -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- -- Index: a-szbzha.adb =================================================================== --- a-szbzha.adb (revision 118179) +++ a-szbzha.adb (working copy) @@ -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- -- Index: a-numaux-x86.adb =================================================================== --- a-numaux-x86.adb (revision 118179) +++ a-numaux-x86.adb (working copy) @@ -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; Index: a-ngcefu.adb =================================================================== --- a-ngcefu.adb (revision 118179) +++ a-ngcefu.adb (working copy) @@ -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_Comple return Compose_From_Cartesian (Cos (Re (X)) * Cosh (Im (X)), - -Sin (Re (X)) * Sinh (Im (X))); + -(Sin (Re (X)) * Sinh (Im (X)))); end Cos; ---------- Index: a-ngcoty.adb =================================================================== --- a-ngcoty.adb (revision 118179) +++ a-ngcoty.adb (working copy) @@ -69,7 +69,7 @@ package body Ada.Numerics.Generic_Comple 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_Comple 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_Comple 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_Comple function "/" (Left : Real'Base; Right : Imaginary) return Imaginary is begin - return Imaginary (-Left / R (Right)); + return Imaginary (-(Left / R (Right))); end "/"; --------- Index: a-ngelfu.adb =================================================================== --- a-ngelfu.adb (revision 118179) +++ a-ngelfu.adb (working copy) @@ -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_Elemen 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_Elemen 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_Elemen 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_Elemen if Y > 0.0 then return Cycle / 4.0; else -- Y < 0.0 - return -Cycle / 4.0; + return -(Cycle / 4.0); end if; else Index: a-tifiio.adb =================================================================== --- a-tifiio.adb (revision 118179) +++ a-tifiio.adb (working copy) @@ -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;