diff options
Diffstat (limited to 'gcc/ada')
1332 files changed, 913 insertions, 1689 deletions
diff --git a/gcc/ada/1aexcept.adb b/gcc/ada/1aexcept.adb index e2ff851d8ee..42b623633fd 100644 --- a/gcc/ada/1aexcept.adb +++ b/gcc/ada/1aexcept.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/1aexcept.ads b/gcc/ada/1aexcept.ads index daa60b36ed9..160a086f492 100644 --- a/gcc/ada/1aexcept.ads +++ b/gcc/ada/1aexcept.ads @@ -7,8 +7,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- diff --git a/gcc/ada/1ic.ads b/gcc/ada/1ic.ads index ab8c12fa33f..e6caea3a6b1 100644 --- a/gcc/ada/1ic.ads +++ b/gcc/ada/1ic.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- This specification is adapted from the Ada Reference Manual for use with -- -- GNAT Hi Integrity Edition. In accordance with the copyright of that -- -- document, you can freely copy and modify this specification, provided -- diff --git a/gcc/ada/1ssecsta.adb b/gcc/ada/1ssecsta.adb index 55d2ece05d0..3f3bf78be90 100644 --- a/gcc/ada/1ssecsta.adb +++ b/gcc/ada/1ssecsta.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/1ssecsta.ads b/gcc/ada/1ssecsta.ads index 4175981349a..2d1bbe4247c 100644 --- a/gcc/ada/1ssecsta.ads +++ b/gcc/ada/1ssecsta.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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- -- @@ -32,6 +31,8 @@ -- -- ------------------------------------------------------------------------------ +-- Version for use in HI-E mode + with System.Storage_Elements; package System.Secondary_Stack is diff --git a/gcc/ada/31soccon.ads b/gcc/ada/31soccon.ads index 780a28f560b..05021803b30 100644 --- a/gcc/ada/31soccon.ads +++ b/gcc/ada/31soccon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/31soliop.ads b/gcc/ada/31soliop.ads index f4eb3b4482a..aa928b71511 100644 --- a/gcc/ada/31soliop.ads +++ b/gcc/ada/31soliop.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 2002 Ada Core Technologies, 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/3asoccon.ads b/gcc/ada/3asoccon.ads index 2c1dee91591..0703268d164 100644 --- a/gcc/ada/3asoccon.ads +++ b/gcc/ada/3asoccon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/3bsoccon.ads b/gcc/ada/3bsoccon.ads index fe8589a8263..4044c0134a5 100644 --- a/gcc/ada/3bsoccon.ads +++ b/gcc/ada/3bsoccon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/3gsoccon.ads b/gcc/ada/3gsoccon.ads index 7e79f3e6ece..6bfacf70f1e 100644 --- a/gcc/ada/3gsoccon.ads +++ b/gcc/ada/3gsoccon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/3hsoccon.ads b/gcc/ada/3hsoccon.ads index a9f25c2e2ee..e88cd53edac 100644 --- a/gcc/ada/3hsoccon.ads +++ b/gcc/ada/3hsoccon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/3ssoccon.ads b/gcc/ada/3ssoccon.ads index 0676cba2918..2af7a2a73b8 100644 --- a/gcc/ada/3ssoccon.ads +++ b/gcc/ada/3ssoccon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/3ssoliop.ads b/gcc/ada/3ssoliop.ads index 9b8ef69028d..80de5201c75 100644 --- a/gcc/ada/3ssoliop.ads +++ b/gcc/ada/3ssoliop.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/3wsoccon.ads b/gcc/ada/3wsoccon.ads index 97600acfeaf..252801da5ce 100644 --- a/gcc/ada/3wsoccon.ads +++ b/gcc/ada/3wsoccon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/3wsocthi.adb b/gcc/ada/3wsocthi.adb index f66936d3310..9782121d90b 100644 --- a/gcc/ada/3wsocthi.adb +++ b/gcc/ada/3wsocthi.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/3wsocthi.ads b/gcc/ada/3wsocthi.ads index 7e424a8ff3f..63c8a5ea715 100644 --- a/gcc/ada/3wsocthi.ads +++ b/gcc/ada/3wsocthi.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/3wsoliop.ads b/gcc/ada/3wsoliop.ads index fda43419d63..8c82f43223d 100644 --- a/gcc/ada/3wsoliop.ads +++ b/gcc/ada/3wsoliop.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/41intnam.ads b/gcc/ada/41intnam.ads index d207401a1e1..474649c472c 100644 --- a/gcc/ada/41intnam.ads +++ b/gcc/ada/41intnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/42intnam.ads b/gcc/ada/42intnam.ads index 149b7414dcf..111b01eee9c 100644 --- a/gcc/ada/42intnam.ads +++ b/gcc/ada/42intnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4aintnam.ads b/gcc/ada/4aintnam.ads index bb5e4845a34..ac7d0865e55 100644 --- a/gcc/ada/4aintnam.ads +++ b/gcc/ada/4aintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4cintnam.ads b/gcc/ada/4cintnam.ads index 5ca008580e2..0f9678e29ae 100644 --- a/gcc/ada/4cintnam.ads +++ b/gcc/ada/4cintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4dintnam.ads b/gcc/ada/4dintnam.ads index eaf368a7a0f..37e77777c8e 100644 --- a/gcc/ada/4dintnam.ads +++ b/gcc/ada/4dintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4gintnam.ads b/gcc/ada/4gintnam.ads index dc27d1f94b1..c22d1393291 100644 --- a/gcc/ada/4gintnam.ads +++ b/gcc/ada/4gintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2002, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4hexcpol.adb b/gcc/ada/4hexcpol.adb index 0d4cbbd68a3..0162918ae3e 100644 --- a/gcc/ada/4hexcpol.adb +++ b/gcc/ada/4hexcpol.adb @@ -7,7 +7,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4hintnam.ads b/gcc/ada/4hintnam.ads index 135789286ce..b275cab1a26 100644 --- a/gcc/ada/4hintnam.ads +++ b/gcc/ada/4hintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4lintnam.ads b/gcc/ada/4lintnam.ads index 5f93ed32e4f..048e18378fc 100644 --- a/gcc/ada/4lintnam.ads +++ b/gcc/ada/4lintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4mintnam.ads b/gcc/ada/4mintnam.ads index 7db8eefa449..f893e555189 100644 --- a/gcc/ada/4mintnam.ads +++ b/gcc/ada/4mintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4nintnam.ads b/gcc/ada/4nintnam.ads index bfc9345eb3d..dc9bea2fe25 100644 --- a/gcc/ada/4nintnam.ads +++ b/gcc/ada/4nintnam.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (No Tasking Version) -- -- -- --- -- --- Copyright (C) 1991,92,93,94,95,1996 Free Software Foundation, Inc. -- +-- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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/4ointnam.ads b/gcc/ada/4ointnam.ads index 383c89fe165..efa1d3c6831 100644 --- a/gcc/ada/4ointnam.ads +++ b/gcc/ada/4ointnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-1997 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4onumaux.ads b/gcc/ada/4onumaux.ads index 4dfc2a8580a..fd208c1df14 100644 --- a/gcc/ada/4onumaux.ads +++ b/gcc/ada/4onumaux.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (C Library Version for x86) -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4pintnam.ads b/gcc/ada/4pintnam.ads index af60c1fc8f9..3c1ee22175f 100644 --- a/gcc/ada/4pintnam.ads +++ b/gcc/ada/4pintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4rintnam.ads b/gcc/ada/4rintnam.ads index 9e6e8561210..0624dfb15d1 100644 --- a/gcc/ada/4rintnam.ads +++ b/gcc/ada/4rintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4sintnam.ads b/gcc/ada/4sintnam.ads index d6a33d04637..8217d3089f4 100644 --- a/gcc/ada/4sintnam.ads +++ b/gcc/ada/4sintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4uintnam.ads b/gcc/ada/4uintnam.ads index b44bb898c94..a5ddb4a5c81 100644 --- a/gcc/ada/4uintnam.ads +++ b/gcc/ada/4uintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4vcaldel.adb b/gcc/ada/4vcaldel.adb index e257c0267f8..8ffdb3ae645 100644 --- a/gcc/ada/4vcaldel.adb +++ b/gcc/ada/4vcaldel.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2000 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4vcalend.adb b/gcc/ada/4vcalend.adb index 1666b721d3c..99b8dcafac1 100644 --- a/gcc/ada/4vcalend.adb +++ b/gcc/ada/4vcalend.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4vcalend.ads b/gcc/ada/4vcalend.ads index e2f6ca96b84..6704346cf70 100644 --- a/gcc/ada/4vcalend.ads +++ b/gcc/ada/4vcalend.ads @@ -6,11 +6,32 @@ -- -- -- S p e c -- -- -- +-- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- --- 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. -- +-- 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- -- +-- 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, 59 Temple Place - Suite 330, Boston, -- +-- MA 02111-1307, 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. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ diff --git a/gcc/ada/4vintnam.ads b/gcc/ada/4vintnam.ads index 78981b8f892..5e4f58593e0 100644 --- a/gcc/ada/4vintnam.ads +++ b/gcc/ada/4vintnam.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1991-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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/4wcalend.adb b/gcc/ada/4wcalend.adb index 79695382131..25f8cc4720b 100644 --- a/gcc/ada/4wcalend.adb +++ b/gcc/ada/4wcalend.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2002 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- -- @@ -364,7 +363,7 @@ package body Ada.Calendar is -- time based on 1 january 1970) and add there the sub-seconds part. declare - Sub_Sec : Duration := Seconds - Duration (Int_Secs); + Sub_Sec : constant Duration := Seconds - Duration (Int_Secs); begin Date := Time ((Now - epoch_1970) * system_time_ns / Sec_Unit) + Sub_Sec; diff --git a/gcc/ada/4wexcpol.adb b/gcc/ada/4wexcpol.adb index 7b9eee6a9fa..0ee2dea057f 100644 --- a/gcc/ada/4wexcpol.adb +++ b/gcc/ada/4wexcpol.adb @@ -7,7 +7,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4wintnam.ads b/gcc/ada/4wintnam.ads index 8b68cb65eec..834ff6b2959 100644 --- a/gcc/ada/4wintnam.ads +++ b/gcc/ada/4wintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-1998 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4zintnam.ads b/gcc/ada/4zintnam.ads index 71abd65fe4b..8c67efff57e 100644 --- a/gcc/ada/4zintnam.ads +++ b/gcc/ada/4zintnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/4znumaux.ads b/gcc/ada/4znumaux.ads index 9ffee5401ec..9638fb02fec 100644 --- a/gcc/ada/4znumaux.ads +++ b/gcc/ada/4znumaux.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (C Library Version, VxWorks) -- -- -- --- -- --- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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/4zsytaco.adb b/gcc/ada/4zsytaco.adb index e052a8e23c8..f8ed43447e9 100644 --- a/gcc/ada/4zsytaco.adb +++ b/gcc/ada/4zsytaco.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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 +32,7 @@ ------------------------------------------------------------------------------ with Interfaces.C; + package body Ada.Synchronous_Task_Control is use System.OS_Interface; use type Interfaces.C.int; @@ -67,10 +67,12 @@ package body Ada.Synchronous_Task_Control is procedure Set_False (S : in out Suspension_Object) is St : STATUS; + begin -- Need to get the semaphore into the "empty" state. -- On return, this task will have made the semaphore -- empty (St = OK) or have left it empty. + St := semTake (S.Sema, NO_WAIT); end Set_False; @@ -80,6 +82,7 @@ package body Ada.Synchronous_Task_Control is procedure Set_True (S : in out Suspension_Object) is St : STATUS; + begin St := semGive (S.Sema); end Set_True; @@ -91,17 +94,15 @@ package body Ada.Synchronous_Task_Control is procedure Suspend_Until_True (S : in out Suspension_Object) is St : STATUS; - -- Declare local exception so the mutex can still be reset - -- to full if Program_Error is raised - - Task_Already_Pending : exception; begin -- Determine whether another task is pending on the suspension -- object. Should never be called from an ISR. Therefore semTake can -- be called on the mutex + St := semTake (S.Mutex, NO_WAIT); if St = OK then + -- Wait for suspension object St := semTake (S.Sema, WAIT_FOREVER); @@ -110,16 +111,14 @@ package body Ada.Synchronous_Task_Control is else -- Another task is pending on the suspension object - raise Task_Already_Pending; - end if; - exception - when Task_Already_Pending => raise Program_Error; - when others => - St := semGive (S.Mutex); - raise; + end if; end Suspend_Until_True; + ---------------- + -- Initialize -- + ---------------- + procedure Initialize (S : in out Suspension_Object) is begin S.Sema := semBCreate (SEM_Q_FIFO, SEM_EMPTY); @@ -131,8 +130,13 @@ package body Ada.Synchronous_Task_Control is S.Mutex := semBCreate (SEM_Q_FIFO, SEM_FULL); end Initialize; + -------------- + -- Finalize -- + -------------- + procedure Finalize (S : in out Suspension_Object) is St : STATUS; + begin St := semDelete (S.Sema); St := semDelete (S.Mutex); diff --git a/gcc/ada/4zsytaco.ads b/gcc/ada/4zsytaco.ads index ac7ca5a2b88..c3c54bee43c 100644 --- a/gcc/ada/4zsytaco.ads +++ b/gcc/ada/4zsytaco.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/51osinte.adb b/gcc/ada/51osinte.adb index c276eadad0b..8b159a899b8 100644 --- a/gcc/ada/51osinte.adb +++ b/gcc/ada/51osinte.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -78,8 +77,8 @@ package body System.OS_Interface is F := F + 1.0; end if; - return timespec' (tv_sec => S, - tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); + return timespec'(tv_sec => S, + tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); end To_Timespec; ---------------- @@ -102,8 +101,10 @@ package body System.OS_Interface is F := F + 1.0; end if; - return struct_timeval' (tv_sec => S, - tv_usec => long (Long_Long_Integer (F * 10#1#E6))); + return + struct_timeval' + (tv_sec => S, + tv_usec => long (Long_Long_Integer (F * 10#1#E6))); end To_Timeval; ------------------- @@ -112,14 +113,18 @@ package body System.OS_Interface is function clock_gettime (clock_id : clockid_t; - tp : access timespec) return int + tp : access timespec) + return int is + pragma Warnings (Off, clock_id); + Result : int; tv : aliased struct_timeval; function gettimeofday - (tv : access struct_timeval; - tz : System.Address := System.Null_Address) return int; + (tv : access struct_timeval; + tz : System.Address := System.Null_Address) + return int; pragma Import (C, gettimeofday, "gettimeofday"); begin @@ -163,6 +168,8 @@ package body System.OS_Interface is end pthread_kill; function Get_Stack_Base (thread : pthread_t) return Address is + pragma Warnings (Off, thread); + begin return Null_Address; end Get_Stack_Base; diff --git a/gcc/ada/51osinte.ads b/gcc/ada/51osinte.ads index 7e2b16603fd..63ab7beeefc 100644 --- a/gcc/ada/51osinte.ads +++ b/gcc/ada/51osinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/52osinte.adb b/gcc/ada/52osinte.adb index 02c438590cb..0e03bd0607f 100644 --- a/gcc/ada/52osinte.adb +++ b/gcc/ada/52osinte.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1999-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -51,12 +50,12 @@ package body System.OS_Interface is function clock_gettime (clock_id : clockid_t; tp : access timespec) - return int + return int is function clock_gettime_base (clock_id : clockid_t; tp : access timespec) - return int; + return int; pragma Import (C, clock_gettime_base, "clock_gettime"); begin @@ -101,7 +100,7 @@ package body System.OS_Interface is F := F + 1.0; end if; - return timespec' (tv_sec => S, + return timespec'(tv_sec => S, tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); end To_Timespec; @@ -125,7 +124,7 @@ package body System.OS_Interface is F := F + 1.0; end if; - return struct_timeval' (tv_sec => S, + return struct_timeval'(tv_sec => S, tv_usec => time_t (Long_Long_Integer (F * 10#1#E6))); end To_Timeval; @@ -141,7 +140,7 @@ package body System.OS_Interface is function sigwait_base (set : access sigset_t; value : System.Address) - return Signal; + return Signal; pragma Import (C, sigwait_base, "sigwait"); begin @@ -561,6 +560,8 @@ package body System.OS_Interface is end pthread_getspecific; function Get_Stack_Base (thread : pthread_t) return Address is + pragma Warnings (Off, thread); + begin return Null_Address; end Get_Stack_Base; diff --git a/gcc/ada/52osinte.ads b/gcc/ada/52osinte.ads index c22e2056f0f..2f4431fdb0f 100644 --- a/gcc/ada/52osinte.ads +++ b/gcc/ada/52osinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/52system.ads b/gcc/ada/52system.ads index 9f368b62fa7..63485e177ee 100644 --- a/gcc/ada/52system.ads +++ b/gcc/ada/52system.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (LynxOS PPC/x86 Version) -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/53osinte.ads b/gcc/ada/53osinte.ads index eddc88136e4..3643653b5a2 100644 --- a/gcc/ada/53osinte.ads +++ b/gcc/ada/53osinte.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -185,6 +184,11 @@ package System.OS_Interface is tp : access timespec) return int; pragma Import (C, clock_gettime, "clock_gettime"); + function clock_getres + (clock_id : clockid_t; + res : access timespec) return int; + pragma Import (C, clock_getres, "clock_getres"); + function To_Duration (TS : timespec) return Duration; pragma Inline (To_Duration); diff --git a/gcc/ada/54osinte.ads b/gcc/ada/54osinte.ads index 99caa365188..d13eed4cc11 100644 --- a/gcc/ada/54osinte.ads +++ b/gcc/ada/54osinte.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 2000-2002 Ada Core Technologies, Inc. -- -- -- -- GNARL 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- -- @@ -293,7 +292,7 @@ package System.OS_Interface is function sigwait (set : access sigset_t; sig : access Signal) return int; - pragma Import (C, sigwait, "sigwait"); + pragma Import (C, sigwait, "__posix_sigwait"); function pthread_kill (thread : pthread_t; diff --git a/gcc/ada/5amastop.adb b/gcc/ada/5amastop.adb index 4ed91dcb8c6..723e4a3a006 100644 --- a/gcc/ada/5amastop.adb +++ b/gcc/ada/5amastop.adb @@ -7,8 +7,7 @@ -- B o d y -- -- (Version for Alpha/Dec Unix) -- -- -- --- -- --- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 1999-2002 Ada Core Technologies, 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- -- @@ -29,7 +28,7 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ @@ -106,8 +105,13 @@ package body System.Machine_State_Operations is -- asm instruction takes 4 bytes. So we must remove this value from -- c_get_code_loc to have the call point. + Loc : Code_Loc := c_get_code_loc (M); begin - return c_get_code_loc (M) - Asm_Call_Size; + if Loc = 0 then + return 0; + else + return Loc - Asm_Call_Size; + end if; end Get_Code_Loc; -------------------------- @@ -134,6 +138,8 @@ package body System.Machine_State_Operations is (M : Machine_State; Info : Subprogram_Info_Type) is + pragma Warnings (Off, Info); + procedure exc_virtual_unwind (Fcn : System.Address; M : Machine_State); @@ -162,7 +168,11 @@ package body System.Machine_State_Operations is procedure Set_Signal_Machine_State (M : Machine_State; - Context : System.Address) is + Context : System.Address) + is + pragma Warnings (Off, M); + pragma Warnings (Off, Context); + begin null; end Set_Signal_Machine_State; diff --git a/gcc/ada/5aosinte.adb b/gcc/ada/5aosinte.adb index d64f4642e55..bcf7d453440 100644 --- a/gcc/ada/5aosinte.adb +++ b/gcc/ada/5aosinte.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1991-2001 Florida State University -- +-- Copyright (C) 1998-2002, Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -27,13 +26,12 @@ -- however invalidate any other reasons why the executable file might be -- -- covered by the GNU Public License. -- -- -- --- GNARL was developed by the GNARL team at Florida State University. It is -- --- now maintained by Ada Core Technologies Inc. in cooperation with Florida -- --- State University (http://www.gnat.com). -- +-- GNARL was developed by the GNARL team at Florida State University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ --- This is the DEC Unix and IRIX version of this package. +-- This is the DEC Unix version of this package. -- This package encapsulates all direct interfaces to OS services -- that are needed by children of System. @@ -43,6 +41,8 @@ pragma Polling (Off); -- tasking operations. It causes infinite loops and other problems. with Interfaces.C; use Interfaces.C; +with System.Machine_Code; use System.Machine_Code; + package body System.OS_Interface is ------------------ @@ -54,6 +54,20 @@ package body System.OS_Interface is null; end pthread_init; + ------------------ + -- pthread_self -- + ------------------ + + function pthread_self return pthread_t is + Self : pthread_t; + begin + Asm ("call_pal 0x9e" & ASCII.LF & ASCII.HT & + "bis $31, $0, %0", + Outputs => pthread_t'Asm_Output ("=r", Self), + Clobber => "$0"); + return Self; + end pthread_self; + ----------------- -- To_Duration -- ----------------- @@ -88,10 +102,14 @@ package body System.OS_Interface is F := F + 1.0; end if; - return timespec' (tv_sec => S, - tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); + return timespec'(tv_sec => S, + tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); end To_Timespec; + ---------------- + -- To_Timeval -- + ---------------- + function To_Timeval (D : Duration) return struct_timeval is S : time_t; F : Duration; @@ -108,8 +126,10 @@ package body System.OS_Interface is F := F + 1.0; end if; - return struct_timeval' (tv_sec => S, - tv_usec => time_t (Long_Long_Integer (F * 10#1#E6))); + return + struct_timeval' + (tv_sec => S, + tv_usec => time_t (Long_Long_Integer (F * 10#1#E6))); end To_Timeval; end System.OS_Interface; diff --git a/gcc/ada/5aosinte.ads b/gcc/ada/5aosinte.ads index 815c5ac9c4b..25733820e19 100644 --- a/gcc/ada/5aosinte.ads +++ b/gcc/ada/5aosinte.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -437,7 +436,7 @@ package System.OS_Interface is pragma Import (C, pthread_exit, "__pthread_exit"); function pthread_self return pthread_t; - pragma Import (C, pthread_self, "__pthread_self"); + pragma Inline (pthread_self); -------------------------- -- POSIX.1c Section 17 -- diff --git a/gcc/ada/5asystem.ads b/gcc/ada/5asystem.ads index edc63d0424b..ee49d717632 100644 --- a/gcc/ada/5asystem.ads +++ b/gcc/ada/5asystem.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (DEC Unix Version) -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- @@ -59,7 +58,7 @@ pragma Pure (System); Max_Mantissa : constant := 63; Fine_Delta : constant := 2.0 ** (-Max_Mantissa); - Tick : constant := 1.0; + Tick : constant := 1.0 / 1024.0; -- Storage-related Declarations @@ -120,6 +119,7 @@ private Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := True; Denorm : constant Boolean := False; + Exit_Status_Supported : constant Boolean := True; Fractional_Fixed_Ops : constant Boolean := False; Frontend_Layout : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := False; diff --git a/gcc/ada/5ataprop.adb b/gcc/ada/5ataprop.adb index 85c672ac704..fbadd9b6aa1 100644 --- a/gcc/ada/5ataprop.adb +++ b/gcc/ada/5ataprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5atasinf.ads b/gcc/ada/5atasinf.ads index 78d05365706..e70ee352408 100644 --- a/gcc/ada/5atasinf.ads +++ b/gcc/ada/5atasinf.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (Compiler Interface) -- -- -- --- -- -- Copyright (C) 1998-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5ataspri.ads b/gcc/ada/5ataspri.ads index 2953bfc8307..b0cb9beef5c 100644 --- a/gcc/ada/5ataspri.ads +++ b/gcc/ada/5ataspri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2000 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5atpopsp.adb b/gcc/ada/5atpopsp.adb index ee2ecf71d7d..937041e22c1 100644 --- a/gcc/ada/5atpopsp.adb +++ b/gcc/ada/5atpopsp.adb @@ -7,7 +7,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5avxwork.ads b/gcc/ada/5avxwork.ads index 47b90a9986b..c7894932796 100644 --- a/gcc/ada/5avxwork.ads +++ b/gcc/ada/5avxwork.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5bosinte.adb b/gcc/ada/5bosinte.adb index fe1fa084cf2..6c90fade486 100644 --- a/gcc/ada/5bosinte.adb +++ b/gcc/ada/5bosinte.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2001, Free Software Fundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5bosinte.ads b/gcc/ada/5bosinte.ads index e5f2c5c6d16..4f471d816c4 100644 --- a/gcc/ada/5bosinte.ads +++ b/gcc/ada/5bosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5bsystem.ads b/gcc/ada/5bsystem.ads index 2ee53e0e858..539b8df0afd 100644 --- a/gcc/ada/5bsystem.ads +++ b/gcc/ada/5bsystem.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (AIX/PPC Version) -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- @@ -59,7 +58,7 @@ pragma Pure (System); Max_Mantissa : constant := 63; Fine_Delta : constant := 2.0 ** (-Max_Mantissa); - Tick : constant := 1.0; + Tick : constant := 0.01; -- Storage-related Declarations @@ -120,6 +119,7 @@ private Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := True; Denorm : constant Boolean := True; + Exit_Status_Supported : constant Boolean := True; Fractional_Fixed_Ops : constant Boolean := False; Frontend_Layout : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := False; diff --git a/gcc/ada/5cosinte.ads b/gcc/ada/5cosinte.ads index 8c142f4955d..88dab8b2143 100644 --- a/gcc/ada/5cosinte.ads +++ b/gcc/ada/5cosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5dosinte.ads b/gcc/ada/5dosinte.ads index 5e5a1aa2177..b76c1233c49 100644 --- a/gcc/ada/5dosinte.ads +++ b/gcc/ada/5dosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5esystem.ads b/gcc/ada/5esystem.ads index 2dee2011fb4..1d997840cfe 100644 --- a/gcc/ada/5esystem.ads +++ b/gcc/ada/5esystem.ads @@ -5,10 +5,9 @@ -- S Y S T E M -- -- -- -- S p e c -- --- (X86 Solaris Version) -- +-- (x86 Solaris Version) -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- @@ -59,7 +58,7 @@ pragma Pure (System); Max_Mantissa : constant := 63; Fine_Delta : constant := 2.0 ** (-Max_Mantissa); - Tick : constant := 1.0; + Tick : constant := 0.01; -- Storage-related Declarations @@ -120,6 +119,7 @@ private Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := True; Denorm : constant Boolean := True; + Exit_Status_Supported : constant Boolean := True; Fractional_Fixed_Ops : constant Boolean := False; Frontend_Layout : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := False; diff --git a/gcc/ada/5etpopse.adb b/gcc/ada/5etpopse.adb index 96749dd59a5..957a58332f3 100644 --- a/gcc/ada/5etpopse.adb +++ b/gcc/ada/5etpopse.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-1998, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5fintman.adb b/gcc/ada/5fintman.adb index 1b25d7d20ff..183544838a3 100644 --- a/gcc/ada/5fintman.adb +++ b/gcc/ada/5fintman.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5fosinte.ads b/gcc/ada/5fosinte.ads index 5b8aeaec815..5a52148c48e 100644 --- a/gcc/ada/5fosinte.ads +++ b/gcc/ada/5fosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5fsystem.ads b/gcc/ada/5fsystem.ads index b131c144093..9da53a748e5 100644 --- a/gcc/ada/5fsystem.ads +++ b/gcc/ada/5fsystem.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (SGI Irix, o32 ABI) -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- @@ -59,7 +58,7 @@ pragma Pure (System); Max_Mantissa : constant := 63; Fine_Delta : constant := 2.0 ** (-Max_Mantissa); - Tick : constant := 1.0; + Tick : constant := 0.01; -- Storage-related Declarations @@ -120,6 +119,7 @@ private Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := True; Denorm : constant Boolean := False; + Exit_Status_Supported : constant Boolean := True; Fractional_Fixed_Ops : constant Boolean := False; Frontend_Layout : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := True; diff --git a/gcc/ada/5ftaprop.adb b/gcc/ada/5ftaprop.adb index 7828de71a20..179f351eb7f 100644 --- a/gcc/ada/5ftaprop.adb +++ b/gcc/ada/5ftaprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5ftasinf.ads b/gcc/ada/5ftasinf.ads index 1797c557327..0438b7664d3 100644 --- a/gcc/ada/5ftasinf.ads +++ b/gcc/ada/5ftasinf.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (Compiler Interface) -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5ginterr.adb b/gcc/ada/5ginterr.adb index 7d2eadeee98..2365dc1dac0 100644 --- a/gcc/ada/5ginterr.adb +++ b/gcc/ada/5ginterr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Fundation -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5gintman.adb b/gcc/ada/5gintman.adb index 4380591cfc3..8868a8479dc 100644 --- a/gcc/ada/5gintman.adb +++ b/gcc/ada/5gintman.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-1998, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5gmastop.adb b/gcc/ada/5gmastop.adb index 48077942ccc..01e6381cadd 100644 --- a/gcc/ada/5gmastop.adb +++ b/gcc/ada/5gmastop.adb @@ -7,7 +7,6 @@ -- B o d y -- -- (Version for IRIX/MIPS) -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5gosinte.ads b/gcc/ada/5gosinte.ads index 5fa800898bf..ab83d462f83 100644 --- a/gcc/ada/5gosinte.ads +++ b/gcc/ada/5gosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5gproinf.adb b/gcc/ada/5gproinf.adb index e0b99450e15..3e6bbc9557d 100644 --- a/gcc/ada/5gproinf.adb +++ b/gcc/ada/5gproinf.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5gproinf.ads b/gcc/ada/5gproinf.ads index b4773b337c3..f185e81c0ae 100644 --- a/gcc/ada/5gproinf.ads +++ b/gcc/ada/5gproinf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5gsystem.ads b/gcc/ada/5gsystem.ads index 295266b69f1..315724e1972 100644 --- a/gcc/ada/5gsystem.ads +++ b/gcc/ada/5gsystem.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (SGI Irix, n32 ABI) -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/5gtaprop.adb b/gcc/ada/5gtaprop.adb index 96098f514f4..ae3ce107d1e 100644 --- a/gcc/ada/5gtaprop.adb +++ b/gcc/ada/5gtaprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5gtasinf.adb b/gcc/ada/5gtasinf.adb index 0db21a70838..48eec8118ba 100644 --- a/gcc/ada/5gtasinf.adb +++ b/gcc/ada/5gtasinf.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5gtasinf.ads b/gcc/ada/5gtasinf.ads index 1de0caaedf2..31d2760c7dc 100644 --- a/gcc/ada/5gtasinf.ads +++ b/gcc/ada/5gtasinf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5gtpgetc.adb b/gcc/ada/5gtpgetc.adb index 8b02ad9f9fc..2754ae4a169 100644 --- a/gcc/ada/5gtpgetc.adb +++ b/gcc/ada/5gtpgetc.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2000 Free Software Fundation -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5hosinte.adb b/gcc/ada/5hosinte.adb index 5436f445694..51a288ab531 100644 --- a/gcc/ada/5hosinte.adb +++ b/gcc/ada/5hosinte.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5hosinte.ads b/gcc/ada/5hosinte.ads index ac81cdaf18f..117b2b4247e 100644 --- a/gcc/ada/5hosinte.ads +++ b/gcc/ada/5hosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5hparame.ads b/gcc/ada/5hparame.ads index d9dcd81ff69..ed5d8ac1a6e 100644 --- a/gcc/ada/5hparame.ads +++ b/gcc/ada/5hparame.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -95,6 +94,11 @@ pragma Pure (Parameters); -- when Size < Minimum_Stack_Size, return Minimum_Stack_Size -- otherwise return given Size + Default_Env_Stack_Size : constant Size_Type := 8_192_000; + -- Assumed size of the environment task, if no other information + -- is available. This value is used when stack checking is + -- enabled and no GNAT_STACK_LIMIT environment variable is set. + Stack_Grows_Down : constant Boolean := False; -- This constant indicates whether the stack grows up (False) or -- down (True) in memory as functions are called. It is used for diff --git a/gcc/ada/5hsystem.ads b/gcc/ada/5hsystem.ads index ec3789f378c..f2d54535522 100644 --- a/gcc/ada/5hsystem.ads +++ b/gcc/ada/5hsystem.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (HP-UX Version) -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- @@ -59,7 +58,7 @@ pragma Pure (System); Max_Mantissa : constant := 63; Fine_Delta : constant := 2.0 ** (-Max_Mantissa); - Tick : constant := 1.0; + Tick : constant := 0.01; -- Storage-related Declarations @@ -102,6 +101,9 @@ pragma Pure (System); private + pragma Linker_Options ("-lpthread"); + -- To ease supporting --enable-threads=posix at configure-time. + type Address is mod Memory_Size; Null_Address : constant Address := 0; @@ -119,7 +121,8 @@ private Backend_Divide_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := True; - Denorm : constant Boolean := False; + Denorm : constant Boolean := True; + Exit_Status_Supported : constant Boolean := True; Fractional_Fixed_Ops : constant Boolean := False; Frontend_Layout : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := False; @@ -132,8 +135,8 @@ private Stack_Check_Default : constant Boolean := False; Stack_Check_Probes : constant Boolean := False; Use_Ada_Main_Program_Name : constant Boolean := False; - ZCX_By_Default : constant Boolean := False; - GCC_ZCX_Support : constant Boolean := False; + ZCX_By_Default : constant Boolean := True; + GCC_ZCX_Support : constant Boolean := True; Front_End_ZCX_Support : constant Boolean := False; -------------------------- diff --git a/gcc/ada/5htaprop.adb b/gcc/ada/5htaprop.adb index e6a127cf44b..0d6a3d2b19f 100644 --- a/gcc/ada/5htaprop.adb +++ b/gcc/ada/5htaprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5htaspri.ads b/gcc/ada/5htaspri.ads index d51ad3767b5..ae5c014764c 100644 --- a/gcc/ada/5htaspri.ads +++ b/gcc/ada/5htaspri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2000 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5htraceb.adb b/gcc/ada/5htraceb.adb index b09de6d7823..9a59aa612b3 100644 --- a/gcc/ada/5htraceb.adb +++ b/gcc/ada/5htraceb.adb @@ -7,7 +7,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -29,7 +28,7 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ diff --git a/gcc/ada/5iosinte.adb b/gcc/ada/5iosinte.adb index 3bf7994c3f4..fd3371887c0 100644 --- a/gcc/ada/5iosinte.adb +++ b/gcc/ada/5iosinte.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1991-2001 Florida State University -- +-- Copyright (C) 1991-2002 Florida State University -- -- -- -- GNARL 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- -- @@ -51,6 +50,8 @@ package body System.OS_Interface is -------------------- function Get_Stack_Base (thread : pthread_t) return Address is + pragma Warnings (Off, thread); + begin return Null_Address; end Get_Stack_Base; @@ -98,8 +99,8 @@ package body System.OS_Interface is F := F + 1.0; end if; - return timespec' - (tv_sec => S, tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); + return timespec'(tv_sec => S, + tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); end To_Timespec; ---------------- @@ -122,8 +123,10 @@ package body System.OS_Interface is F := F + 1.0; end if; - return struct_timeval' - (tv_sec => S, tv_usec => time_t (Long_Long_Integer (F * 10#1#E6))); + return + struct_timeval' + (tv_sec => S, + tv_usec => time_t (Long_Long_Integer (F * 10#1#E6))); end To_Timeval; end System.OS_Interface; diff --git a/gcc/ada/5iosinte.ads b/gcc/ada/5iosinte.ads index ea5e6a9928f..81b82ec3c5c 100644 --- a/gcc/ada/5iosinte.ads +++ b/gcc/ada/5iosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5itaprop.adb b/gcc/ada/5itaprop.adb index 137748c0c92..13d5361a905 100644 --- a/gcc/ada/5itaprop.adb +++ b/gcc/ada/5itaprop.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003, Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -339,10 +338,12 @@ package body System.Task_Primitives.Operations is -- Stack_Guard -- ----------------- - -- The underlying thread system extends the memory (up to 2MB) when - -- needed. + -- The underlying thread system extends the memory (up to 2MB) when needed procedure Stack_Guard (T : ST.Task_ID; On : Boolean) is + pragma Unreferenced (T); + pragma Unreferenced (On); + begin null; end Stack_Guard; @@ -367,17 +368,18 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Initialize_TCB and the Storage_Error is - -- handled. Other mutexes (such as RTS_Lock, Memory_Lock...) - -- used in RTS is initialized before any status change of RTS. - -- Therefore rasing Storage_Error in the following routines - -- should be able to be handled safely. + -- initialized in Initialize_TCB and the Storage_Error is + -- handled. Other mutexes (such as RTS_Lock, Memory_Lock...) + -- used in RTS is initialized before any status change of RTS. + -- Therefore rasing Storage_Error in the following routines + -- should be able to be handled safely. procedure Initialize_Lock (Prio : System.Any_Priority; L : access Lock) is Result : Interfaces.C.int; + begin if Priority_Ceiling_Emulation then L.Ceiling := Prio; @@ -394,6 +396,8 @@ package body System.Task_Primitives.Operations is end Initialize_Lock; procedure Initialize_Lock (L : access RTS_Lock; Level : Lock_Level) is + pragma Unreferenced (Level); + Result : Interfaces.C.int; begin @@ -432,35 +436,45 @@ package body System.Task_Primitives.Operations is procedure Write_Lock (L : access Lock; Ceiling_Violation : out Boolean) is Result : Interfaces.C.int; + begin if Priority_Ceiling_Emulation then declare Self_ID : constant Task_ID := Self; + begin if Self_ID.Common.LL.Active_Priority > L.Ceiling then Ceiling_Violation := True; return; end if; + L.Saved_Priority := Self_ID.Common.LL.Active_Priority; + if Self_ID.Common.LL.Active_Priority < L.Ceiling then Self_ID.Common.LL.Active_Priority := L.Ceiling; end if; + Result := pthread_mutex_lock (L.L'Access); pragma Assert (Result = 0); Ceiling_Violation := False; end; + else Result := pthread_mutex_lock (L.L'Access); Ceiling_Violation := Result = EINVAL; - -- assumes the cause of EINVAL is a priority ceiling violation + + -- Assume the cause of EINVAL is a priority ceiling violation + pragma Assert (Result = 0 or else Result = EINVAL); end if; end Write_Lock; procedure Write_Lock - (L : access RTS_Lock; Global_Lock : Boolean := False) + (L : access RTS_Lock; + Global_Lock : Boolean := False) is Result : Interfaces.C.int; + begin if not Single_Lock or else Global_Lock then Result := pthread_mutex_lock (L); @@ -470,6 +484,7 @@ package body System.Task_Primitives.Operations is procedure Write_Lock (T : Task_ID) is Result : Interfaces.C.int; + begin if not Single_Lock then Result := pthread_mutex_lock (T.Common.LL.L'Access); @@ -492,17 +507,21 @@ package body System.Task_Primitives.Operations is procedure Unlock (L : access Lock) is Result : Interfaces.C.int; + begin if Priority_Ceiling_Emulation then declare Self_ID : constant Task_ID := Self; + begin Result := pthread_mutex_unlock (L.L'Access); pragma Assert (Result = 0); + if Self_ID.Common.LL.Active_Priority > L.Saved_Priority then Self_ID.Common.LL.Active_Priority := L.Saved_Priority; end if; end; + else Result := pthread_mutex_unlock (L.L'Access); pragma Assert (Result = 0); @@ -511,6 +530,7 @@ package body System.Task_Primitives.Operations is procedure Unlock (L : access RTS_Lock; Global_Lock : Boolean := False) is Result : Interfaces.C.int; + begin if not Single_Lock or else Global_Lock then Result := pthread_mutex_unlock (L); @@ -520,6 +540,7 @@ package body System.Task_Primitives.Operations is procedure Unlock (T : Task_ID) is Result : Interfaces.C.int; + begin if not Single_Lock then Result := pthread_mutex_unlock (T.Common.LL.L'Access); @@ -532,10 +553,13 @@ package body System.Task_Primitives.Operations is ----------- procedure Sleep - (Self_ID : Task_ID; + (Self_ID : Task_ID; Reason : System.Tasking.Task_States) is + pragma Unreferenced (Reason); + Result : Interfaces.C.int; + begin pragma Assert (Self_ID = Self); @@ -567,10 +591,13 @@ package body System.Task_Primitives.Operations is Timedout : out Boolean; Yielded : out Boolean) is + pragma Unreferenced (Reason); + Check_Time : constant Duration := Monotonic_Clock; Abs_Time : Duration; Request : aliased timespec; Result : Interfaces.C.int; + begin Timedout := True; Yielded := False; @@ -718,6 +745,8 @@ package body System.Task_Primitives.Operations is ------------ procedure Wakeup (T : Task_ID; Reason : System.Tasking.Task_States) is + pragma Unreferenced (Reason); + Result : Interfaces.C.int; begin @@ -743,10 +772,12 @@ package body System.Task_Primitives.Operations is ------------------ procedure Set_Priority - (T : Task_ID; - Prio : System.Any_Priority; + (T : Task_ID; + Prio : System.Any_Priority; Loss_Of_Inheritance : Boolean := False) is + pragma Unreferenced (Loss_Of_Inheritance); + Result : Interfaces.C.int; Param : aliased struct_sched_param; @@ -967,10 +998,11 @@ package body System.Task_Primitives.Operations is -- Check_Exit -- ---------------- - -- Dummy versions. The only currently working versions is for solaris - -- (native). + -- Dummy version function Check_Exit (Self_ID : ST.Task_ID) return Boolean is + pragma Unreferenced (Self_ID); + begin return True; end Check_Exit; @@ -980,6 +1012,8 @@ package body System.Task_Primitives.Operations is -------------------- function Check_No_Locks (Self_ID : ST.Task_ID) return Boolean is + pragma Unreferenced (Self_ID); + begin return True; end Check_No_Locks; @@ -999,7 +1033,9 @@ package body System.Task_Primitives.Operations is function Suspend_Task (T : ST.Task_ID; - Thread_Self : Thread_Id) return Boolean is + Thread_Self : Thread_Id) + return Boolean + is begin if T.Common.LL.Thread /= Thread_Self then return pthread_kill (T.Common.LL.Thread, SIGSTOP) = 0; @@ -1014,7 +1050,9 @@ package body System.Task_Primitives.Operations is function Resume_Task (T : ST.Task_ID; - Thread_Self : Thread_Id) return Boolean is + Thread_Self : Thread_Id) + return Boolean + is begin if T.Common.LL.Thread /= Thread_Self then return pthread_kill (T.Common.LL.Thread, SIGCONT) = 0; @@ -1043,6 +1081,7 @@ package body System.Task_Primitives.Operations is pragma Assert (Result = 0 or else Result = ENOMEM); Initialize_Lock (Single_RTS_Lock'Access, RTS_Lock_Level); + -- Initialize the global RTS lock Specific.Initialize (Environment_Task); @@ -1069,6 +1108,7 @@ package body System.Task_Primitives.Operations is begin declare Result : Interfaces.C.int; + begin -- Mask Environment task for all signals. The original mask of the -- Environment task will be recovered by Interrupt_Server task diff --git a/gcc/ada/5itaspri.ads b/gcc/ada/5itaspri.ads index 4c02c459ab9..c26def9fb42 100644 --- a/gcc/ada/5itaspri.ads +++ b/gcc/ada/5itaspri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5ksystem.ads b/gcc/ada/5ksystem.ads index 6854da1b47b..afef59ee014 100644 --- a/gcc/ada/5ksystem.ads +++ b/gcc/ada/5ksystem.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (VxWorks version M68K) -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- @@ -59,7 +58,7 @@ pragma Pure (System); Max_Mantissa : constant := 63; Fine_Delta : constant := 2.0 ** (-Max_Mantissa); - Tick : constant := 1.0; + Tick : constant := 1.0 / 60.0; -- Storage-related Declarations @@ -128,6 +127,7 @@ private Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := False; Denorm : constant Boolean := True; + Exit_Status_Supported : constant Boolean := True; Fractional_Fixed_Ops : constant Boolean := False; Frontend_Layout : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := False; diff --git a/gcc/ada/5kvxwork.ads b/gcc/ada/5kvxwork.ads index dc4c7abadf0..47a4e4bb5ef 100644 --- a/gcc/ada/5kvxwork.ads +++ b/gcc/ada/5kvxwork.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5lintman.adb b/gcc/ada/5lintman.adb index 492f5ec9a1d..4db8c763c9f 100644 --- a/gcc/ada/5lintman.adb +++ b/gcc/ada/5lintman.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2002 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5lml-tgt.adb b/gcc/ada/5lml-tgt.adb index bdabc5bc64e..f884381d5ef 100644 --- a/gcc/ada/5lml-tgt.adb +++ b/gcc/ada/5lml-tgt.adb @@ -7,7 +7,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5losinte.ads b/gcc/ada/5losinte.ads index f101cce0d10..2de2e91617d 100644 --- a/gcc/ada/5losinte.ads +++ b/gcc/ada/5losinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5lsystem.ads b/gcc/ada/5lsystem.ads index 951404c3926..c39e7c61d93 100644 --- a/gcc/ada/5lsystem.ads +++ b/gcc/ada/5lsystem.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (GNU-Linux/x86 Version) -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- @@ -59,7 +58,7 @@ pragma Pure (System); Max_Mantissa : constant := 63; Fine_Delta : constant := 2.0 ** (-Max_Mantissa); - Tick : constant := 1.0; + Tick : constant := 0.01; -- Storage-related Declarations @@ -120,6 +119,7 @@ private Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := True; Denorm : constant Boolean := True; + Exit_Status_Supported : constant Boolean := True; Fractional_Fixed_Ops : constant Boolean := False; Frontend_Layout : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := False; @@ -135,4 +135,5 @@ private ZCX_By_Default : constant Boolean := False; GCC_ZCX_Support : constant Boolean := False; Front_End_ZCX_Support : constant Boolean := False; + end System; diff --git a/gcc/ada/5mosinte.ads b/gcc/ada/5mosinte.ads index 04aabb12eab..17ed7f51025 100644 --- a/gcc/ada/5mosinte.ads +++ b/gcc/ada/5mosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5mvxwork.ads b/gcc/ada/5mvxwork.ads index 6aec2673b69..468d6505440 100644 --- a/gcc/ada/5mvxwork.ads +++ b/gcc/ada/5mvxwork.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5ninmaop.adb b/gcc/ada/5ninmaop.adb index 5e3d56893ae..c977fec01a2 100644 --- a/gcc/ada/5ninmaop.adb +++ b/gcc/ada/5ninmaop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5nintman.adb b/gcc/ada/5nintman.adb index f62ecff01b4..a335add09a6 100644 --- a/gcc/ada/5nintman.adb +++ b/gcc/ada/5nintman.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1991-1996, 1998 Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -32,6 +31,8 @@ -- -- ------------------------------------------------------------------------------ +-- This is a NO tasking version of this package. + package body System.Interrupt_Management is --------------------------- diff --git a/gcc/ada/5nosinte.ads b/gcc/ada/5nosinte.ads index e7f4fd643a1..d85b13770b7 100644 --- a/gcc/ada/5nosinte.ads +++ b/gcc/ada/5nosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5ntaprop.adb b/gcc/ada/5ntaprop.adb index fd6ce7802e3..0562c9c7640 100644 --- a/gcc/ada/5ntaprop.adb +++ b/gcc/ada/5ntaprop.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -53,6 +52,9 @@ package body System.Task_Primitives.Operations is use System.Tasking; use System.Parameters; + pragma Warnings (Off); + -- Turn off warnings since so many unreferenced parameters + ----------------- -- Stack_Guard -- ----------------- @@ -86,7 +88,8 @@ package body System.Task_Primitives.Operations is procedure Initialize_Lock (Prio : System.Any_Priority; - L : access Lock) is + L : access Lock) + is begin null; end Initialize_Lock; @@ -120,7 +123,8 @@ package body System.Task_Primitives.Operations is end Write_Lock; procedure Write_Lock - (L : access RTS_Lock; Global_Lock : Boolean := False) + (L : access RTS_Lock; + Global_Lock : Boolean := False) is begin null; @@ -375,7 +379,9 @@ package body System.Task_Primitives.Operations is function Suspend_Task (T : ST.Task_ID; - Thread_Self : OSI.Thread_Id) return Boolean is + Thread_Self : OSI.Thread_Id) + return Boolean + is begin return False; end Suspend_Task; @@ -386,7 +392,9 @@ package body System.Task_Primitives.Operations is function Resume_Task (T : ST.Task_ID; - Thread_Self : OSI.Thread_Id) return Boolean is + Thread_Self : OSI.Thread_Id) + return Boolean + is begin return False; end Resume_Task; diff --git a/gcc/ada/5ntaspri.ads b/gcc/ada/5ntaspri.ads index 7520c04ab59..78b51236471 100644 --- a/gcc/ada/5ntaspri.ads +++ b/gcc/ada/5ntaspri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2000 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5ointerr.adb b/gcc/ada/5ointerr.adb index 5685cc0ff56..4d46c8ef63d 100644 --- a/gcc/ada/5ointerr.adb +++ b/gcc/ada/5ointerr.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1991-2001 Florida State University -- +-- Copyright (C) 1991-2002 Florida State University -- -- -- -- GNARL 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,9 +58,9 @@ package body System.Interrupts is -------------------- procedure Attach_Handler - (New_Handler : in Parameterless_Handler; - Interrupt : in Interrupt_ID; - Static : in Boolean := False) + (New_Handler : Parameterless_Handler; + Interrupt : Interrupt_ID; + Static : Boolean := False) is begin Unimplemented; @@ -107,8 +106,8 @@ package body System.Interrupts is -------------------- procedure Detach_Handler - (Interrupt : in Interrupt_ID; - Static : in Boolean := False) + (Interrupt : Interrupt_ID; + Static : Boolean := False) is begin Unimplemented; @@ -129,9 +128,9 @@ package body System.Interrupts is procedure Exchange_Handler (Old_Handler : out Parameterless_Handler; - New_Handler : in Parameterless_Handler; - Interrupt : in Interrupt_ID; - Static : in Boolean := False) + New_Handler : Parameterless_Handler; + Interrupt : Interrupt_ID; + Static : Boolean := False) is begin Old_Handler := null; @@ -155,6 +154,8 @@ package body System.Interrupts is (Object : access Dynamic_Interrupt_Protection) return Boolean is + pragma Warnings (Off, Object); + begin Unimplemented; return True; @@ -164,6 +165,8 @@ package body System.Interrupts is (Object : access Static_Interrupt_Protection) return Boolean is + pragma Warnings (Off, Object); + begin Unimplemented; return True; @@ -184,7 +187,7 @@ package body System.Interrupts is procedure Install_Handlers (Object : access Static_Interrupt_Protection; - New_Handlers : in New_Handler_Array) + New_Handlers : New_Handler_Array) is begin Unimplemented; diff --git a/gcc/ada/5omastop.adb b/gcc/ada/5omastop.adb index f4ce4ced8aa..7fa6fb6560b 100644 --- a/gcc/ada/5omastop.adb +++ b/gcc/ada/5omastop.adb @@ -7,7 +7,6 @@ -- B o d y -- -- (Version for x86) -- -- -- --- -- -- Copyright (C) 1999-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -29,7 +28,7 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ diff --git a/gcc/ada/5oosinte.adb b/gcc/ada/5oosinte.adb index 36d2b574354..538b3fa95fe 100644 --- a/gcc/ada/5oosinte.adb +++ b/gcc/ada/5oosinte.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2002 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- @@ -111,8 +110,8 @@ package body System.OS_Interface is Tick_Count : aliased QWORD; begin - -- Read nr of clock ticks since boot time + Must_Not_Fail (DosTmrQueryTime (Tick_Count'Access)); return Tick_Count * Tick_Duration; diff --git a/gcc/ada/5oosinte.ads b/gcc/ada/5oosinte.ads index e05aa841558..b2b4b2987eb 100644 --- a/gcc/ada/5oosinte.ads +++ b/gcc/ada/5oosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5oosprim.adb b/gcc/ada/5oosprim.adb index 3741f33ecd1..b56c35ded94 100644 --- a/gcc/ada/5oosprim.adb +++ b/gcc/ada/5oosprim.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5oparame.adb b/gcc/ada/5oparame.adb index a6b498cb34e..697c5959f82 100644 --- a/gcc/ada/5oparame.adb +++ b/gcc/ada/5oparame.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5osystem.ads b/gcc/ada/5osystem.ads index b13aee66b0c..404da6601f1 100644 --- a/gcc/ada/5osystem.ads +++ b/gcc/ada/5osystem.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (OS/2 Version) -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- @@ -59,7 +58,7 @@ pragma Pure (System); Max_Mantissa : constant := 63; Fine_Delta : constant := 2.0 ** (-Max_Mantissa); - Tick : constant := 1.0; + Tick : constant := 0.01; -- Storage-related Declarations @@ -120,6 +119,7 @@ private Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := True; Denorm : constant Boolean := True; + Exit_Status_Supported : constant Boolean := True; Fractional_Fixed_Ops : constant Boolean := False; Frontend_Layout : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := False; diff --git a/gcc/ada/5otaprop.adb b/gcc/ada/5otaprop.adb index f3517cf1ade..297a48cc6fc 100644 --- a/gcc/ada/5otaprop.adb +++ b/gcc/ada/5otaprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5otaspri.ads b/gcc/ada/5otaspri.ads index 434b27a5e92..9dd412cf421 100644 --- a/gcc/ada/5otaspri.ads +++ b/gcc/ada/5otaspri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5posinte.ads b/gcc/ada/5posinte.ads index 155bf0254b6..1db503934b9 100644 --- a/gcc/ada/5posinte.ads +++ b/gcc/ada/5posinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5posprim.adb b/gcc/ada/5posprim.adb index d0553e3360f..1dfb37110ce 100644 --- a/gcc/ada/5posprim.adb +++ b/gcc/ada/5posprim.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5pvxwork.ads b/gcc/ada/5pvxwork.ads index 1938e086b4b..829daa23944 100644 --- a/gcc/ada/5pvxwork.ads +++ b/gcc/ada/5pvxwork.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5qosinte.adb b/gcc/ada/5qosinte.adb index db2b8d90179..59d34acd4c8 100644 --- a/gcc/ada/5qosinte.adb +++ b/gcc/ada/5qosinte.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5qosinte.ads b/gcc/ada/5qosinte.ads index b1e7eb6efd1..06f0e6cfc96 100644 --- a/gcc/ada/5qosinte.ads +++ b/gcc/ada/5qosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5qstache.adb b/gcc/ada/5qstache.adb index 2ad9dceb02a..58460cdfb0f 100644 --- a/gcc/ada/5qstache.adb +++ b/gcc/ada/5qstache.adb @@ -7,7 +7,6 @@ -- B o d y -- -- (Dummy version) -- -- -- --- -- -- Copyright (C) 2000 Ada Core Technologies, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5qtaprop.adb b/gcc/ada/5qtaprop.adb index 988f8ba9e09..aa1e97be694 100644 --- a/gcc/ada/5qtaprop.adb +++ b/gcc/ada/5qtaprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5qtaspri.ads b/gcc/ada/5qtaspri.ads index 89dafed1669..0bd2d2fe6ad 100644 --- a/gcc/ada/5qtaspri.ads +++ b/gcc/ada/5qtaspri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5rosinte.adb b/gcc/ada/5rosinte.adb index a0a738109f4..f4bfca54766 100644 --- a/gcc/ada/5rosinte.adb +++ b/gcc/ada/5rosinte.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1991-2000 Florida State University -- +-- Copyright (C) 1991-2002 Florida State University -- -- -- -- GNARL 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- -- @@ -69,14 +68,13 @@ package body System.OS_Interface is S := time_t (Long_Long_Integer (D)); F := D - Duration (S); - -- If F has negative value due to a round-up, adjust for positive F - -- value. + -- If F has negative value due to round-up, adjust for positive F value + if F < 0.0 then S := S - 1; F := F + 1.0; end if; - return timespec' (tv_sec => S, - tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); + return timespec'(tv_sec => S, + tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); end To_Timespec; - function To_Duration (TV : struct_timeval) return Duration is begin return Duration (TV.tv_sec) + Duration (TV.tv_usec) / 10#1#E6; @@ -92,8 +90,10 @@ package body System.OS_Interface is -- If F has negative value due to a round-up, adjust for positive F -- value. if F < 0.0 then S := S - 1; F := F + 1.0; end if; - return struct_timeval' (tv_sec => S, - tv_usec => int (Long_Long_Integer (F * 10#1#E6))); + return + struct_timeval' + (tv_sec => S, + tv_usec => int (Long_Long_Integer (F * 10#1#E6))); end To_Timeval; procedure pthread_init is @@ -102,6 +102,8 @@ package body System.OS_Interface is end pthread_init; function Get_Stack_Base (thread : pthread_t) return Address is + pragma Warnings (Off, thread); + begin return Null_Address; end Get_Stack_Base; diff --git a/gcc/ada/5rosinte.ads b/gcc/ada/5rosinte.ads index 649499aae1b..710176c1222 100644 --- a/gcc/ada/5rosinte.ads +++ b/gcc/ada/5rosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2003 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- @@ -88,6 +87,7 @@ package System.OS_Interface is Max_Interrupt : constant := 31; type Signal is new int range 0 .. Max_Interrupt; + SIGXCPU : constant := 0; -- XCPU SIGHUP : constant := 1; -- hangup SIGINT : constant := 2; -- interrupt (rubout) SIGQUIT : constant := 3; -- quit (ASCD FS) @@ -106,7 +106,6 @@ package System.OS_Interface is SIGTERM : constant := 15; -- software termination signal from kill SIGUSR1 : constant := 16; -- user defined signal 1 SIGUSR2 : constant := 17; -- user defined signal 2 - SIGXCPU : constant := 0; -- XCPU SIGADAABORT : constant := SIGABRT; diff --git a/gcc/ada/5rparame.adb b/gcc/ada/5rparame.adb index 2a7cf5b777e..b6e15c776a8 100644 --- a/gcc/ada/5rparame.adb +++ b/gcc/ada/5rparame.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5sintman.adb b/gcc/ada/5sintman.adb index 4f117818f3b..77315a7a15b 100644 --- a/gcc/ada/5sintman.adb +++ b/gcc/ada/5sintman.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5sosinte.adb b/gcc/ada/5sosinte.adb index bb90d60cfc4..2909c7d0a4e 100644 --- a/gcc/ada/5sosinte.adb +++ b/gcc/ada/5sosinte.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1991-2001 Florida State University -- +-- Copyright (C) 1991-2002 Florida State University -- -- -- -- GNARL 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- -- @@ -68,8 +67,8 @@ package body System.OS_Interface is -- If F has negative value due to a round-up, adjust for positive F -- value. if F < 0.0 then S := S - 1; F := F + 1.0; end if; - return timespec' (tv_sec => S, - tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); + return timespec'(tv_sec => S, + tv_nsec => long (Long_Long_Integer (F * 10#1#E9))); end To_Timespec; function To_Duration (TV : struct_timeval) return Duration is @@ -87,8 +86,10 @@ package body System.OS_Interface is -- If F has negative value due to a round-up, adjust for positive F -- value. if F < 0.0 then S := S - 1; F := F + 1.0; end if; - return struct_timeval' (tv_sec => S, - tv_usec => long (Long_Long_Integer (F * 10#1#E6))); + return + struct_timeval' + (tv_sec => S, + tv_usec => long (Long_Long_Integer (F * 10#1#E6))); end To_Timeval; procedure pthread_init is diff --git a/gcc/ada/5sosinte.ads b/gcc/ada/5sosinte.ads index 33f1ffdad5c..1bd01f161c5 100644 --- a/gcc/ada/5sosinte.ads +++ b/gcc/ada/5sosinte.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -127,7 +126,8 @@ package System.OS_Interface is -- Following signals should not be disturbed. -- See c-posix-signals.c in FLORIST - Reserved : constant Signal_Set := (SIGKILL, SIGSTOP, SIGWAITING, SIGCANCEL); + Reserved : constant Signal_Set := + (SIGKILL, SIGSTOP, SIGWAITING, SIGCANCEL, SIGTRAP, SIGSEGV); type sigset_t is private; @@ -259,6 +259,10 @@ package System.OS_Interface is (clock_id : clockid_t; tp : access timespec) return int; pragma Import (C, clock_gettime, "clock_gettime"); + function clock_getres + (clock_id : clockid_t; res : access timespec) return int; + pragma Import (C, clock_getres, "clock_getres"); + function To_Duration (TS : timespec) return Duration; pragma Inline (To_Duration); diff --git a/gcc/ada/5sparame.adb b/gcc/ada/5sparame.adb index 952196dd8cc..847dda820e8 100644 --- a/gcc/ada/5sparame.adb +++ b/gcc/ada/5sparame.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5ssystem.ads b/gcc/ada/5ssystem.ads index 506fb6700a9..d39b090dc72 100644 --- a/gcc/ada/5ssystem.ads +++ b/gcc/ada/5ssystem.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (SUN Solaris Version) -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- @@ -59,7 +58,7 @@ pragma Pure (System); Max_Mantissa : constant := 63; Fine_Delta : constant := 2.0 ** (-Max_Mantissa); - Tick : constant := 1.0; + Tick : constant := 0.01; -- Storage-related Declarations @@ -120,6 +119,7 @@ private Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := True; Denorm : constant Boolean := True; + Exit_Status_Supported : constant Boolean := True; Fractional_Fixed_Ops : constant Boolean := False; Frontend_Layout : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := False; @@ -132,8 +132,8 @@ private Stack_Check_Default : constant Boolean := False; Stack_Check_Probes : constant Boolean := True; Use_Ada_Main_Program_Name : constant Boolean := False; - ZCX_By_Default : constant Boolean := False; - GCC_ZCX_Support : constant Boolean := False; + ZCX_By_Default : constant Boolean := True; + GCC_ZCX_Support : constant Boolean := True; Front_End_ZCX_Support : constant Boolean := False; end System; diff --git a/gcc/ada/5staprop.adb b/gcc/ada/5staprop.adb index dd1143fe837..e23bd0163e5 100644 --- a/gcc/ada/5staprop.adb +++ b/gcc/ada/5staprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5stasinf.adb b/gcc/ada/5stasinf.adb index 9bd2e1e7543..859bcd082ec 100644 --- a/gcc/ada/5stasinf.adb +++ b/gcc/ada/5stasinf.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -57,18 +56,18 @@ package body System.Task_Info is function New_Unbound_Thread_Attributes return Task_Info_Type is begin - return new Thread_Attributes' (False, False); + return new Thread_Attributes'(False, False); end New_Unbound_Thread_Attributes; function New_Bound_Thread_Attributes return Task_Info_Type is begin - return new Thread_Attributes' (False, True); + return new Thread_Attributes'(False, True); end New_Bound_Thread_Attributes; function New_Bound_Thread_Attributes (CPU : CPU_Number) return Task_Info_Type is begin - return new Thread_Attributes' (True, True, CPU); + return new Thread_Attributes'(True, True, CPU); end New_Bound_Thread_Attributes; end System.Task_Info; diff --git a/gcc/ada/5stasinf.ads b/gcc/ada/5stasinf.ads index cd19ef05d57..1002ee7ca21 100644 --- a/gcc/ada/5stasinf.ads +++ b/gcc/ada/5stasinf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5staspri.ads b/gcc/ada/5staspri.ads index 251cd6c242d..ea4653ee7f8 100644 --- a/gcc/ada/5staspri.ads +++ b/gcc/ada/5staspri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5stpopse.adb b/gcc/ada/5stpopse.adb index b3a05e1cd1e..a6c1e9e89b3 100644 --- a/gcc/ada/5stpopse.adb +++ b/gcc/ada/5stpopse.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5svxwork.ads b/gcc/ada/5svxwork.ads index 928fe5c5477..0fa38725b80 100644 --- a/gcc/ada/5svxwork.ads +++ b/gcc/ada/5svxwork.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5tosinte.ads b/gcc/ada/5tosinte.ads index 872a579167d..266ba885040 100644 --- a/gcc/ada/5tosinte.ads +++ b/gcc/ada/5tosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5uintman.adb b/gcc/ada/5uintman.adb index fb352aeb417..42531492ae7 100644 --- a/gcc/ada/5uintman.adb +++ b/gcc/ada/5uintman.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2002 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5uosinte.ads b/gcc/ada/5uosinte.ads index 0c923c7afd9..6afffa96aab 100644 --- a/gcc/ada/5uosinte.ads +++ b/gcc/ada/5uosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5vasthan.adb b/gcc/ada/5vasthan.adb index 14b3931cf78..9a65ed269da 100644 --- a/gcc/ada/5vasthan.adb +++ b/gcc/ada/5vasthan.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5vinmaop.adb b/gcc/ada/5vinmaop.adb index 6eb6b740145..e5c8eeedf7b 100644 --- a/gcc/ada/5vinmaop.adb +++ b/gcc/ada/5vinmaop.adb @@ -7,7 +7,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5vinterr.adb b/gcc/ada/5vinterr.adb index bf06cf30b8a..c32dd9938c5 100644 --- a/gcc/ada/5vinterr.adb +++ b/gcc/ada/5vinterr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5vintman.adb b/gcc/ada/5vintman.adb index 6566a16f630..d679bd0375d 100644 --- a/gcc/ada/5vintman.adb +++ b/gcc/ada/5vintman.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1991-2001, Florida State University -- +-- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -28,8 +27,7 @@ -- covered by the GNU Public License. -- -- -- -- GNARL was developed by the GNARL team at Florida State University. It is -- --- now maintained by Ada Core Technologies Inc. in cooperation with Florida -- --- State University (http://www.gnat.com). -- +-- now maintained by Ada Core Technologies, Inc. (http://www.gnat.com). -- -- -- ------------------------------------------------------------------------------ @@ -55,6 +53,7 @@ package body System.Interrupt_Management is procedure Initialize_Interrupts is Status : Cond_Value_Type; + begin Sys_Crembx (Status => Status, @@ -74,11 +73,11 @@ package body System.Interrupt_Management is Flags => AGN_M_WRITEONLY); pragma Assert ((Status and 1) = 1); - end Initialize_Interrupts; begin -- Unused + Abort_Task_Interrupt := Interrupt_ID_0; Reserve := Reserve or Keep_Unmasked or Keep_Masked; @@ -86,5 +85,4 @@ begin Reserve (Interrupt_ID_0) := True; Initialize_Interrupts; - end System.Interrupt_Management; diff --git a/gcc/ada/5vintman.ads b/gcc/ada/5vintman.ads index 8c198d9ecf2..5a0382db90b 100644 --- a/gcc/ada/5vintman.ads +++ b/gcc/ada/5vintman.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5vmastop.adb b/gcc/ada/5vmastop.adb index 01fe13928fc..bf4cc308273 100644 --- a/gcc/ada/5vmastop.adb +++ b/gcc/ada/5vmastop.adb @@ -7,7 +7,6 @@ -- B o d y -- -- (Version for Alpha/VMS) -- -- -- --- -- -- Copyright (C) 2001-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5vosinte.adb b/gcc/ada/5vosinte.adb index eddbdd1a87d..5c0909ee39e 100644 --- a/gcc/ada/5vosinte.adb +++ b/gcc/ada/5vosinte.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1991-2000 Florida State University -- +-- Copyright (C) 1991-2002 Florida State University -- -- -- -- GNARL 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- -- @@ -43,11 +42,34 @@ pragma Polling (Off); -- tasking operations. It causes infinite loops and other problems. with Interfaces.C; use Interfaces.C; +with System.Machine_Code; use System.Machine_Code; + package body System.OS_Interface is + ------------------ + -- pthread_self -- + ------------------ + + function pthread_self return pthread_t is + use ASCII; + Self : pthread_t; + + begin + Asm ("call_pal 0x9e" & LF & HT & + "bis $31, $0, %0", + Outputs => pthread_t'Asm_Output ("=r", Self), + Clobber => "$0"); + return Self; + end pthread_self; + + ----------------- + -- sched_yield -- + ----------------- + function sched_yield return int is procedure sched_yield_base; pragma Import (C, sched_yield_base, "PTHREAD_YIELD_NP"); + begin sched_yield_base; return 0; diff --git a/gcc/ada/5vosinte.ads b/gcc/ada/5vosinte.ads index 433dd1e83c1..7903bb67fbe 100644 --- a/gcc/ada/5vosinte.ads +++ b/gcc/ada/5vosinte.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1991-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -550,7 +549,6 @@ package System.OS_Interface is pragma Import (C, pthread_exit, "PTHREAD_EXIT"); function pthread_self return pthread_t; - pragma Import (C, pthread_self, "PTHREAD_SELF"); -------------------------- -- POSIX.1c Section 17 -- @@ -637,4 +635,6 @@ private type pthread_key_t is new unsigned; + pragma Inline (pthread_self); + end System.OS_Interface; diff --git a/gcc/ada/5vosprim.adb b/gcc/ada/5vosprim.adb index d06eca3f09e..6db0ccea5b1 100644 --- a/gcc/ada/5vosprim.adb +++ b/gcc/ada/5vosprim.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -110,11 +109,10 @@ package body System.OS_Primitives is --------------- -- Sys_Hiber -- --------------- - -- + -- Hibernate (until woken up) - -- + -- status = returned status - -- procedure Sys_Hiber (Status : out Cond_Value_Type); -- VMS system call to hibernate the current process @@ -174,6 +172,7 @@ package body System.OS_Primitives is ----------------- function To_Duration (T : OS_Time; Mode : Integer) return Duration is + pragma Warnings (Off, Mode); begin return Duration'Fixed_Value (T - VMS_Epoch_Offset) * 100; end To_Duration; diff --git a/gcc/ada/5vosprim.ads b/gcc/ada/5vosprim.ads index bc504ad1b71..a777bea3b83 100644 --- a/gcc/ada/5vosprim.ads +++ b/gcc/ada/5vosprim.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2003 Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -49,13 +48,17 @@ package System.OS_Primitives is -- Calendar.Time is positive. -- See Ada.Calendar.Delays for more information on VMS Time. - Max_Sensible_Delay : constant Duration := 183 * 24 * 60 * 60.0; + Max_Sensible_Delay : constant Duration := + Duration'Min (183 * 24 * 60 * 60.0, + Duration'Last); -- Max of half a year delay, needed to prevent exceptions for large -- delay values. It seems unlikely that any test will notice this -- restriction, except in the case of applications setting the clock at -- at run time (see s-tastim.adb). Also note that a larger value might -- cause problems (e.g overflow, or more likely OS limitation in the - -- primitives used). + -- primitives used). In the case where half a year is too long (which + -- occurs in high integrity mode with 32-bit words, and possibly on + -- some specific ports of GNAT), Duration'Last is used instead. function OS_Clock return OS_Time; -- Returns "absolute" time, represented as an offset diff --git a/gcc/ada/5vparame.ads b/gcc/ada/5vparame.ads index d9d6e10b09f..360596d4dbc 100644 --- a/gcc/ada/5vparame.ads +++ b/gcc/ada/5vparame.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -95,6 +94,11 @@ pragma Pure (Parameters); -- when Size < Minimum_Stack_Size, return Minimum_Stack_Size -- otherwise return given Size + Default_Env_Stack_Size : constant Size_Type := 8_192_000; + -- Assumed size of the environment task, if no other information + -- is available. This value is used when stack checking is + -- enabled and no GNAT_STACK_LIMIT environment variable is set. + Stack_Grows_Down : constant Boolean := True; -- This constant indicates whether the stack grows up (False) or -- down (True) in memory as functions are called. It is used for diff --git a/gcc/ada/5vsystem.ads b/gcc/ada/5vsystem.ads index 6c62a075689..ddf582bd046 100644 --- a/gcc/ada/5vsystem.ads +++ b/gcc/ada/5vsystem.ads @@ -7,8 +7,7 @@ -- S p e c -- -- (OpenVMS DEC Threads Version) -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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 -- @@ -59,7 +58,7 @@ pragma Pure (System); Max_Mantissa : constant := 63; Fine_Delta : constant := 2.0 ** (-Max_Mantissa); - Tick : constant := 1.0; + Tick : constant := 0.01; -- Storage-related Declarations @@ -120,11 +119,12 @@ private Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := True; Denorm : constant Boolean := False; + Exit_Status_Supported : constant Boolean := True; Fractional_Fixed_Ops : constant Boolean := False; Frontend_Layout : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := False; - Long_Shifts_Inlined : constant Boolean := True; High_Integrity_Mode : constant Boolean := False; + Long_Shifts_Inlined : constant Boolean := False; Machine_Overflows : constant Boolean := False; Machine_Rounds : constant Boolean := True; OpenVMS : constant Boolean := True; diff --git a/gcc/ada/5vtaprop.adb b/gcc/ada/5vtaprop.adb index fbd683a7c25..07664744502 100644 --- a/gcc/ada/5vtaprop.adb +++ b/gcc/ada/5vtaprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5vtaspri.ads b/gcc/ada/5vtaspri.ads index a51413c4f55..f0bbc051051 100644 --- a/gcc/ada/5vtaspri.ads +++ b/gcc/ada/5vtaspri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2000 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5vtpopde.adb b/gcc/ada/5vtpopde.adb index b708f82f015..59b2f8a96f4 100644 --- a/gcc/ada/5vtpopde.adb +++ b/gcc/ada/5vtpopde.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5vtpopde.ads b/gcc/ada/5vtpopde.ads index 492d57d6566..03a531eaa8e 100644 --- a/gcc/ada/5vtpopde.ads +++ b/gcc/ada/5vtpopde.ads @@ -2,13 +2,11 @@ -- -- -- GNU ADA RUN-TIME LIBRARY (GNARL) COMPONENTS -- -- -- --- S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S -- --- . D E C -- +-- SYSTEM.TASK_PRIMITIVES.OPERATIONS.DEC -- -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 2000 Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2002 Free Software Foundation, Inc. -- -- -- -- GNARL 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/5vvaflop.adb b/gcc/ada/5vvaflop.adb index 8e0206cb61d..8b1bf031fa4 100644 --- a/gcc/ada/5vvaflop.adb +++ b/gcc/ada/5vvaflop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2000 Free Software Foundation, Inc. -- -- (Version for Alpha OpenVMS) -- -- -- diff --git a/gcc/ada/5wgloloc.adb b/gcc/ada/5wgloloc.adb index 8a7594b2b7d..dc367b6a0e0 100644 --- a/gcc/ada/5wgloloc.adb +++ b/gcc/ada/5wgloloc.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5wintman.adb b/gcc/ada/5wintman.adb index 052dfc7c99a..b6ade065740 100644 --- a/gcc/ada/5wintman.adb +++ b/gcc/ada/5wintman.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2000 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5wmemory.adb b/gcc/ada/5wmemory.adb index 563465da791..0452ae8668b 100644 --- a/gcc/ada/5wmemory.adb +++ b/gcc/ada/5wmemory.adb @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 2001 Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2002 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 -- @@ -192,7 +191,7 @@ package body System.Memory is return System.Address is Result : System.Address; - Actual_Size : size_t := Size; + Actual_Size : constant size_t := Size; Old_Size : size_t; begin diff --git a/gcc/ada/5wosinte.ads b/gcc/ada/5wosinte.ads index c28537392ad..cf9aee5a35b 100644 --- a/gcc/ada/5wosinte.ads +++ b/gcc/ada/5wosinte.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1997-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2003, Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -63,7 +62,6 @@ pragma Preelaborate; -- (See Operations.Clock) type LARGE_INTEGER is delta 1.0 range -2.0**63 .. 2.0**63 - 1.0; - for LARGE_INTEGER'Alignment use 4; subtype PSZ is Interfaces.C.Strings.chars_ptr; subtype PCHAR is Interfaces.C.Strings.chars_ptr; @@ -185,6 +183,9 @@ pragma Preelaborate; type Thread_Body is access function (arg : System.Address) return System.Address; + procedure SwitchToThread; + pragma Import (Stdcall, SwitchToThread, "SwitchToThread"); + ----------------------- -- Critical sections -- ----------------------- @@ -400,6 +401,11 @@ pragma Preelaborate; dwPriorityClass : DWORD) return BOOL; pragma Import (Stdcall, SetPriorityClass, "SetPriorityClass"); + procedure SetThreadPriorityBoost + (hThread : HANDLE; + DisablePriorityBoost : BOOL); + pragma Import (Stdcall, SetThreadPriorityBoost, "SetThreadPriorityBoost"); + Normal_Priority_Class : constant := 16#00000020#; Idle_Priority_Class : constant := 16#00000040#; High_Priority_Class : constant := 16#00000080#; diff --git a/gcc/ada/5wosprim.adb b/gcc/ada/5wosprim.adb index b4279a02751..4ceee490e6e 100644 --- a/gcc/ada/5wosprim.adb +++ b/gcc/ada/5wosprim.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5wsystem.ads b/gcc/ada/5wsystem.ads index f828e410ab6..0e832334e0a 100644 --- a/gcc/ada/5wsystem.ads +++ b/gcc/ada/5wsystem.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (NT Version) -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/5wtaprop.adb b/gcc/ada/5wtaprop.adb index eb52268e530..a4094c886c1 100644 --- a/gcc/ada/5wtaprop.adb +++ b/gcc/ada/5wtaprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5wtaspri.ads b/gcc/ada/5wtaspri.ads index 046c61d0673..26160c6b094 100644 --- a/gcc/ada/5wtaspri.ads +++ b/gcc/ada/5wtaspri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2000 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5ysystem.ads b/gcc/ada/5ysystem.ads index 2f2b9eae098..7612018554d 100644 --- a/gcc/ada/5ysystem.ads +++ b/gcc/ada/5ysystem.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (VXWORKS Version PPC) -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/5zinterr.adb b/gcc/ada/5zinterr.adb index f66777a05e5..03a724a83df 100644 --- a/gcc/ada/5zinterr.adb +++ b/gcc/ada/5zinterr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5zintman.adb b/gcc/ada/5zintman.adb index 9b274b5e0d4..0f1defc4715 100644 --- a/gcc/ada/5zintman.adb +++ b/gcc/ada/5zintman.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5zosinte.adb b/gcc/ada/5zosinte.adb index 920dc1da270..1fbb58c6405 100644 --- a/gcc/ada/5zosinte.adb +++ b/gcc/ada/5zosinte.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2002 Free Software Foundation -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5zosinte.ads b/gcc/ada/5zosinte.ads index b4b98bec81a..398db312c0d 100644 --- a/gcc/ada/5zosinte.ads +++ b/gcc/ada/5zosinte.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5zosprim.adb b/gcc/ada/5zosprim.adb index 01d15ff2d7a..1a5d036e3aa 100644 --- a/gcc/ada/5zosprim.adb +++ b/gcc/ada/5zosprim.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/5zsystem.ads b/gcc/ada/5zsystem.ads index 551911ec8ad..e7fd405966c 100644 --- a/gcc/ada/5zsystem.ads +++ b/gcc/ada/5zsystem.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (VXWORKS Version Alpha) -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/5ztaprop.adb b/gcc/ada/5ztaprop.adb index 7c7a325ba32..2051041becb 100644 --- a/gcc/ada/5ztaprop.adb +++ b/gcc/ada/5ztaprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/6vcpp.adb b/gcc/ada/6vcpp.adb index 57b15f1f7b0..8e4764ea7b4 100644 --- a/gcc/ada/6vcpp.adb +++ b/gcc/ada/6vcpp.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/6vcstrea.adb b/gcc/ada/6vcstrea.adb index 00873bfb0d2..20379da30ac 100644 --- a/gcc/ada/6vcstrea.adb +++ b/gcc/ada/6vcstrea.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/6vinterf.ads b/gcc/ada/6vinterf.ads index c1539dda304..96902868ec3 100644 --- a/gcc/ada/6vinterf.ads +++ b/gcc/ada/6vinterf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/7sinmaop.adb b/gcc/ada/7sinmaop.adb index 57242e0e8a0..98058a22d8d 100644 --- a/gcc/ada/7sinmaop.adb +++ b/gcc/ada/7sinmaop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-1998, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/7sintman.adb b/gcc/ada/7sintman.adb index c0c8fbe6723..ee8acee5d58 100644 --- a/gcc/ada/7sintman.adb +++ b/gcc/ada/7sintman.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2002, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/7sosinte.adb b/gcc/ada/7sosinte.adb index 1891eed8379..252ce1f3046 100644 --- a/gcc/ada/7sosinte.adb +++ b/gcc/ada/7sosinte.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/7sosprim.adb b/gcc/ada/7sosprim.adb index 6d4cf22c1f8..a0c76f5c6d8 100644 --- a/gcc/ada/7sosprim.adb +++ b/gcc/ada/7sosprim.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/7staprop.adb b/gcc/ada/7staprop.adb index 4d4d0e9c2c2..5c1b1e16e0e 100644 --- a/gcc/ada/7staprop.adb +++ b/gcc/ada/7staprop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/7staspri.ads b/gcc/ada/7staspri.ads index 140eebb3b8b..5fc600cdb90 100644 --- a/gcc/ada/7staspri.ads +++ b/gcc/ada/7staspri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2000, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/7stpopsp.adb b/gcc/ada/7stpopsp.adb index e3c3b3a5927..a0833b86836 100644 --- a/gcc/ada/7stpopsp.adb +++ b/gcc/ada/7stpopsp.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/7straceb.adb b/gcc/ada/7straceb.adb index 73188f84941..e3a7ff7f980 100644 --- a/gcc/ada/7straceb.adb +++ b/gcc/ada/7straceb.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/86numaux.adb b/gcc/ada/86numaux.adb index 1392f52786b..a13733305a1 100644 --- a/gcc/ada/86numaux.adb +++ b/gcc/ada/86numaux.adb @@ -7,7 +7,6 @@ -- B o d y -- -- (Machine Version for x86) -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/86numaux.ads b/gcc/ada/86numaux.ads index 1d3731d5d67..857499fdfc1 100644 --- a/gcc/ada/86numaux.ads +++ b/gcc/ada/86numaux.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (Machine Version for x86) -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/9drpc.adb b/gcc/ada/9drpc.adb index c44200cf443..cca1785bbc1 100644 --- a/gcc/ada/9drpc.adb +++ b/gcc/ada/9drpc.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 038b18f6971..0d720738ffe 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,340 @@ +2003-04-23 Geert Bosch <bosch@gnat.com> + + * 1aexcept.adb, 1aexcept.ads, 1ic.ads, 1ssecsta.adb, + 1ssecsta.ads, 31soccon.ads, 31soliop.ads, 3asoccon.ads, + 3bsoccon.ads, 3gsoccon.ads, 3hsoccon.ads, 3ssoccon.ads, + 3ssoliop.ads, 3wsoccon.ads, 3wsocthi.adb, 3wsocthi.ads, + 3wsoliop.ads, 41intnam.ads, 42intnam.ads, 4aintnam.ads, + 4cintnam.ads, 4dintnam.ads, 4gintnam.ads, 4hexcpol.adb, + 4hintnam.ads, 4lintnam.ads, 4mintnam.ads, 4nintnam.ads, + 4ointnam.ads, 4onumaux.ads, 4pintnam.ads, 4rintnam.ads, + 4sintnam.ads, 4uintnam.ads, 4vcaldel.adb, 4vcalend.adb, + 4vcalend.ads, 4vintnam.ads, 4wcalend.adb, 4wexcpol.adb, + 4wintnam.ads, 4zintnam.ads, 4znumaux.ads, 4zsytaco.adb, + 4zsytaco.ads, 51osinte.adb, 51osinte.ads, 52osinte.adb, + 52osinte.ads, 52system.ads, 53osinte.ads, 54osinte.ads, + 5amastop.adb, 5aosinte.adb, 5aosinte.ads, 5asystem.ads, + 5ataprop.adb, 5atasinf.ads, 5ataspri.ads, 5atpopsp.adb, + 5avxwork.ads, 5bosinte.adb, 5bosinte.ads, 5bsystem.ads, + 5cosinte.ads, 5dosinte.ads, 5esystem.ads, 5etpopse.adb, + 5fintman.adb, 5fosinte.ads, 5fsystem.ads, 5ftaprop.adb, + 5ftasinf.ads, 5ginterr.adb, 5gintman.adb, 5gmastop.adb, + 5gosinte.ads, 5gproinf.adb, 5gproinf.ads, 5gsystem.ads, + 5gtaprop.adb, 5gtasinf.adb, 5gtasinf.ads, 5gtpgetc.adb, + 5hosinte.adb, 5hosinte.ads, 5hparame.ads, 5hsystem.ads, + 5htaprop.adb, 5htaspri.ads, 5htraceb.adb, 5iosinte.adb, + 5iosinte.ads, 5itaprop.adb, 5itaspri.ads, 5ksystem.ads, + 5kvxwork.ads, 5lintman.adb, 5lml-tgt.adb, 5losinte.ads, + 5lsystem.ads, 5mosinte.ads, 5mvxwork.ads, 5ninmaop.adb, + 5nintman.adb, 5nosinte.ads, 5ntaprop.adb, 5ntaspri.ads, + 5ointerr.adb, 5omastop.adb, 5oosinte.adb, 5oosinte.ads, + 5oosprim.adb, 5oparame.adb, 5osystem.ads, 5otaprop.adb, + 5otaspri.ads, 5posinte.ads, 5posprim.adb, 5pvxwork.ads, + 5qosinte.adb, 5qosinte.ads, 5qstache.adb, 5qtaprop.adb, + 5qtaspri.ads, 5rosinte.adb, 5rosinte.ads, 5rparame.adb, + 5sintman.adb, 5sosinte.adb, 5sosinte.ads, 5sparame.adb, + 5ssystem.ads, 5staprop.adb, 5stasinf.adb, 5stasinf.ads, + 5staspri.ads, 5stpopse.adb, 5svxwork.ads, 5tosinte.ads, + 5uintman.adb, 5uosinte.ads, 5vasthan.adb, 5vinmaop.adb, + 5vinterr.adb, 5vintman.adb, 5vintman.ads, 5vmastop.adb, + 5vosinte.adb, 5vosinte.ads, 5vosprim.adb, 5vosprim.ads, + 5vparame.ads, 5vsystem.ads, 5vtaprop.adb, 5vtaspri.ads, + 5vtpopde.adb, 5vtpopde.ads, 5vvaflop.adb, 5wgloloc.adb, + 5wintman.adb, 5wmemory.adb, 5wosinte.ads, 5wosprim.adb, + 5wsystem.ads, 5wtaprop.adb, 5wtaspri.ads, 5ysystem.ads, + 5zinterr.adb, 5zintman.adb, 5zosinte.adb, 5zosinte.ads, + 5zosprim.adb, 5zsystem.ads, 5ztaprop.adb, 6vcpp.adb, + 6vcstrea.adb, 6vinterf.ads, 7sinmaop.adb, 7sintman.adb, + 7sosinte.adb, 7sosprim.adb, 7staprop.adb, 7staspri.ads, + 7stpopsp.adb, 7straceb.adb, 86numaux.adb, 86numaux.ads, + 9drpc.adb, a-astaco.adb, a-astaco.ads, a-caldel.adb, + a-caldel.ads, a-calend.adb, a-calend.ads, a-chahan.adb, + a-chahan.ads, a-charac.ads, a-chlat1.ads, a-chlat9.ads, + a-colien.adb, a-colien.ads, a-colire.adb, a-colire.ads, + a-comlin.adb, a-comlin.ads, a-cwila1.ads, a-cwila9.ads, + a-decima.adb, a-decima.ads, a-diocst.adb, a-diocst.ads, + a-direio.adb, a-direio.ads, a-dynpri.adb, a-dynpri.ads, + a-einuoc.adb, a-einuoc.ads, a-except.adb, a-except.ads, + a-excpol.adb, a-exctra.adb, a-exctra.ads, a-filico.adb, + a-filico.ads, a-finali.adb, a-finali.ads, a-flteio.ads, + a-fwteio.ads, a-inteio.ads, a-interr.adb, a-interr.ads, + a-intnam.ads, a-intsig.adb, a-intsig.ads, a-ioexce.ads, + a-iwteio.ads, a-lfteio.ads, a-lfwtio.ads, a-liteio.ads, + a-liwtio.ads, a-llftio.ads, a-llfwti.ads, a-llitio.ads, + a-lliwti.ads, a-ncelfu.ads, a-ngcefu.adb, a-ngcefu.ads, + a-ngcoty.adb, a-ngcoty.ads, a-ngelfu.adb, a-ngelfu.ads, + a-nlcefu.ads, a-nlcoty.ads, a-nlelfu.ads, a-nllcef.ads, + a-nllcty.ads, a-nllefu.ads, a-nscefu.ads, a-nscoty.ads, + a-nselfu.ads, a-nucoty.ads, a-nudira.adb, a-nudira.ads, + a-nuelfu.ads, a-nuflra.adb, a-nuflra.ads, a-numaux.ads, + a-numeri.ads, a-reatim.adb, a-reatim.ads, a-retide.adb, + a-retide.ads, a-sequio.adb, a-sequio.ads, a-sfteio.ads, + a-sfwtio.ads, a-siocst.adb, a-siocst.ads, a-siteio.ads, + a-siwtio.ads, a-ssicst.adb, a-ssicst.ads, a-ssitio.ads, + a-ssiwti.ads, a-stmaco.ads, a-storio.adb, a-storio.ads, + a-strbou.adb, a-strbou.ads, a-stream.ads, a-strfix.adb, + a-strfix.ads, a-string.ads, a-strmap.adb, a-strmap.ads, + a-strsea.adb, a-strsea.ads, a-strunb.adb, a-strunb.ads, + a-ststio.adb, a-ststio.ads, a-stunau.adb, a-stunau.ads, + a-stwibo.adb, a-stwibo.ads, a-stwifi.adb, a-stwifi.ads, + a-stwima.adb, a-stwima.ads, a-stwise.adb, a-stwise.ads, + a-stwiun.adb, a-stwiun.ads, a-suteio.adb, a-suteio.ads, + a-swmwco.ads, a-swuwti.adb, a-swuwti.ads, a-sytaco.adb, + a-sytaco.ads, a-tags.adb, a-tags.ads, a-tasatt.adb, + a-tasatt.ads, a-taside.adb, a-taside.ads, a-teioed.adb, + a-teioed.ads, a-textio.adb, a-textio.ads, a-ticoau.adb, + a-ticoau.ads, a-ticoio.adb, a-ticoio.ads, a-tideau.adb, + a-tideau.ads, a-tideio.adb, a-tideio.ads, a-tienau.adb, + a-tienau.ads, a-tienio.adb, a-tienio.ads, a-tifiio.adb, + a-tifiio.ads, a-tiflau.adb, a-tiflau.ads, a-tiflio.adb, + a-tiflio.ads, a-tigeau.adb, a-tigeau.ads, a-tiinau.adb, + a-tiinau.ads, a-tiinio.adb, a-tiinio.ads, a-timoau.adb, + a-timoau.ads, a-timoio.adb, a-timoio.ads, a-tiocst.adb, + a-tiocst.ads, a-titest.adb, a-titest.ads, a-unccon.ads, + a-uncdea.ads, a-witeio.adb, a-witeio.ads, a-wtcoau.adb, + a-wtcoau.ads, a-wtcoio.adb, a-wtcoio.ads, a-wtcstr.adb, + a-wtcstr.ads, a-wtdeau.adb, a-wtdeau.ads, a-wtdeio.adb, + a-wtdeio.ads, a-wtedit.adb, a-wtedit.ads, a-wtenau.adb, + a-wtenau.ads, a-wtenio.adb, a-wtenio.ads, a-wtfiio.adb, + a-wtfiio.ads, a-wtflau.adb, a-wtflau.ads, a-wtflio.adb, + a-wtflio.ads, a-wtgeau.adb, a-wtgeau.ads, a-wtinau.adb, + a-wtinau.ads, a-wtinio.adb, a-wtinio.ads, a-wtmoau.adb, + a-wtmoau.ads, a-wtmoio.adb, a-wtmoio.ads, a-wttest.adb, + a-wttest.ads, ada-tree.h, ada.ads, ada.h, + adadecode.c, adadecode.h, ali-util.adb, ali-util.ads, + ali.adb, ali.ads, alloc.ads, argv.c, + atree.adb, atree.ads, atree.h, aux-io.c, + back_end.adb, back_end.ads, bcheck.adb, bcheck.ads, + binde.adb, binde.ads, binderr.adb, binderr.ads, + bindgen.adb, bindgen.ads, bindusg.adb, bindusg.ads, + butil.adb, butil.ads, cal.c, calendar.ads, + casing.adb, casing.ads, ceinfo.adb, checks.adb, + checks.ads, cio.c, comperr.adb, comperr.ads, + config-lang.in, csets.adb, csets.ads, csinfo.adb, + cstand.adb, cstand.ads, cuintp.c, debug.adb, + debug.ads, debug_a.adb, debug_a.ads, dec-io.adb, + dec-io.ads, dec.ads, deftarg.c, directio.ads, + einfo.adb, einfo.ads, elists.adb, elists.ads, + elists.h, errno.c, errout.adb, errout.ads, + eval_fat.adb, eval_fat.ads, exit.c, exp_aggr.adb, + exp_aggr.ads, exp_attr.adb, exp_attr.ads, exp_ch10.ads, + exp_ch11.adb, exp_ch11.ads, exp_ch12.adb, exp_ch12.ads, + exp_ch13.adb, exp_ch13.ads, exp_ch2.adb, exp_ch2.ads, + exp_ch3.adb, exp_ch3.ads, exp_ch4.adb, exp_ch4.ads, + exp_ch5.adb, exp_ch5.ads, exp_ch6.adb, exp_ch6.ads, + exp_ch7.adb, exp_ch7.ads, exp_ch8.adb, exp_ch8.ads, + exp_ch9.adb, exp_ch9.ads, exp_code.adb, exp_code.ads, + exp_dbug.adb, exp_dbug.ads, exp_disp.adb, exp_disp.ads, + exp_dist.adb, exp_dist.ads, exp_fixd.adb, exp_fixd.ads, + exp_imgv.adb, exp_imgv.ads, exp_intr.adb, exp_intr.ads, + exp_pakd.adb, exp_pakd.ads, exp_prag.adb, exp_prag.ads, + exp_smem.adb, exp_smem.ads, exp_strm.adb, exp_strm.ads, + exp_tss.adb, exp_tss.ads, exp_util.adb, exp_util.ads, + exp_vfpt.adb, exp_vfpt.ads, expander.adb, expander.ads, + fmap.adb, fmap.ads, fname-sf.adb, fname-sf.ads, + fname-uf.adb, fname-uf.ads, fname.adb, fname.ads, + freeze.adb, freeze.ads, frontend.adb, frontend.ads, + g-awk.adb, g-awk.ads, g-busora.adb, g-busora.ads, + g-busorg.adb, g-busorg.ads, g-calend.adb, g-calend.ads, + g-casuti.adb, g-casuti.ads, g-catiio.adb, g-catiio.ads, + g-cgi.adb, g-cgi.ads, g-cgicoo.adb, g-cgicoo.ads, + g-cgideb.adb, g-cgideb.ads, g-comlin.adb, g-comlin.ads, + g-crc32.adb, g-crc32.ads, g-curexc.ads, g-debpoo.adb, + g-debpoo.ads, g-debuti.adb, g-debuti.ads, g-diopit.adb, + g-diopit.ads, g-dirope.adb, g-dirope.ads, g-dyntab.adb, + g-dyntab.ads, g-enblsp.adb, g-except.ads, g-exctra.adb, + g-exctra.ads, g-expect.adb, g-expect.ads, g-flocon.ads, + g-hesora.adb, g-hesora.ads, g-hesorg.adb, g-hesorg.ads, + g-htable.adb, g-htable.ads, g-io.adb, g-io.ads, + g-io_aux.adb, g-io_aux.ads, g-locfil.ads, g-md5.adb, + g-md5.ads, g-moreex.adb, g-moreex.ads, g-os_lib.adb, + g-os_lib.ads, g-regexp.adb, g-regexp.ads, g-regist.ads, + g-regpat.adb, g-regpat.ads, g-soccon.ads, g-socket.adb, + g-socket.ads, g-socthi.adb, g-socthi.ads, g-soliop.ads, + g-souinf.ads, g-speche.adb, g-speche.ads, g-spipat.adb, + g-spipat.ads, g-spitbo.adb, g-spitbo.ads, g-sptabo.ads, + g-sptain.ads, g-sptavs.ads, g-table.adb, g-table.ads, + g-tasloc.adb, g-tasloc.ads, g-thread.adb, g-thread.ads, + g-traceb.adb, g-traceb.ads, g-trasym.adb, g-trasym.ads, + get_targ.adb, get_targ.ads, gnat-style.texi, gnat.ads, + gnat1drv.adb, gnat1drv.ads, gnatbind.adb, gnatbind.ads, + gnatbl.c, gnatchop.adb, gnatcmd.adb, gnatcmd.ads, + gnatdll.adb, gnatfind.adb, gnatkr.adb, gnatkr.ads, + gnatlbr.adb, gnatlink.adb, gnatlink.ads, gnatls.adb, + gnatls.ads, gnatmake.adb, gnatmake.ads, gnatmem.adb, + gnatname.adb, gnatname.ads, gnatprep.adb, gnatprep.ads, + gnatpsta.adb, gnatvsn.adb, gnatvsn.ads, gnatxref.adb, + hlo.adb, hlo.ads, hostparm.ads, i-c.adb, + i-c.ads, i-cexten.ads, i-cobol.adb, i-cobol.ads, + i-cpoint.adb, i-cpoint.ads, i-cpp.adb, i-cpp.ads, + i-cstrea.adb, i-cstrea.ads, i-cstrin.adb, i-cstrin.ads, + i-fortra.adb, i-fortra.ads, i-os2err.ads, i-os2lib.adb, + i-os2lib.ads, i-os2syn.ads, i-os2thr.ads, i-pacdec.adb, + i-pacdec.ads, i-vxwork.ads, impunit.adb, impunit.ads, + inline.adb, inline.ads, interfac.ads, ioexcept.ads, + itypes.adb, itypes.ads, krunch.adb, krunch.ads, + layout.adb, layout.ads, lib-list.adb, lib-load.adb, + lib-load.ads, lib-sort.adb, lib-util.adb, lib-util.ads, + lib-writ.adb, lib-writ.ads, lib-xref.adb, lib-xref.ads, + lib.adb, lib.ads, live.adb, live.ads, + machcode.ads, make.adb, make.ads, makeusg.adb, + makeusg.ads, math_lib.adb, mdll-fil.adb, mdll-fil.ads, + mdll-utl.adb, mdll-utl.ads, mdll.adb, mdll.ads, + memroot.adb, memroot.ads, memtrack.adb, mlib-fil.adb, + mlib-fil.ads, mlib-prj.adb, mlib-prj.ads, mlib-tgt.adb, + mlib-tgt.ads, mlib-utl.adb, mlib-utl.ads, mlib.adb, + mlib.ads, namet.adb, namet.ads, nlists.adb, + nlists.ads, opt.adb, opt.ads, osint-b.adb, + osint-b.ads, osint-c.adb, osint-c.ads, osint-l.adb, + osint-l.ads, osint-m.adb, osint-m.ads, osint.adb, + osint.ads, output.adb, output.ads, par-ch10.adb, + par-ch11.adb, par-ch12.adb, par-ch13.adb, par-ch2.adb, + par-ch3.adb, par-ch4.adb, par-ch5.adb, par-ch6.adb, + par-ch7.adb, par-ch8.adb, par-ch9.adb, par-endh.adb, + par-labl.adb, par-load.adb, par-prag.adb, par-sync.adb, + par-tchk.adb, par-util.adb, par.adb, par.ads, + prj-attr.adb, prj-attr.ads, prj-com.adb, prj-com.ads, + prj-dect.adb, prj-dect.ads, prj-env.adb, prj-env.ads, + prj-ext.adb, prj-ext.ads, prj-makr.adb, prj-makr.ads, + prj-nmsc.adb, prj-nmsc.ads, prj-pars.adb, prj-pars.ads, + prj-part.adb, prj-part.ads, prj-pp.adb, prj-pp.ads, + prj-proc.adb, prj-proc.ads, prj-strt.adb, prj-strt.ads, + prj-tree.adb, prj-tree.ads, prj-util.adb, prj-util.ads, + prj.adb, prj.ads, repinfo.adb, repinfo.ads, + restrict.adb, restrict.ads, rident.ads, rtsfind.adb, + rtsfind.ads, s-addima.adb, s-addima.ads, s-arit64.adb, + s-arit64.ads, s-assert.adb, s-assert.ads, s-asthan.adb, + s-asthan.ads, s-atacco.adb, s-atacco.ads, s-auxdec.adb, + s-auxdec.ads, s-bitops.adb, s-bitops.ads, s-chepoo.ads, + s-crc32.adb, s-crc32.ads, s-direio.adb, s-direio.ads, + s-errrep.adb, s-errrep.ads, s-except.ads, s-exctab.adb, + s-exctab.ads, s-exnflt.ads, s-exngen.adb, s-exngen.ads, + s-exnint.ads, s-exnlfl.ads, s-exnlin.ads, s-exnllf.ads, + s-exnlli.ads, s-exnsfl.ads, s-exnsin.ads, s-exnssi.ads, + s-expflt.ads, s-expgen.adb, s-expgen.ads, s-expint.ads, + s-explfl.ads, s-explin.ads, s-expllf.ads, s-explli.ads, + s-expllu.adb, s-expllu.ads, s-expmod.adb, s-expmod.ads, + s-expsfl.ads, s-expsin.ads, s-expssi.ads, s-expuns.adb, + s-expuns.ads, s-fatflt.ads, s-fatgen.adb, s-fatgen.ads, + s-fatlfl.ads, s-fatllf.ads, s-fatsfl.ads, s-ficobl.ads, + s-fileio.adb, s-fileio.ads, s-finimp.adb, s-finimp.ads, + s-finroo.adb, s-finroo.ads, s-fore.adb, s-fore.ads, + s-gloloc.adb, s-gloloc.ads, s-imgbiu.adb, s-imgbiu.ads, + s-imgboo.adb, s-imgboo.ads, s-imgcha.adb, s-imgcha.ads, + s-imgdec.adb, s-imgdec.ads, s-imgenu.adb, s-imgenu.ads, + s-imgint.adb, s-imgint.ads, s-imgllb.adb, s-imgllb.ads, + s-imglld.adb, s-imglld.ads, s-imglli.adb, s-imglli.ads, + s-imgllu.adb, s-imgllu.ads, s-imgllw.adb, s-imgllw.ads, + s-imgrea.adb, s-imgrea.ads, s-imguns.adb, s-imguns.ads, + s-imgwch.adb, s-imgwch.ads, s-imgwiu.adb, s-imgwiu.ads, + s-inmaop.ads, s-interr.adb, s-interr.ads, s-intman.ads, + s-io.adb, s-io.ads, s-maccod.ads, s-mantis.adb, + s-mantis.ads, s-mastop.adb, s-mastop.ads, s-memory.adb, + s-memory.ads, s-osprim.ads, s-pack03.adb, s-pack03.ads, + s-pack05.adb, s-pack05.ads, s-pack06.adb, s-pack06.ads, + s-pack07.adb, s-pack07.ads, s-pack09.adb, s-pack09.ads, + s-pack10.adb, s-pack10.ads, s-pack11.adb, s-pack11.ads, + s-pack12.adb, s-pack12.ads, s-pack13.adb, s-pack13.ads, + s-pack14.adb, s-pack14.ads, s-pack15.adb, s-pack15.ads, + s-pack17.adb, s-pack17.ads, s-pack18.adb, s-pack18.ads, + s-pack19.adb, s-pack19.ads, s-pack20.adb, s-pack20.ads, + s-pack21.adb, s-pack21.ads, s-pack22.adb, s-pack22.ads, + s-pack23.adb, s-pack23.ads, s-pack24.adb, s-pack24.ads, + s-pack25.adb, s-pack25.ads, s-pack26.adb, s-pack26.ads, + s-pack27.adb, s-pack27.ads, s-pack28.adb, s-pack28.ads, + s-pack29.adb, s-pack29.ads, s-pack30.adb, s-pack30.ads, + s-pack31.adb, s-pack31.ads, s-pack33.adb, s-pack33.ads, + s-pack34.adb, s-pack34.ads, s-pack35.adb, s-pack35.ads, + s-pack36.adb, s-pack36.ads, s-pack37.adb, s-pack37.ads, + s-pack38.adb, s-pack38.ads, s-pack39.adb, s-pack39.ads, + s-pack40.adb, s-pack40.ads, s-pack41.adb, s-pack41.ads, + s-pack42.adb, s-pack42.ads, s-pack43.adb, s-pack43.ads, + s-pack44.adb, s-pack44.ads, s-pack45.adb, s-pack45.ads, + s-pack46.adb, s-pack46.ads, s-pack47.adb, s-pack47.ads, + s-pack48.adb, s-pack48.ads, s-pack49.adb, s-pack49.ads, + s-pack50.adb, s-pack50.ads, s-pack51.adb, s-pack51.ads, + s-pack52.adb, s-pack52.ads, s-pack53.adb, s-pack53.ads, + s-pack54.adb, s-pack54.ads, s-pack55.adb, s-pack55.ads, + s-pack56.adb, s-pack56.ads, s-pack57.adb, s-pack57.ads, + s-pack58.adb, s-pack58.ads, s-pack59.adb, s-pack59.ads, + s-pack60.adb, s-pack60.ads, s-pack61.adb, s-pack61.ads, + s-pack62.adb, s-pack62.ads, s-pack63.adb, s-pack63.ads, + s-parame.adb, s-parame.ads, s-parint.adb, s-parint.ads, + s-pooglo.adb, s-pooglo.ads, s-pooloc.adb, s-pooloc.ads, + s-poosiz.adb, s-poosiz.ads, s-powtab.ads, s-proinf.adb, + s-proinf.ads, s-rpc.adb, s-rpc.ads, s-scaval.ads, + s-secsta.adb, s-secsta.ads, s-sequio.adb, s-sequio.ads, + s-shasto.adb, s-shasto.ads, s-soflin.adb, s-soflin.ads, + s-sopco3.adb, s-sopco3.ads, s-sopco4.adb, s-sopco4.ads, + s-sopco5.adb, s-sopco5.ads, s-stache.adb, s-stache.ads, + s-stalib.adb, s-stalib.ads, s-stoele.adb, s-stoele.ads, + s-stopoo.ads, s-stratt.adb, s-stratt.ads, s-strops.adb, + s-strops.ads, s-taasde.adb, s-taasde.ads, s-tadeca.adb, + s-tadeca.ads, s-tadert.adb, s-tadert.ads, s-taenca.adb, + s-taenca.ads, s-taprob.adb, s-taprob.ads, s-taprop.ads, + s-tarest.adb, s-tarest.ads, s-tasdeb.adb, s-tasdeb.ads, + s-tasinf.adb, s-tasinf.ads, s-tasini.adb, s-tasini.ads, + s-taskin.adb, s-taskin.ads, s-tasque.adb, s-tasque.ads, + s-tasren.adb, s-tasren.ads, s-tasres.ads, s-tassta.adb, + s-tassta.ads, s-tasuti.adb, s-tasuti.ads, s-tataat.adb, + s-tataat.ads, s-tpinop.adb, s-tpinop.ads, s-tpoben.adb, + s-tpoben.ads, s-tpobop.adb, s-tpobop.ads, s-tposen.adb, + s-tposen.ads, s-traceb.adb, s-traceb.ads, s-traces.adb, + s-traces.ads, s-tratas.adb, s-tratas.ads, s-unstyp.ads, + s-vaflop.adb, s-vaflop.ads, s-valboo.adb, s-valboo.ads, + s-valcha.adb, s-valcha.ads, s-valdec.adb, s-valdec.ads, + s-valenu.adb, s-valenu.ads, s-valint.adb, s-valint.ads, + s-vallld.adb, s-vallld.ads, s-vallli.adb, s-vallli.ads, + s-valllu.adb, s-valllu.ads, s-valrea.adb, s-valrea.ads, + s-valuns.adb, s-valuns.ads, s-valuti.adb, s-valuti.ads, + s-valwch.adb, s-valwch.ads, s-vercon.adb, s-vercon.ads, + s-vmexta.adb, s-vmexta.ads, s-wchcnv.adb, s-wchcnv.ads, + s-wchcon.ads, s-wchjis.adb, s-wchjis.ads, s-wchstw.adb, + s-wchstw.ads, s-wchwts.adb, s-wchwts.ads, s-widboo.adb, + s-widboo.ads, s-widcha.adb, s-widcha.ads, s-widenu.adb, + s-widenu.ads, s-widlli.adb, s-widlli.ads, s-widllu.adb, + s-widllu.ads, s-widwch.adb, s-widwch.ads, s-wwdcha.adb, + s-wwdcha.ads, s-wwdenu.adb, s-wwdenu.ads, s-wwdwch.adb, + s-wwdwch.ads, scans.adb, scans.ads, scn-nlit.adb, + scn-slit.adb, scn.adb, scn.ads, sdefault.ads, + sem.adb, sem.ads, sem_aggr.adb, sem_aggr.ads, + sem_attr.adb, sem_attr.ads, sem_case.adb, sem_case.ads, + sem_cat.adb, sem_cat.ads, sem_ch10.adb, sem_ch10.ads, + sem_ch11.adb, sem_ch11.ads, sem_ch12.adb, sem_ch12.ads, + sem_ch13.adb, sem_ch13.ads, sem_ch2.adb, sem_ch2.ads, + sem_ch3.adb, sem_ch3.ads, sem_ch4.adb, sem_ch4.ads, + sem_ch5.adb, sem_ch5.ads, sem_ch6.adb, sem_ch6.ads, + sem_ch7.adb, sem_ch7.ads, sem_ch8.adb, sem_ch8.ads, + sem_ch9.adb, sem_ch9.ads, sem_disp.adb, sem_disp.ads, + sem_dist.adb, sem_dist.ads, sem_elab.adb, sem_elab.ads, + sem_elim.adb, sem_elim.ads, sem_eval.adb, sem_eval.ads, + sem_intr.adb, sem_intr.ads, sem_maps.adb, sem_maps.ads, + sem_mech.adb, sem_mech.ads, sem_prag.adb, sem_prag.ads, + sem_res.adb, sem_res.ads, sem_smem.adb, sem_smem.ads, + sem_type.adb, sem_type.ads, sem_util.adb, sem_util.ads, + sem_vfpt.adb, sem_vfpt.ads, sem_warn.adb, sem_warn.ads, + sequenio.ads, sfn_scan.adb, sfn_scan.ads, sinfo-cn.adb, + sinfo-cn.ads, sinfo.adb, sinfo.ads, sinput-d.adb, + sinput-d.ads, sinput-l.adb, sinput-l.ads, sinput-p.adb, + sinput-p.ads, sinput.adb, sinput.ads, snames.adb, + snames.ads, sprint.adb, sprint.ads, stand.adb, + stand.ads, stringt.adb, stringt.ads, style.adb, + style.ads, stylesw.adb, stylesw.ads, switch-b.adb, + switch-b.ads, switch-c.adb, switch-c.ads, switch-m.adb, + switch-m.ads, switch.adb, switch.ads, system.ads, + table.adb, table.ads, targparm.adb, targparm.ads, + tbuild.adb, tbuild.ads, text_io.ads, trans.c, + tree_gen.adb, tree_gen.ads, tree_in.adb, tree_in.ads, + tree_io.adb, tree_io.ads, treepr.adb, treepr.ads, + ttypef.ads, ttypes.ads, types.adb, types.ads, + uintp.adb, uintp.ads, uname.adb, uname.ads, + unchconv.ads, unchdeal.ads, urealp.adb, urealp.ads, + usage.adb, usage.ads, validsw.adb, validsw.ads, + widechar.adb, widechar.ads, xeinfo.adb, xnmake.adb, + xr_tabls.adb, xr_tabls.ads, xref_lib.adb, xref_lib.ads, + xsinfo.adb, xsnames.adb, xtreeprs.adb : Merge header, + formatting and other trivial changes from ACT. + 2003-04-12 Zack Weinberg <zack@codesourcery.com> * gigi.h, utils2.c (build_constructor): diff --git a/gcc/ada/a-astaco.adb b/gcc/ada/a-astaco.adb index cd184e8909e..e7dd4214356 100644 --- a/gcc/ada/a-astaco.adb +++ b/gcc/ada/a-astaco.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-astaco.ads b/gcc/ada/a-astaco.ads index bf5371be004..784953b3f58 100644 --- a/gcc/ada/a-astaco.ads +++ b/gcc/ada/a-astaco.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-caldel.adb b/gcc/ada/a-caldel.adb index 04d63cf10e4..ee9903a2558 100644 --- a/gcc/ada/a-caldel.adb +++ b/gcc/ada/a-caldel.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-caldel.ads b/gcc/ada/a-caldel.ads index 5fd368b4209..541e6af423f 100644 --- a/gcc/ada/a-caldel.ads +++ b/gcc/ada/a-caldel.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-calend.adb b/gcc/ada/a-calend.adb index 078e05c7d32..1715d7f0ecb 100644 --- a/gcc/ada/a-calend.adb +++ b/gcc/ada/a-calend.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-calend.ads b/gcc/ada/a-calend.ads index 055c3f74d29..00d45321037 100644 --- a/gcc/ada/a-calend.ads +++ b/gcc/ada/a-calend.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-chahan.adb b/gcc/ada/a-chahan.adb index ceb66b73dd9..11733401137 100644 --- a/gcc/ada/a-chahan.adb +++ b/gcc/ada/a-chahan.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-chahan.ads b/gcc/ada/a-chahan.ads index 22ceb038baa..0a0162d1d67 100644 --- a/gcc/ada/a-chahan.ads +++ b/gcc/ada/a-chahan.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-charac.ads b/gcc/ada/a-charac.ads index 86a0741392f..ef378895425 100644 --- a/gcc/ada/a-charac.ads +++ b/gcc/ada/a-charac.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-chlat1.ads b/gcc/ada/a-chlat1.ads index a914a3fbbca..c60ec205efc 100644 --- a/gcc/ada/a-chlat1.ads +++ b/gcc/ada/a-chlat1.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-chlat9.ads b/gcc/ada/a-chlat9.ads index f446d7a2e6c..682bac1a762 100644 --- a/gcc/ada/a-chlat9.ads +++ b/gcc/ada/a-chlat9.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-colien.adb b/gcc/ada/a-colien.adb index e916524bc23..6ef118abf4e 100644 --- a/gcc/ada/a-colien.adb +++ b/gcc/ada/a-colien.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-colien.ads b/gcc/ada/a-colien.ads index 3ef0c1e90c5..21247953ef9 100644 --- a/gcc/ada/a-colien.ads +++ b/gcc/ada/a-colien.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-colire.adb b/gcc/ada/a-colire.adb index 27e276b0d79..c1de7b1fe76 100644 --- a/gcc/ada/a-colire.adb +++ b/gcc/ada/a-colire.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-colire.ads b/gcc/ada/a-colire.ads index 35e3dc8d7aa..46bb8704be3 100644 --- a/gcc/ada/a-colire.ads +++ b/gcc/ada/a-colire.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-comlin.adb b/gcc/ada/a-comlin.adb index 8d9bfe2bf66..b3a31ce3747 100644 --- a/gcc/ada/a-comlin.adb +++ b/gcc/ada/a-comlin.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-comlin.ads b/gcc/ada/a-comlin.ads index bb92ec47cdb..e4c0529d387 100644 --- a/gcc/ada/a-comlin.ads +++ b/gcc/ada/a-comlin.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-cwila1.ads b/gcc/ada/a-cwila1.ads index 6048672077f..4cc2a215d40 100644 --- a/gcc/ada/a-cwila1.ads +++ b/gcc/ada/a-cwila1.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-cwila9.ads b/gcc/ada/a-cwila9.ads index 239794ae7d6..7ada98cc948 100644 --- a/gcc/ada/a-cwila9.ads +++ b/gcc/ada/a-cwila9.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-decima.adb b/gcc/ada/a-decima.adb index 85404743c6c..cb7afc104a7 100644 --- a/gcc/ada/a-decima.adb +++ b/gcc/ada/a-decima.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-decima.ads b/gcc/ada/a-decima.ads index b46175cd82f..0a55dd65c24 100644 --- a/gcc/ada/a-decima.ads +++ b/gcc/ada/a-decima.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-diocst.adb b/gcc/ada/a-diocst.adb index 0e256a664ec..fabaf689475 100644 --- a/gcc/ada/a-diocst.adb +++ b/gcc/ada/a-diocst.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-diocst.ads b/gcc/ada/a-diocst.ads index 6613ab60bfe..e9679065879 100644 --- a/gcc/ada/a-diocst.ads +++ b/gcc/ada/a-diocst.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-direio.adb b/gcc/ada/a-direio.adb index aef68f323ee..20d44df0eba 100644 --- a/gcc/ada/a-direio.adb +++ b/gcc/ada/a-direio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-direio.ads b/gcc/ada/a-direio.ads index fd89d7121d3..6137c336610 100644 --- a/gcc/ada/a-direio.ads +++ b/gcc/ada/a-direio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-dynpri.adb b/gcc/ada/a-dynpri.adb index 1a878155ef5..f4468adcd48 100644 --- a/gcc/ada/a-dynpri.adb +++ b/gcc/ada/a-dynpri.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-dynpri.ads b/gcc/ada/a-dynpri.ads index 4531cd0b1b8..fd5b9fe1485 100644 --- a/gcc/ada/a-dynpri.ads +++ b/gcc/ada/a-dynpri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-einuoc.adb b/gcc/ada/a-einuoc.adb index 3b53098f766..e4c4d4f1eb2 100644 --- a/gcc/ada/a-einuoc.adb +++ b/gcc/ada/a-einuoc.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-einuoc.ads b/gcc/ada/a-einuoc.ads index d24b7f9712e..9aba91f7a92 100644 --- a/gcc/ada/a-einuoc.ads +++ b/gcc/ada/a-einuoc.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb index 979f11e41c9..30393145309 100644 --- a/gcc/ada/a-except.adb +++ b/gcc/ada/a-except.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-except.ads b/gcc/ada/a-except.ads index a928a635168..c9a0b11e1f8 100644 --- a/gcc/ada/a-except.ads +++ b/gcc/ada/a-except.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-excpol.adb b/gcc/ada/a-excpol.adb index b1cf91738a6..4eab88272d0 100644 --- a/gcc/ada/a-excpol.adb +++ b/gcc/ada/a-excpol.adb @@ -7,7 +7,6 @@ -- B o d y -- -- (dummy version where polling is not used) -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-exctra.adb b/gcc/ada/a-exctra.adb index 42bc70c7bef..00a3092e9a3 100644 --- a/gcc/ada/a-exctra.adb +++ b/gcc/ada/a-exctra.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-exctra.ads b/gcc/ada/a-exctra.ads index 474d7b76275..622db08c778 100644 --- a/gcc/ada/a-exctra.ads +++ b/gcc/ada/a-exctra.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-filico.adb b/gcc/ada/a-filico.adb index aeca7f7ad70..745ba8475b2 100644 --- a/gcc/ada/a-filico.adb +++ b/gcc/ada/a-filico.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-filico.ads b/gcc/ada/a-filico.ads index 98921d5edee..4263b260cd3 100644 --- a/gcc/ada/a-filico.ads +++ b/gcc/ada/a-filico.ads @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-finali.adb b/gcc/ada/a-finali.adb index 3d1e432d992..a9095e2a43f 100644 --- a/gcc/ada/a-finali.adb +++ b/gcc/ada/a-finali.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-finali.ads b/gcc/ada/a-finali.ads index b8401126592..03ea2816d6b 100644 --- a/gcc/ada/a-finali.ads +++ b/gcc/ada/a-finali.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-flteio.ads b/gcc/ada/a-flteio.ads index f72cd5ff518..b1defdf2749 100644 --- a/gcc/ada/a-flteio.ads +++ b/gcc/ada/a-flteio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-fwteio.ads b/gcc/ada/a-fwteio.ads index 342df6d441b..a60672dda40 100644 --- a/gcc/ada/a-fwteio.ads +++ b/gcc/ada/a-fwteio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-inteio.ads b/gcc/ada/a-inteio.ads index 94d9a6873b1..125e14404fe 100644 --- a/gcc/ada/a-inteio.ads +++ b/gcc/ada/a-inteio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-interr.adb b/gcc/ada/a-interr.adb index edc9500734b..5ab89c18b67 100644 --- a/gcc/ada/a-interr.adb +++ b/gcc/ada/a-interr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-interr.ads b/gcc/ada/a-interr.ads index 8a5ad8ec4ad..0475deec568 100644 --- a/gcc/ada/a-interr.ads +++ b/gcc/ada/a-interr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-intnam.ads b/gcc/ada/a-intnam.ads index 1535adb3a6f..e493261bc56 100644 --- a/gcc/ada/a-intnam.ads +++ b/gcc/ada/a-intnam.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-intsig.adb b/gcc/ada/a-intsig.adb index b6199dec3e3..a2451afe6e2 100644 --- a/gcc/ada/a-intsig.adb +++ b/gcc/ada/a-intsig.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-intsig.ads b/gcc/ada/a-intsig.ads index 2168e7c9a8a..5340da13345 100644 --- a/gcc/ada/a-intsig.ads +++ b/gcc/ada/a-intsig.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-ioexce.ads b/gcc/ada/a-ioexce.ads index 901a5f517c4..462b46f9827 100644 --- a/gcc/ada/a-ioexce.ads +++ b/gcc/ada/a-ioexce.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-iwteio.ads b/gcc/ada/a-iwteio.ads index 70ea60a3671..31a79eaefa3 100644 --- a/gcc/ada/a-iwteio.ads +++ b/gcc/ada/a-iwteio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-lfteio.ads b/gcc/ada/a-lfteio.ads index 3c8b434e7ea..24867305630 100644 --- a/gcc/ada/a-lfteio.ads +++ b/gcc/ada/a-lfteio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-lfwtio.ads b/gcc/ada/a-lfwtio.ads index 63fbf58cdce..61b67042751 100644 --- a/gcc/ada/a-lfwtio.ads +++ b/gcc/ada/a-lfwtio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-liteio.ads b/gcc/ada/a-liteio.ads index e659910a716..c4f7a489402 100644 --- a/gcc/ada/a-liteio.ads +++ b/gcc/ada/a-liteio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-liwtio.ads b/gcc/ada/a-liwtio.ads index 8b2259c4ee0..1c95dbce505 100644 --- a/gcc/ada/a-liwtio.ads +++ b/gcc/ada/a-liwtio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-llftio.ads b/gcc/ada/a-llftio.ads index ca17f2caa3d..bd428d0e464 100644 --- a/gcc/ada/a-llftio.ads +++ b/gcc/ada/a-llftio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-llfwti.ads b/gcc/ada/a-llfwti.ads index 1aeec0ca0ac..0ce5d80dd47 100644 --- a/gcc/ada/a-llfwti.ads +++ b/gcc/ada/a-llfwti.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-llitio.ads b/gcc/ada/a-llitio.ads index 069181081c0..19e77d0e4f4 100644 --- a/gcc/ada/a-llitio.ads +++ b/gcc/ada/a-llitio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-lliwti.ads b/gcc/ada/a-lliwti.ads index e18d04837d9..842765f204c 100644 --- a/gcc/ada/a-lliwti.ads +++ b/gcc/ada/a-lliwti.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-ncelfu.ads b/gcc/ada/a-ncelfu.ads index 0416edffe23..5f8e6c9cf57 100644 --- a/gcc/ada/a-ncelfu.ads +++ b/gcc/ada/a-ncelfu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-ngcefu.adb b/gcc/ada/a-ngcefu.adb index d6cde0cd564..6dbf9be9897 100644 --- a/gcc/ada/a-ngcefu.adb +++ b/gcc/ada/a-ngcefu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-ngcefu.ads b/gcc/ada/a-ngcefu.ads index 202bfeb9837..feef9cc8ccf 100644 --- a/gcc/ada/a-ngcefu.ads +++ b/gcc/ada/a-ngcefu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-ngcoty.adb b/gcc/ada/a-ngcoty.adb index 47773db0e1a..88969061317 100644 --- a/gcc/ada/a-ngcoty.adb +++ b/gcc/ada/a-ngcoty.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-ngcoty.ads b/gcc/ada/a-ngcoty.ads index 5c582fbce11..fc19f0c5cdf 100644 --- a/gcc/ada/a-ngcoty.ads +++ b/gcc/ada/a-ngcoty.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-ngelfu.adb b/gcc/ada/a-ngelfu.adb index 56ae57d8c54..d7ae2c8dc2e 100644 --- a/gcc/ada/a-ngelfu.adb +++ b/gcc/ada/a-ngelfu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-ngelfu.ads b/gcc/ada/a-ngelfu.ads index 864f1c49f8f..320ce8ccbe5 100644 --- a/gcc/ada/a-ngelfu.ads +++ b/gcc/ada/a-ngelfu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nlcefu.ads b/gcc/ada/a-nlcefu.ads index df7139bfd9e..87290611a59 100644 --- a/gcc/ada/a-nlcefu.ads +++ b/gcc/ada/a-nlcefu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nlcoty.ads b/gcc/ada/a-nlcoty.ads index 033f81eff75..9305836e4c5 100644 --- a/gcc/ada/a-nlcoty.ads +++ b/gcc/ada/a-nlcoty.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nlelfu.ads b/gcc/ada/a-nlelfu.ads index 285ddde3811..c7eebb51cef 100644 --- a/gcc/ada/a-nlelfu.ads +++ b/gcc/ada/a-nlelfu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nllcef.ads b/gcc/ada/a-nllcef.ads index 7156b8d9622..a7f7dc1787a 100644 --- a/gcc/ada/a-nllcef.ads +++ b/gcc/ada/a-nllcef.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nllcty.ads b/gcc/ada/a-nllcty.ads index 6d3e1843d9a..5a93e8716b2 100644 --- a/gcc/ada/a-nllcty.ads +++ b/gcc/ada/a-nllcty.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nllefu.ads b/gcc/ada/a-nllefu.ads index c9d614f3c5f..fbc9a1e2e1c 100644 --- a/gcc/ada/a-nllefu.ads +++ b/gcc/ada/a-nllefu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nscefu.ads b/gcc/ada/a-nscefu.ads index 0ade1a8b5f2..5e8c43c7698 100644 --- a/gcc/ada/a-nscefu.ads +++ b/gcc/ada/a-nscefu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nscoty.ads b/gcc/ada/a-nscoty.ads index de851c01c59..30e9dad7994 100644 --- a/gcc/ada/a-nscoty.ads +++ b/gcc/ada/a-nscoty.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nselfu.ads b/gcc/ada/a-nselfu.ads index fae755c4e57..b039bca630d 100644 --- a/gcc/ada/a-nselfu.ads +++ b/gcc/ada/a-nselfu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nucoty.ads b/gcc/ada/a-nucoty.ads index 4a22af18112..7c0b07ee238 100644 --- a/gcc/ada/a-nucoty.ads +++ b/gcc/ada/a-nucoty.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nudira.adb b/gcc/ada/a-nudira.adb index 45bfc1cc84a..298aecc986c 100644 --- a/gcc/ada/a-nudira.adb +++ b/gcc/ada/a-nudira.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-nudira.ads b/gcc/ada/a-nudira.ads index 5a685c67287..291d8457ef9 100644 --- a/gcc/ada/a-nudira.ads +++ b/gcc/ada/a-nudira.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-nuelfu.ads b/gcc/ada/a-nuelfu.ads index 3e8bc0bd156..ca878f0aae2 100644 --- a/gcc/ada/a-nuelfu.ads +++ b/gcc/ada/a-nuelfu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-nuflra.adb b/gcc/ada/a-nuflra.adb index 942258f5aab..e637e5d3042 100644 --- a/gcc/ada/a-nuflra.adb +++ b/gcc/ada/a-nuflra.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-nuflra.ads b/gcc/ada/a-nuflra.ads index 331ece7ff8d..3ebb822e5c6 100644 --- a/gcc/ada/a-nuflra.ads +++ b/gcc/ada/a-nuflra.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-numaux.ads b/gcc/ada/a-numaux.ads index 67995519508..5d75217a94d 100644 --- a/gcc/ada/a-numaux.ads +++ b/gcc/ada/a-numaux.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (C Library Version, non-x86) -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-numeri.ads b/gcc/ada/a-numeri.ads index 3bf8901c6e3..35efcc2b6af 100644 --- a/gcc/ada/a-numeri.ads +++ b/gcc/ada/a-numeri.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-reatim.adb b/gcc/ada/a-reatim.adb index a915165c752..15969d7d456 100644 --- a/gcc/ada/a-reatim.adb +++ b/gcc/ada/a-reatim.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2002, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-reatim.ads b/gcc/ada/a-reatim.ads index 5f04f1e0a31..43203481d51 100644 --- a/gcc/ada/a-reatim.ads +++ b/gcc/ada/a-reatim.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-retide.adb b/gcc/ada/a-retide.adb index 9e934243105..ca747a16609 100644 --- a/gcc/ada/a-retide.adb +++ b/gcc/ada/a-retide.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-retide.ads b/gcc/ada/a-retide.ads index 4247f57f36c..ecee2546283 100644 --- a/gcc/ada/a-retide.ads +++ b/gcc/ada/a-retide.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-sequio.adb b/gcc/ada/a-sequio.adb index 237f752380e..eedcbaad685 100644 --- a/gcc/ada/a-sequio.adb +++ b/gcc/ada/a-sequio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-sequio.ads b/gcc/ada/a-sequio.ads index b14dffc11b2..56753685951 100644 --- a/gcc/ada/a-sequio.ads +++ b/gcc/ada/a-sequio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-sfteio.ads b/gcc/ada/a-sfteio.ads index 1c6ea63226c..615b0193b65 100644 --- a/gcc/ada/a-sfteio.ads +++ b/gcc/ada/a-sfteio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-sfwtio.ads b/gcc/ada/a-sfwtio.ads index 7335ca1812f..cfd297fb74c 100644 --- a/gcc/ada/a-sfwtio.ads +++ b/gcc/ada/a-sfwtio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-siocst.adb b/gcc/ada/a-siocst.adb index 49b03fd21d1..23a73c62859 100644 --- a/gcc/ada/a-siocst.adb +++ b/gcc/ada/a-siocst.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-siocst.ads b/gcc/ada/a-siocst.ads index c282afe6b8a..bd1a9601f7b 100644 --- a/gcc/ada/a-siocst.ads +++ b/gcc/ada/a-siocst.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-siteio.ads b/gcc/ada/a-siteio.ads index d0062ed4a64..b434593eac1 100644 --- a/gcc/ada/a-siteio.ads +++ b/gcc/ada/a-siteio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-siwtio.ads b/gcc/ada/a-siwtio.ads index 6fab6d29f71..3e9a08f3a72 100644 --- a/gcc/ada/a-siwtio.ads +++ b/gcc/ada/a-siwtio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-ssicst.adb b/gcc/ada/a-ssicst.adb index 0298a1ec81d..e9cefcf0426 100644 --- a/gcc/ada/a-ssicst.adb +++ b/gcc/ada/a-ssicst.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-ssicst.ads b/gcc/ada/a-ssicst.ads index 6997e195f09..198597e1ca5 100644 --- a/gcc/ada/a-ssicst.ads +++ b/gcc/ada/a-ssicst.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-ssitio.ads b/gcc/ada/a-ssitio.ads index 9d69f58562c..9762a5ded9e 100644 --- a/gcc/ada/a-ssitio.ads +++ b/gcc/ada/a-ssitio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-ssiwti.ads b/gcc/ada/a-ssiwti.ads index af2f590692e..645df96c8e8 100644 --- a/gcc/ada/a-ssiwti.ads +++ b/gcc/ada/a-ssiwti.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-stmaco.ads b/gcc/ada/a-stmaco.ads index 1038dc21487..08e36a9fb2e 100644 --- a/gcc/ada/a-stmaco.ads +++ b/gcc/ada/a-stmaco.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-storio.adb b/gcc/ada/a-storio.adb index 94eabcbcdfe..689a22a1d0b 100644 --- a/gcc/ada/a-storio.adb +++ b/gcc/ada/a-storio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-storio.ads b/gcc/ada/a-storio.ads index f63b2b323a0..f32c97d0cd0 100644 --- a/gcc/ada/a-storio.ads +++ b/gcc/ada/a-storio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-strbou.adb b/gcc/ada/a-strbou.adb index 55df0150f7a..68351dc445d 100644 --- a/gcc/ada/a-strbou.adb +++ b/gcc/ada/a-strbou.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-strbou.ads b/gcc/ada/a-strbou.ads index 2212aa88911..2f414f6e0eb 100644 --- a/gcc/ada/a-strbou.ads +++ b/gcc/ada/a-strbou.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-stream.ads b/gcc/ada/a-stream.ads index 0ca2a652c22..8f0732632f1 100644 --- a/gcc/ada/a-stream.ads +++ b/gcc/ada/a-stream.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-strfix.adb b/gcc/ada/a-strfix.adb index 3cdb806617c..1513a21c350 100644 --- a/gcc/ada/a-strfix.adb +++ b/gcc/ada/a-strfix.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-strfix.ads b/gcc/ada/a-strfix.ads index c80b5112bb7..6b0c147e1ed 100644 --- a/gcc/ada/a-strfix.ads +++ b/gcc/ada/a-strfix.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-string.ads b/gcc/ada/a-string.ads index efaa77d97ba..e8ec5ac3690 100644 --- a/gcc/ada/a-string.ads +++ b/gcc/ada/a-string.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-strmap.adb b/gcc/ada/a-strmap.adb index 0e9974eec05..7ffe6eee76c 100644 --- a/gcc/ada/a-strmap.adb +++ b/gcc/ada/a-strmap.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-strmap.ads b/gcc/ada/a-strmap.ads index 2d1595bae5f..31a966cb797 100644 --- a/gcc/ada/a-strmap.ads +++ b/gcc/ada/a-strmap.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-strsea.adb b/gcc/ada/a-strsea.adb index 3a60883c470..29db92a87c9 100644 --- a/gcc/ada/a-strsea.adb +++ b/gcc/ada/a-strsea.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-strsea.ads b/gcc/ada/a-strsea.ads index f3521f9a57b..8dba572f6e0 100644 --- a/gcc/ada/a-strsea.ads +++ b/gcc/ada/a-strsea.ads @@ -6,10 +6,8 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 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- -- diff --git a/gcc/ada/a-strunb.adb b/gcc/ada/a-strunb.adb index 4cf7e484efb..13422c97384 100644 --- a/gcc/ada/a-strunb.adb +++ b/gcc/ada/a-strunb.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-strunb.ads b/gcc/ada/a-strunb.ads index 25b2d441a81..fe909009e12 100644 --- a/gcc/ada/a-strunb.ads +++ b/gcc/ada/a-strunb.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-ststio.adb b/gcc/ada/a-ststio.adb index f57ee4f0f53..74c9be2da3c 100644 --- a/gcc/ada/a-ststio.adb +++ b/gcc/ada/a-ststio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-ststio.ads b/gcc/ada/a-ststio.ads index 4e525e88a6e..6a3ff556f08 100644 --- a/gcc/ada/a-ststio.ads +++ b/gcc/ada/a-ststio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-stunau.adb b/gcc/ada/a-stunau.adb index 0169a4693ce..148bd3f74b1 100644 --- a/gcc/ada/a-stunau.adb +++ b/gcc/ada/a-stunau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-stunau.ads b/gcc/ada/a-stunau.ads index bcabc5f299a..c5b1eeafdbe 100644 --- a/gcc/ada/a-stunau.ads +++ b/gcc/ada/a-stunau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-stwibo.adb b/gcc/ada/a-stwibo.adb index 75666ae841b..982ca638c71 100644 --- a/gcc/ada/a-stwibo.adb +++ b/gcc/ada/a-stwibo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-stwibo.ads b/gcc/ada/a-stwibo.ads index d54061afb2f..3da44797543 100644 --- a/gcc/ada/a-stwibo.ads +++ b/gcc/ada/a-stwibo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-stwifi.adb b/gcc/ada/a-stwifi.adb index 268ed4a0785..dc71f1b878a 100644 --- a/gcc/ada/a-stwifi.adb +++ b/gcc/ada/a-stwifi.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-stwifi.ads b/gcc/ada/a-stwifi.ads index f2f74de3c67..7331db5f543 100644 --- a/gcc/ada/a-stwifi.ads +++ b/gcc/ada/a-stwifi.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-stwima.adb b/gcc/ada/a-stwima.adb index ad41e4a08d7..23bfc0b3ee2 100644 --- a/gcc/ada/a-stwima.adb +++ b/gcc/ada/a-stwima.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-stwima.ads b/gcc/ada/a-stwima.ads index bf1bcef4089..079336e0ea1 100644 --- a/gcc/ada/a-stwima.ads +++ b/gcc/ada/a-stwima.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-stwise.adb b/gcc/ada/a-stwise.adb index 97ee6650c76..a8b8ae910f3 100644 --- a/gcc/ada/a-stwise.adb +++ b/gcc/ada/a-stwise.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-stwise.ads b/gcc/ada/a-stwise.ads index b5c0c55ddb8..01f21660695 100644 --- a/gcc/ada/a-stwise.ads +++ b/gcc/ada/a-stwise.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-stwiun.adb b/gcc/ada/a-stwiun.adb index e950a33f2d8..113957e918b 100644 --- a/gcc/ada/a-stwiun.adb +++ b/gcc/ada/a-stwiun.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-stwiun.ads b/gcc/ada/a-stwiun.ads index 91f1d938a94..d2cf86ef6a1 100644 --- a/gcc/ada/a-stwiun.ads +++ b/gcc/ada/a-stwiun.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-suteio.adb b/gcc/ada/a-suteio.adb index 01475bda383..737f3c7b35d 100644 --- a/gcc/ada/a-suteio.adb +++ b/gcc/ada/a-suteio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-suteio.ads b/gcc/ada/a-suteio.ads index 8dc7c2ca27c..c98f453f64b 100644 --- a/gcc/ada/a-suteio.ads +++ b/gcc/ada/a-suteio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-swmwco.ads b/gcc/ada/a-swmwco.ads index 25b0efe2cdb..200d90099a3 100644 --- a/gcc/ada/a-swmwco.ads +++ b/gcc/ada/a-swmwco.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-swuwti.adb b/gcc/ada/a-swuwti.adb index 53f4d0dd426..adf4ba7f05c 100644 --- a/gcc/ada/a-swuwti.adb +++ b/gcc/ada/a-swuwti.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-swuwti.ads b/gcc/ada/a-swuwti.ads index a5c3c7db832..fca6211b00d 100644 --- a/gcc/ada/a-swuwti.ads +++ b/gcc/ada/a-swuwti.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-sytaco.adb b/gcc/ada/a-sytaco.adb index 49bf2e1229a..2b2fb271291 100644 --- a/gcc/ada/a-sytaco.adb +++ b/gcc/ada/a-sytaco.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-sytaco.ads b/gcc/ada/a-sytaco.ads index 71fc67d7eca..b3a6a480a65 100644 --- a/gcc/ada/a-sytaco.ads +++ b/gcc/ada/a-sytaco.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-tags.adb b/gcc/ada/a-tags.adb index 5ebb2703100..9da303d73d8 100644 --- a/gcc/ada/a-tags.adb +++ b/gcc/ada/a-tags.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tags.ads b/gcc/ada/a-tags.ads index 69186ef46bd..b4ab29a1ba1 100644 --- a/gcc/ada/a-tags.ads +++ b/gcc/ada/a-tags.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb index 101fc84c156..6d9d114d7f4 100644 --- a/gcc/ada/a-tasatt.adb +++ b/gcc/ada/a-tasatt.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2002 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tasatt.ads b/gcc/ada/a-tasatt.ads index a946b4ccd10..9cd80711b81 100644 --- a/gcc/ada/a-tasatt.ads +++ b/gcc/ada/a-tasatt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-taside.adb b/gcc/ada/a-taside.adb index 7506e66d503..6bc3b018a12 100644 --- a/gcc/ada/a-taside.adb +++ b/gcc/ada/a-taside.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-taside.ads b/gcc/ada/a-taside.ads index 3045330aab3..e0c93830155 100644 --- a/gcc/ada/a-taside.ads +++ b/gcc/ada/a-taside.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-teioed.adb b/gcc/ada/a-teioed.adb index 5f29707a086..f273a246b67 100644 --- a/gcc/ada/a-teioed.adb +++ b/gcc/ada/a-teioed.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-teioed.ads b/gcc/ada/a-teioed.ads index 59d4a7ed301..37ad4a0d2ac 100644 --- a/gcc/ada/a-teioed.ads +++ b/gcc/ada/a-teioed.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb index d20ed44678f..c133865c339 100644 --- a/gcc/ada/a-textio.adb +++ b/gcc/ada/a-textio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads index 8dcc36b8b56..42c74ee065a 100644 --- a/gcc/ada/a-textio.ads +++ b/gcc/ada/a-textio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-ticoau.adb b/gcc/ada/a-ticoau.adb index 6e9073d4b01..75795da29f0 100644 --- a/gcc/ada/a-ticoau.adb +++ b/gcc/ada/a-ticoau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-ticoau.ads b/gcc/ada/a-ticoau.ads index 6888eb9dd7e..bf7982df231 100644 --- a/gcc/ada/a-ticoau.ads +++ b/gcc/ada/a-ticoau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-ticoio.adb b/gcc/ada/a-ticoio.adb index 6f8ab836ef1..0f8b959822a 100644 --- a/gcc/ada/a-ticoio.adb +++ b/gcc/ada/a-ticoio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-ticoio.ads b/gcc/ada/a-ticoio.ads index 1f75196e1d9..ec87284991f 100644 --- a/gcc/ada/a-ticoio.ads +++ b/gcc/ada/a-ticoio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-tideau.adb b/gcc/ada/a-tideau.adb index 4c0759d1c34..56d40508c95 100644 --- a/gcc/ada/a-tideau.adb +++ b/gcc/ada/a-tideau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tideau.ads b/gcc/ada/a-tideau.ads index b1f8f79ede3..d0c79ae7e34 100644 --- a/gcc/ada/a-tideau.ads +++ b/gcc/ada/a-tideau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tideio.adb b/gcc/ada/a-tideio.adb index 05c228dfde2..71e44a3eef1 100644 --- a/gcc/ada/a-tideio.adb +++ b/gcc/ada/a-tideio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tideio.ads b/gcc/ada/a-tideio.ads index 0e9cbc83f72..44099add885 100644 --- a/gcc/ada/a-tideio.ads +++ b/gcc/ada/a-tideio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-tienau.adb b/gcc/ada/a-tienau.adb index 2162b66dcd9..f420f76b21c 100644 --- a/gcc/ada/a-tienau.adb +++ b/gcc/ada/a-tienau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tienau.ads b/gcc/ada/a-tienau.ads index c3188da19b0..2f3f9d67818 100644 --- a/gcc/ada/a-tienau.ads +++ b/gcc/ada/a-tienau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tienio.adb b/gcc/ada/a-tienio.adb index 090b72dce66..869ca8b47a1 100644 --- a/gcc/ada/a-tienio.adb +++ b/gcc/ada/a-tienio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tienio.ads b/gcc/ada/a-tienio.ads index ce713a644f1..4a926733c4a 100644 --- a/gcc/ada/a-tienio.ads +++ b/gcc/ada/a-tienio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-tifiio.adb b/gcc/ada/a-tifiio.adb index ca1c46e28fe..a1b3badd96b 100644 --- a/gcc/ada/a-tifiio.adb +++ b/gcc/ada/a-tifiio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tifiio.ads b/gcc/ada/a-tifiio.ads index a2a2dcdc375..283cfa39975 100644 --- a/gcc/ada/a-tifiio.ads +++ b/gcc/ada/a-tifiio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-tiflau.adb b/gcc/ada/a-tiflau.adb index 935a51404ea..7953fef4b27 100644 --- a/gcc/ada/a-tiflau.adb +++ b/gcc/ada/a-tiflau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tiflau.ads b/gcc/ada/a-tiflau.ads index f0027ab9642..d40f153a842 100644 --- a/gcc/ada/a-tiflau.ads +++ b/gcc/ada/a-tiflau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tiflio.adb b/gcc/ada/a-tiflio.adb index 4c92a5c38d7..f528c1f060d 100644 --- a/gcc/ada/a-tiflio.adb +++ b/gcc/ada/a-tiflio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tiflio.ads b/gcc/ada/a-tiflio.ads index 6e98d57f1b3..cef84b4615d 100644 --- a/gcc/ada/a-tiflio.ads +++ b/gcc/ada/a-tiflio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-tigeau.adb b/gcc/ada/a-tigeau.adb index 82a7e7b9c2d..527f12a8a84 100644 --- a/gcc/ada/a-tigeau.adb +++ b/gcc/ada/a-tigeau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tigeau.ads b/gcc/ada/a-tigeau.ads index f2f07c87345..2f73ee0735b 100644 --- a/gcc/ada/a-tigeau.ads +++ b/gcc/ada/a-tigeau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tiinau.adb b/gcc/ada/a-tiinau.adb index c5ae4b2418a..c043570f14e 100644 --- a/gcc/ada/a-tiinau.adb +++ b/gcc/ada/a-tiinau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tiinau.ads b/gcc/ada/a-tiinau.ads index c4bd046d955..fa4d4bc669c 100644 --- a/gcc/ada/a-tiinau.ads +++ b/gcc/ada/a-tiinau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tiinio.adb b/gcc/ada/a-tiinio.adb index 677db988833..ef03f1ee2d1 100644 --- a/gcc/ada/a-tiinio.adb +++ b/gcc/ada/a-tiinio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tiinio.ads b/gcc/ada/a-tiinio.ads index 645eb15c3e5..7b0258b1388 100644 --- a/gcc/ada/a-tiinio.ads +++ b/gcc/ada/a-tiinio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-timoau.adb b/gcc/ada/a-timoau.adb index 4de3bf3185d..98725fd05d3 100644 --- a/gcc/ada/a-timoau.adb +++ b/gcc/ada/a-timoau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-timoau.ads b/gcc/ada/a-timoau.ads index 005f47623bf..ba709e00f5a 100644 --- a/gcc/ada/a-timoau.ads +++ b/gcc/ada/a-timoau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-timoio.adb b/gcc/ada/a-timoio.adb index b0b456ab2de..049d97e3649 100644 --- a/gcc/ada/a-timoio.adb +++ b/gcc/ada/a-timoio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-timoio.ads b/gcc/ada/a-timoio.ads index d3cbae32bd9..30324a03ab1 100644 --- a/gcc/ada/a-timoio.ads +++ b/gcc/ada/a-timoio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1993-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-tiocst.adb b/gcc/ada/a-tiocst.adb index 78d2c10119a..79bbbeaf0e8 100644 --- a/gcc/ada/a-tiocst.adb +++ b/gcc/ada/a-tiocst.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-tiocst.ads b/gcc/ada/a-tiocst.ads index 7bad7e50230..c7dafd68a9e 100644 --- a/gcc/ada/a-tiocst.ads +++ b/gcc/ada/a-tiocst.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-titest.adb b/gcc/ada/a-titest.adb index afd29303da7..6e5a8ffb7da 100644 --- a/gcc/ada/a-titest.adb +++ b/gcc/ada/a-titest.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-titest.ads b/gcc/ada/a-titest.ads index 34afe162069..69a3114d01e 100644 --- a/gcc/ada/a-titest.ads +++ b/gcc/ada/a-titest.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-unccon.ads b/gcc/ada/a-unccon.ads index c5e4f38e968..3306c3bbca9 100644 --- a/gcc/ada/a-unccon.ads +++ b/gcc/ada/a-unccon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-uncdea.ads b/gcc/ada/a-uncdea.ads index 460ba68b742..66b64dd1590 100644 --- a/gcc/ada/a-uncdea.ads +++ b/gcc/ada/a-uncdea.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-witeio.adb b/gcc/ada/a-witeio.adb index 01701788e47..4a986301971 100644 --- a/gcc/ada/a-witeio.adb +++ b/gcc/ada/a-witeio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-witeio.ads b/gcc/ada/a-witeio.ads index 744083d5434..dae0cbac71f 100644 --- a/gcc/ada/a-witeio.ads +++ b/gcc/ada/a-witeio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-wtcoau.adb b/gcc/ada/a-wtcoau.adb index c93ee8674a3..12d75dc685d 100644 --- a/gcc/ada/a-wtcoau.adb +++ b/gcc/ada/a-wtcoau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtcoau.ads b/gcc/ada/a-wtcoau.ads index b747bfa3550..b6fc12152aa 100644 --- a/gcc/ada/a-wtcoau.ads +++ b/gcc/ada/a-wtcoau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtcoio.adb b/gcc/ada/a-wtcoio.adb index 942adab58b0..024006445e0 100644 --- a/gcc/ada/a-wtcoio.adb +++ b/gcc/ada/a-wtcoio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtcoio.ads b/gcc/ada/a-wtcoio.ads index 9da51f3207e..96c0a2a5b00 100644 --- a/gcc/ada/a-wtcoio.ads +++ b/gcc/ada/a-wtcoio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-wtcstr.adb b/gcc/ada/a-wtcstr.adb index 827e0b2e248..ff463104c7d 100644 --- a/gcc/ada/a-wtcstr.adb +++ b/gcc/ada/a-wtcstr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtcstr.ads b/gcc/ada/a-wtcstr.ads index 9d587316710..0053eb5c75d 100644 --- a/gcc/ada/a-wtcstr.ads +++ b/gcc/ada/a-wtcstr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtdeau.adb b/gcc/ada/a-wtdeau.adb index ff5c50c7110..34bacd8066a 100644 --- a/gcc/ada/a-wtdeau.adb +++ b/gcc/ada/a-wtdeau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtdeau.ads b/gcc/ada/a-wtdeau.ads index deefdaab82d..59c9585bf6c 100644 --- a/gcc/ada/a-wtdeau.ads +++ b/gcc/ada/a-wtdeau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtdeio.adb b/gcc/ada/a-wtdeio.adb index 1359b951855..e96791022b5 100644 --- a/gcc/ada/a-wtdeio.adb +++ b/gcc/ada/a-wtdeio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtdeio.ads b/gcc/ada/a-wtdeio.ads index 393323d2744..e982e1ae339 100644 --- a/gcc/ada/a-wtdeio.ads +++ b/gcc/ada/a-wtdeio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-wtedit.adb b/gcc/ada/a-wtedit.adb index b1da5ef3f88..78ce2360332 100644 --- a/gcc/ada/a-wtedit.adb +++ b/gcc/ada/a-wtedit.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtedit.ads b/gcc/ada/a-wtedit.ads index 9b5119c1033..06e30a75eb0 100644 --- a/gcc/ada/a-wtedit.ads +++ b/gcc/ada/a-wtedit.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-wtenau.adb b/gcc/ada/a-wtenau.adb index 6b3b7b77835..4019f4c6156 100644 --- a/gcc/ada/a-wtenau.adb +++ b/gcc/ada/a-wtenau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtenau.ads b/gcc/ada/a-wtenau.ads index 61293069c0a..fe86b4ef1ff 100644 --- a/gcc/ada/a-wtenau.ads +++ b/gcc/ada/a-wtenau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtenio.adb b/gcc/ada/a-wtenio.adb index bb3ba3f7ac9..3fe96f1015f 100644 --- a/gcc/ada/a-wtenio.adb +++ b/gcc/ada/a-wtenio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtenio.ads b/gcc/ada/a-wtenio.ads index 9713818e94f..44ac35fc9d5 100644 --- a/gcc/ada/a-wtenio.ads +++ b/gcc/ada/a-wtenio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-wtfiio.adb b/gcc/ada/a-wtfiio.adb index fb82a9bcb4d..6621c742d55 100644 --- a/gcc/ada/a-wtfiio.adb +++ b/gcc/ada/a-wtfiio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtfiio.ads b/gcc/ada/a-wtfiio.ads index 6567d3ea900..8749f494773 100644 --- a/gcc/ada/a-wtfiio.ads +++ b/gcc/ada/a-wtfiio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-wtflau.adb b/gcc/ada/a-wtflau.adb index 41f15f37fa9..c7c6741d1b9 100644 --- a/gcc/ada/a-wtflau.adb +++ b/gcc/ada/a-wtflau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtflau.ads b/gcc/ada/a-wtflau.ads index 37f1ee3f8cc..d9923924cf4 100644 --- a/gcc/ada/a-wtflau.ads +++ b/gcc/ada/a-wtflau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtflio.adb b/gcc/ada/a-wtflio.adb index dda3dc8af0e..35f1763c226 100644 --- a/gcc/ada/a-wtflio.adb +++ b/gcc/ada/a-wtflio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtflio.ads b/gcc/ada/a-wtflio.ads index de7c1855e0d..3ad82b33146 100644 --- a/gcc/ada/a-wtflio.ads +++ b/gcc/ada/a-wtflio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-wtgeau.adb b/gcc/ada/a-wtgeau.adb index 98788bef55b..44aebec8136 100644 --- a/gcc/ada/a-wtgeau.adb +++ b/gcc/ada/a-wtgeau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtgeau.ads b/gcc/ada/a-wtgeau.ads index 6e4b319152c..c72f2f02a15 100644 --- a/gcc/ada/a-wtgeau.ads +++ b/gcc/ada/a-wtgeau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtinau.adb b/gcc/ada/a-wtinau.adb index 54396a5e6e6..28618c87d65 100644 --- a/gcc/ada/a-wtinau.adb +++ b/gcc/ada/a-wtinau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtinau.ads b/gcc/ada/a-wtinau.ads index 08eda7e8929..bc7ac5d21ae 100644 --- a/gcc/ada/a-wtinau.ads +++ b/gcc/ada/a-wtinau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtinio.adb b/gcc/ada/a-wtinio.adb index 8f0fd53ad13..6696f25a66d 100644 --- a/gcc/ada/a-wtinio.adb +++ b/gcc/ada/a-wtinio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtinio.ads b/gcc/ada/a-wtinio.ads index b8eacefa322..0045f01fc38 100644 --- a/gcc/ada/a-wtinio.ads +++ b/gcc/ada/a-wtinio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/a-wtmoau.adb b/gcc/ada/a-wtmoau.adb index 9324b7fed87..cdd48051b4e 100644 --- a/gcc/ada/a-wtmoau.adb +++ b/gcc/ada/a-wtmoau.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtmoau.ads b/gcc/ada/a-wtmoau.ads index 48bd1756148..5083c0b9440 100644 --- a/gcc/ada/a-wtmoau.ads +++ b/gcc/ada/a-wtmoau.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtmoio.adb b/gcc/ada/a-wtmoio.adb index 18402c27a55..5602d0c4bb2 100644 --- a/gcc/ada/a-wtmoio.adb +++ b/gcc/ada/a-wtmoio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wtmoio.ads b/gcc/ada/a-wtmoio.ads index b877f321610..b123223e0da 100644 --- a/gcc/ada/a-wtmoio.ads +++ b/gcc/ada/a-wtmoio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/a-wttest.adb b/gcc/ada/a-wttest.adb index db38b931bd4..af0db6cf13f 100644 --- a/gcc/ada/a-wttest.adb +++ b/gcc/ada/a-wttest.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/a-wttest.ads b/gcc/ada/a-wttest.ads index 22b6c51831d..be43e0aac40 100644 --- a/gcc/ada/a-wttest.ads +++ b/gcc/ada/a-wttest.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h index eaebe7b456a..9f1675a2c23 100644 --- a/gcc/ada/ada-tree.h +++ b/gcc/ada/ada-tree.h @@ -6,8 +6,7 @@ * * * C Header File * * * - * * - * Copyright (C) 1992-2001 Free Software Foundation, Inc. * + * Copyright (C) 1992-2003 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- * @@ -234,7 +233,7 @@ struct lang_type GTY(()) /* Nonzero if this decl is a PARM_DECL for an Ada array being passed to a foreign convention subprogram. */ -#define DECL_BY_COMPONENT_PTR_P(NODE) DECL_LANG_FLAG_2 (NODE) +#define DECL_BY_COMPONENT_PTR_P(NODE) DECL_LANG_FLAG_2 (PARM_DECL_CHECK (NODE)) /* Nonzero in a FIELD_DECL that is a dummy built for some internal reason. */ #define DECL_INTERNAL_P(NODE) DECL_LANG_FLAG_3 (FIELD_DECL_CHECK (NODE)) diff --git a/gcc/ada/ada.ads b/gcc/ada/ada.ads index 9cbe8b2de3a..bbb59050694 100644 --- a/gcc/ada/ada.ads +++ b/gcc/ada/ada.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/ada.h b/gcc/ada/ada.h index 5c9f18262cf..58de6075d45 100644 --- a/gcc/ada/ada.h +++ b/gcc/ada/ada.h @@ -6,8 +6,7 @@ * * * C Header File * * * - * * - * Copyright (C) 1992-2002 Free Software Foundation, Inc. * + * Copyright (C) 1992-2003 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- * @@ -75,7 +74,7 @@ SUBTYPE macro defined above. */ #define IN(VALUE,SUBTYPE) \ - (((VALUE) >= (SUBTYPE) CAT (SUBTYPE,__First)) && \ - ((VALUE) <= (SUBTYPE) CAT (SUBTYPE,__Last))) + (((VALUE) >= (SUBTYPE) CAT (SUBTYPE,__First)) \ + && ((VALUE) <= (SUBTYPE) CAT (SUBTYPE,__Last))) #endif diff --git a/gcc/ada/adadecode.c b/gcc/ada/adadecode.c index 4e795138094..87eb3c3dabc 100644 --- a/gcc/ada/adadecode.c +++ b/gcc/ada/adadecode.c @@ -4,7 +4,6 @@ * * * G N A T D E C O * * * - * * * C Implementation File * * * * Copyright (C) 2001-2002, Free Software Foundation, Inc. * diff --git a/gcc/ada/adadecode.h b/gcc/ada/adadecode.h index cc631496abd..9ba49fa8ee6 100644 --- a/gcc/ada/adadecode.h +++ b/gcc/ada/adadecode.h @@ -4,7 +4,6 @@ * * * G N A T D E C O * * * - * * * C Header File * * * * Copyright (C) 2001-2002, Free Software Foundation, Inc. * diff --git a/gcc/ada/ali-util.adb b/gcc/ada/ali-util.adb index 290ad00a4ba..e81edd7f694 100644 --- a/gcc/ada/ali-util.adb +++ b/gcc/ada/ali-util.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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/ali-util.ads b/gcc/ada/ali-util.ads index e786a0f31bd..1684e518488 100644 --- a/gcc/ada/ali-util.ads +++ b/gcc/ada/ali-util.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index 66f4676e051..919bc87a144 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads index 04d13c4f9dc..1de7b4582e8 100644 --- a/gcc/ada/ali.ads +++ b/gcc/ada/ali.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/alloc.ads b/gcc/ada/alloc.ads index d7917cfcfda..15729d6d520 100644 --- a/gcc/ada/alloc.ads +++ b/gcc/ada/alloc.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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/argv.c b/gcc/ada/argv.c index c9c2216e558..d0ba12d9ee5 100644 --- a/gcc/ada/argv.c +++ b/gcc/ada/argv.c @@ -6,8 +6,7 @@ * * * C Implementation File * * * - * * - * Copyright (C) 1992-2001 Free Software Foundation, Inc. * + * Copyright (C) 1992-2002 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- * @@ -62,6 +61,15 @@ int gnat_argc = 0; const char **gnat_argv = (const char **) 0; const char **gnat_envp = (const char **) 0; +#ifdef _WIN32 +/* Note that on Windows environment the environ point to a buffer that could + be reallocated if needed. It means that gnat_envp needs to be updated + before using gnat_envp to point to the right environment space */ +#include <stdlib.h> +/* for the environ variable definition */ +#define gnat_envp (environ) +#endif + int __gnat_arg_count () { diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index a07f365c701..8cabfd136db 100644 --- a/gcc/ada/atree.adb +++ b/gcc/ada/atree.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index e7e23587c13..b9d2b9b26f1 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/atree.h b/gcc/ada/atree.h index c707988a0da..c13ffbd5173 100644 --- a/gcc/ada/atree.h +++ b/gcc/ada/atree.h @@ -6,7 +6,6 @@ * * * C Header File * * * - * * * Copyright (C) 1992-2001, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * diff --git a/gcc/ada/aux-io.c b/gcc/ada/aux-io.c index 89f06ace5ca..8185f2e033b 100644 --- a/gcc/ada/aux-io.c +++ b/gcc/ada/aux-io.c @@ -6,7 +6,6 @@ * * * C Implementation File * * * - * * * Copyright (C) 1992-2001 Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb index 6c63a793596..5725f9eca21 100644 --- a/gcc/ada/back_end.adb +++ b/gcc/ada/back_end.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -241,9 +240,9 @@ package body Back_End is while Next_Arg < save_argc loop Look_At_Arg : declare - Argv_Ptr : constant BSP := save_argv (Next_Arg); - Argv_Len : constant Nat := Len_Arg (Next_Arg); - Argv : String := Argv_Ptr (1 .. Natural (Argv_Len)); + Argv_Ptr : constant BSP := save_argv (Next_Arg); + Argv_Len : constant Nat := Len_Arg (Next_Arg); + Argv : constant String := Argv_Ptr (1 .. Natural (Argv_Len)); begin -- If the previous switch has set the Output_File_Name_Present diff --git a/gcc/ada/back_end.ads b/gcc/ada/back_end.ads index 0b9822a2daf..fd8c30c4ed8 100644 --- a/gcc/ada/back_end.ads +++ b/gcc/ada/back_end.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/bcheck.adb b/gcc/ada/bcheck.adb index 50942ed890c..85cabaeaf0c 100644 --- a/gcc/ada/bcheck.adb +++ b/gcc/ada/bcheck.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/bcheck.ads b/gcc/ada/bcheck.ads index bcc0c67fb43..d670d341cdb 100644 --- a/gcc/ada/bcheck.ads +++ b/gcc/ada/bcheck.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/binde.adb b/gcc/ada/binde.adb index bdfaaf54af3..9f6e2082f9e 100644 --- a/gcc/ada/binde.adb +++ b/gcc/ada/binde.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/binde.ads b/gcc/ada/binde.ads index 1e5b81b3ed6..74fc12282b6 100644 --- a/gcc/ada/binde.ads +++ b/gcc/ada/binde.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/binderr.adb b/gcc/ada/binderr.adb index ffa8b3cec79..a0b12a84085 100644 --- a/gcc/ada/binderr.adb +++ b/gcc/ada/binderr.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -97,6 +96,7 @@ package body Binderr is procedure Error_Msg_Output (Msg : String; Info : Boolean) is Use_Second_Name : Boolean := False; + Use_Second_Nat : Boolean := False; begin if Warnings_Detected + Errors_Detected > Maximum_Errors then @@ -115,8 +115,8 @@ package body Binderr is Write_Str ("error: "); end if; - for I in Msg'Range loop - if Msg (I) = '%' then + for J in Msg'Range loop + if Msg (J) = '%' then if Use_Second_Name then Get_Name_String (Error_Msg_Name_2); @@ -129,7 +129,7 @@ package body Binderr is Write_Str (Name_Buffer (1 .. Name_Len)); Write_Char ('"'); - elsif Msg (I) = '&' then + elsif Msg (J) = '&' then Write_Char ('"'); if Use_Second_Name then @@ -141,8 +141,16 @@ package body Binderr is Write_Char ('"'); - elsif Msg (I) /= '?' then - Write_Char (Msg (I)); + elsif Msg (J) = '#' then + if Use_Second_Nat then + Write_Int (Error_Msg_Nat_2); + else + Use_Second_Nat := True; + Write_Int (Error_Msg_Nat_1); + end if; + + elsif Msg (J) /= '?' then + Write_Char (Msg (J)); end if; end loop; diff --git a/gcc/ada/binderr.ads b/gcc/ada/binderr.ads index 840862eacf2..6e49ac05546 100644 --- a/gcc/ada/binderr.ads +++ b/gcc/ada/binderr.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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- -- @@ -66,6 +65,12 @@ package Binderr is -- which case it is similarly replaced by the name which is specified -- by the Name_Id value stored in Error_Msg_Name_2. + -- Insertion character # (Pound: insert non-negative number in decimal) + -- The character # is replaced by the contents of Error_Msg_Nat_1 + -- converted into an unsigned decimal string. A second # may appear + -- in a single message, in which case it is similarly replaced by + -- the value stored in Error_Msg_Nat_2. + -- Insertion character ? (Question mark: warning message) -- The character ?, which must be the first character in the message -- string, signals a warning message instead of an error message. @@ -84,6 +89,10 @@ package Binderr is Error_Msg_Name_2 : Name_Id; -- Name_Id values for % insertion characters in message + Error_Msg_Nat_1 : Nat; + Error_Msg_Nat_2 : Nat; + -- Integer values for # insertion characters in message + ------------------------------ -- Error Output Subprograms -- ------------------------------ diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index ace6c2fbcaa..c6b888c745c 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/bindgen.ads b/gcc/ada/bindgen.ads index 7aae981cf20..846f98620d9 100644 --- a/gcc/ada/bindgen.ads +++ b/gcc/ada/bindgen.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/bindusg.adb b/gcc/ada/bindusg.adb index 95e0e9c91d1..163f92ed1cb 100644 --- a/gcc/ada/bindusg.adb +++ b/gcc/ada/bindusg.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -195,7 +194,7 @@ begin -- Line for -T switch - Write_Str (" -Tn Set time slice value to n microseconds (n >= 0)"); + Write_Str (" -Tn Set time slice value to n milliseconds (n >= 0)"); Write_Eol; -- Line for -v switch diff --git a/gcc/ada/bindusg.ads b/gcc/ada/bindusg.ads index 9a4af308f6b..20d1103e2ec 100644 --- a/gcc/ada/bindusg.ads +++ b/gcc/ada/bindusg.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/butil.adb b/gcc/ada/butil.adb index 110b50df504..3ef72e41b11 100644 --- a/gcc/ada/butil.adb +++ b/gcc/ada/butil.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/butil.ads b/gcc/ada/butil.ads index 1fc730a2f44..79d5ebd94aa 100644 --- a/gcc/ada/butil.ads +++ b/gcc/ada/butil.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/cal.c b/gcc/ada/cal.c index 72e4f080a42..31d39834afc 100644 --- a/gcc/ada/cal.c +++ b/gcc/ada/cal.c @@ -6,8 +6,7 @@ * * * C Implementation File * * * - * * - * Copyright (C) 1992-2001, Free Software Foundation, Inc. * + * Copyright (C) 1992-2002, 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 +58,13 @@ __gnat_duration_to_timeval (long sec, long usec, void *t) #include <sys/time.h> #endif +#ifdef __MINGW32__ +#include "mingw32.h" +#if STD_MINGW +#include <winsock.h> +#endif +#endif + void __gnat_timeval_to_duration (struct timeval *t, long *sec, long *usec) { diff --git a/gcc/ada/calendar.ads b/gcc/ada/calendar.ads index b4829d59597..85618aa2a64 100644 --- a/gcc/ada/calendar.ads +++ b/gcc/ada/calendar.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/casing.adb b/gcc/ada/casing.adb index 589cc52b156..e2f9a485e5f 100644 --- a/gcc/ada/casing.adb +++ b/gcc/ada/casing.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/casing.ads b/gcc/ada/casing.ads index 281dc2e6894..55f88077c88 100644 --- a/gcc/ada/casing.ads +++ b/gcc/ada/casing.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/ceinfo.adb b/gcc/ada/ceinfo.adb index d95d669e9a4..6cd68db939c 100644 --- a/gcc/ada/ceinfo.adb +++ b/gcc/ada/ceinfo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 05b94c861a1..597c439a6a4 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/checks.ads b/gcc/ada/checks.ads index b6304a3940f..8ccafdea7c0 100644 --- a/gcc/ada/checks.ads +++ b/gcc/ada/checks.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/cio.c b/gcc/ada/cio.c index 86c6b44bda4..50452bc1eff 100644 --- a/gcc/ada/cio.c +++ b/gcc/ada/cio.c @@ -6,8 +6,7 @@ * * * C Implementation File * * * - * * - * Copyright (C) 1992-2001 Free Software Foundation, Inc. * + * Copyright (C) 1992-2003 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- * @@ -42,40 +41,6 @@ #include "adaint.h" -#ifdef __RT__ - -/* Linux kernel modules don't have inputs, so don't define get_int. - Simple output can be done via printk. */ - -void -put_char (c) - int c; -{ - printk ("%c", c); -} - -void -put_char_stderr (c) - int c; -{ - put_char (c); -} - -void -put_int (x) - int x; -{ - printk ("%d", x); -} - -void -put_int_stderr (int x) -{ - put_int (x); -} - -#else - /* Don't use macros on GNU/Linux since they cause incompatible changes between glibc 2.0 and 2.1 */ #ifdef linux @@ -131,7 +96,6 @@ put_char_stderr (c) { fputc (c, stderr); } -#endif #ifdef __vxworks diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index 71368e68fa7..284ed47d9c9 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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- -- @@ -110,7 +109,7 @@ package body Comperr is -- Debug flag K disables this behavior (useful for debugging) - if Total_Errors_Detected /= 0 and then not Debug_Flag_K then + if Serious_Errors_Detected /= 0 and then not Debug_Flag_K then Errout.Finalize; Set_Standard_Error; @@ -278,7 +277,7 @@ package body Comperr is End_Line; Write_Str - ("| concatenated together with no headers between files."); + ("| (concatenated together with no headers between files)."); End_Line; end if; @@ -300,6 +299,9 @@ package body Comperr is Write_Eol; Write_Line ("Please include these source files with error report"); + Write_Line ("Note that list may not be accurate in some cases, "); + Write_Line ("so please double check that the problem can still "); + Write_Line ("be reproduced with the set of files listed."); Write_Eol; for U in Main_Unit .. Last_Unit loop diff --git a/gcc/ada/comperr.ads b/gcc/ada/comperr.ads index e235f01ff62..ea4703ac42e 100644 --- a/gcc/ada/comperr.ads +++ b/gcc/ada/comperr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/config-lang.in b/gcc/ada/config-lang.in index 8c5a883a73a..3875992c6d1 100644 --- a/gcc/ada/config-lang.in +++ b/gcc/ada/config-lang.in @@ -1,5 +1,5 @@ # Top level configure fragment for GNU Ada (GNAT). -# Copyright (C) 1994-2001 Free Software Foundation, Inc. +# Copyright (C) 1994-2003 Free Software Foundation, Inc. #This file is part of GCC. diff --git a/gcc/ada/csets.adb b/gcc/ada/csets.adb index 02166dbccf2..4bd2ef733d4 100644 --- a/gcc/ada/csets.adb +++ b/gcc/ada/csets.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/csets.ads b/gcc/ada/csets.ads index b91ad361127..cccf32426d6 100644 --- a/gcc/ada/csets.ads +++ b/gcc/ada/csets.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/csinfo.adb b/gcc/ada/csinfo.adb index 176cb4ac6f8..e13676c3b6c 100644 --- a/gcc/ada/csinfo.adb +++ b/gcc/ada/csinfo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index ceb5433bcf3..a3a5a327c8c 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/cstand.ads b/gcc/ada/cstand.ads index 4b7900932fd..1fe2e40f091 100644 --- a/gcc/ada/cstand.ads +++ b/gcc/ada/cstand.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/cuintp.c b/gcc/ada/cuintp.c index d5eeb2d2ce1..80ed5b588bf 100644 --- a/gcc/ada/cuintp.c +++ b/gcc/ada/cuintp.c @@ -6,8 +6,7 @@ * * * C Implementation File * * * - * * - * Copyright (C) 1992-2001 Free Software Foundation, Inc. * + * Copyright (C) 1992-2003 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/debug.adb b/gcc/ada/debug.adb index d883e2d0251..e2040d2e4f1 100644 --- a/gcc/ada/debug.adb +++ b/gcc/ada/debug.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/debug.ads b/gcc/ada/debug.ads index 85623408f08..feb5d5a19d0 100644 --- a/gcc/ada/debug.ads +++ b/gcc/ada/debug.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/debug_a.adb b/gcc/ada/debug_a.adb index 7de1534fa07..c066314b04d 100644 --- a/gcc/ada/debug_a.adb +++ b/gcc/ada/debug_a.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/debug_a.ads b/gcc/ada/debug_a.ads index 09b1e77f8f7..c0fa7e51ce6 100644 --- a/gcc/ada/debug_a.ads +++ b/gcc/ada/debug_a.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/dec-io.adb b/gcc/ada/dec-io.adb index 283c40bfecc..5a06dd4123e 100644 --- a/gcc/ada/dec-io.adb +++ b/gcc/ada/dec-io.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/dec-io.ads b/gcc/ada/dec-io.ads index efed4235035..c65d7632cff 100644 --- a/gcc/ada/dec-io.ads +++ b/gcc/ada/dec-io.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/dec.ads b/gcc/ada/dec.ads index 221a33cf5fa..18bf57df715 100644 --- a/gcc/ada/dec.ads +++ b/gcc/ada/dec.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/deftarg.c b/gcc/ada/deftarg.c index d69ce227188..2e144ec48fa 100644 --- a/gcc/ada/deftarg.c +++ b/gcc/ada/deftarg.c @@ -6,8 +6,7 @@ * * * Body * * * - * * - * Copyright (C) 1992-2001 Free Software Foundation, Inc. * + * Copyright (C) 1992-2003 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/directio.ads b/gcc/ada/directio.ads index e0db5689312..a1e2080a809 100644 --- a/gcc/ada/directio.ads +++ b/gcc/ada/directio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index ac0369b0ff9..11a14fbc1ad 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index ea34b12465f..fce8aee1fc7 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/elists.adb b/gcc/ada/elists.adb index e3a6098ee5f..6d1b8ca4b29 100644 --- a/gcc/ada/elists.adb +++ b/gcc/ada/elists.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/elists.ads b/gcc/ada/elists.ads index 67c53c85697..7715c0a2342 100644 --- a/gcc/ada/elists.ads +++ b/gcc/ada/elists.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/elists.h b/gcc/ada/elists.h index dcfae8c80e5..0a1ad06b1ee 100644 --- a/gcc/ada/elists.h +++ b/gcc/ada/elists.h @@ -6,7 +6,6 @@ * * * C Header File * * * - * * * Copyright (C) 1992-2001 Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * diff --git a/gcc/ada/errno.c b/gcc/ada/errno.c index 90687c4f7b5..c1b8ec9485a 100644 --- a/gcc/ada/errno.c +++ b/gcc/ada/errno.c @@ -6,7 +6,6 @@ * * * C Implementation File * * * - * * * Copyright (C) 1992-2001 Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 6aa3f22b8e5..7935a63473f 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index bd9f398a5bb..442204819f4 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/eval_fat.adb b/gcc/ada/eval_fat.adb index 1547251d5b2..fbda4a6611c 100644 --- a/gcc/ada/eval_fat.adb +++ b/gcc/ada/eval_fat.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -73,6 +72,7 @@ package body Eval_Fat is -- using biased rounding (halfway cases round away from zero), round to -- even, a floor operation or a ceiling operation depending on the setting -- of Mode (see corresponding descriptions in Urealp). + -- -- In case rounding was specified, Rounding_Was_Biased is set True -- if the input was indeed halfway between to machine numbers and -- got rounded away from zero to an odd number. @@ -444,7 +444,6 @@ package body Eval_Fat is Release_And_Save (Uintp_Mark, Fraction, Exponent); end Calculate_Fraction_And_Exponent; - end Decompose_Int; ---------------- @@ -619,7 +618,6 @@ package body Eval_Fat is Z := Scaling (RT, Y, L); return Z; end if; - end Leading_Part; ------------- @@ -712,7 +710,9 @@ package body Eval_Fat is return X - Eps_Denorm (RT); elsif X > Ureal_0 then + -- Target does not support denorms, so predecessor is 0.0 + return Ureal_0; else @@ -806,7 +806,6 @@ package body Eval_Fat is end if; return Sign_X * IEEE_Rem; - end Remainder; -------------- @@ -830,7 +829,6 @@ package body Eval_Fat is else return Result; end if; - end Rounding; ------------- @@ -933,7 +931,6 @@ package body Eval_Fat is else return X; end if; - end Unbiased_Rounding; end Eval_Fat; diff --git a/gcc/ada/eval_fat.ads b/gcc/ada/eval_fat.ads index e72a122b747..30a9fe35dfa 100644 --- a/gcc/ada/eval_fat.ads +++ b/gcc/ada/eval_fat.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exit.c b/gcc/ada/exit.c index 906e6904703..dbb54a1a919 100644 --- a/gcc/ada/exit.c +++ b/gcc/ada/exit.c @@ -6,7 +6,6 @@ * * * C Implementation File * * * - * * * Copyright (C) 1992-2001 Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index a83b3b20fa8..b63cc53c993 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_aggr.ads b/gcc/ada/exp_aggr.ads index d6acdf284a4..0af8c9d6907 100644 --- a/gcc/ada/exp_aggr.ads +++ b/gcc/ada/exp_aggr.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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- -- @@ -52,5 +51,4 @@ package Exp_Aggr is -- of an allocator. This procedure perform in-place aggregate -- assignent in the newly allocated object. - end Exp_Aggr; diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 46cad477094..bf65d883720 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_attr.ads b/gcc/ada/exp_attr.ads index 5d3b7c64e41..b0c66e45cef 100644 --- a/gcc/ada/exp_attr.ads +++ b/gcc/ada/exp_attr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch10.ads b/gcc/ada/exp_ch10.ads index 9d92c412328..8b9ecc15f74 100644 --- a/gcc/ada/exp_ch10.ads +++ b/gcc/ada/exp_ch10.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index 039d6c54f2b..d99d07ef284 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch11.ads b/gcc/ada/exp_ch11.ads index 357972a313e..080d91532af 100644 --- a/gcc/ada/exp_ch11.ads +++ b/gcc/ada/exp_ch11.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch12.adb b/gcc/ada/exp_ch12.adb index 49b157e0a6c..c6af2eb3aca 100644 --- a/gcc/ada/exp_ch12.adb +++ b/gcc/ada/exp_ch12.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch12.ads b/gcc/ada/exp_ch12.ads index b8b99ce8cab..85b151521b9 100644 --- a/gcc/ada/exp_ch12.ads +++ b/gcc/ada/exp_ch12.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch13.adb b/gcc/ada/exp_ch13.adb index 513e3031405..908ebd64e62 100644 --- a/gcc/ada/exp_ch13.adb +++ b/gcc/ada/exp_ch13.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch13.ads b/gcc/ada/exp_ch13.ads index 3229fc6b701..23374381d2d 100644 --- a/gcc/ada/exp_ch13.ads +++ b/gcc/ada/exp_ch13.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index a2bfaf76058..669ced7f031 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch2.ads b/gcc/ada/exp_ch2.ads index 5d9ece94738..e7d838bd9af 100644 --- a/gcc/ada/exp_ch2.ads +++ b/gcc/ada/exp_ch2.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 3676b71c03b..8037eb56bfc 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch3.ads b/gcc/ada/exp_ch3.ads index c5cf0a95790..2c15e1e9552 100644 --- a/gcc/ada/exp_ch3.ads +++ b/gcc/ada/exp_ch3.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 29098ee78bb..ba8c00219b2 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch4.ads b/gcc/ada/exp_ch4.ads index 5ea67eecf00..021f5049cbb 100644 --- a/gcc/ada/exp_ch4.ads +++ b/gcc/ada/exp_ch4.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index ad6351ff771..b0b71b4507b 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch5.ads b/gcc/ada/exp_ch5.ads index 6660f0a4a67..8237f1f803a 100644 --- a/gcc/ada/exp_ch5.ads +++ b/gcc/ada/exp_ch5.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 168992d768e..f4a33e06bca 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch6.ads b/gcc/ada/exp_ch6.ads index 5f7c2d227ea..2d20d95194f 100644 --- a/gcc/ada/exp_ch6.ads +++ b/gcc/ada/exp_ch6.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 70c3f5f4931..a05d36f5a56 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch7.ads b/gcc/ada/exp_ch7.ads index 4c227505b0c..d2b486e5580 100644 --- a/gcc/ada/exp_ch7.ads +++ b/gcc/ada/exp_ch7.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch8.adb b/gcc/ada/exp_ch8.adb index 575feffdfbd..8f26a4a3f7f 100644 --- a/gcc/ada/exp_ch8.adb +++ b/gcc/ada/exp_ch8.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch8.ads b/gcc/ada/exp_ch8.ads index acdc0f6981d..b118ab371ba 100644 --- a/gcc/ada/exp_ch8.ads +++ b/gcc/ada/exp_ch8.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index a456107c57e..7fadd373690 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads index 91a9e69d548..76a888ed6d7 100644 --- a/gcc/ada/exp_ch9.ads +++ b/gcc/ada/exp_ch9.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_code.adb b/gcc/ada/exp_code.adb index f84cb4bf99d..421fa5d05c1 100644 --- a/gcc/ada/exp_code.adb +++ b/gcc/ada/exp_code.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -270,7 +269,7 @@ package body Exp_Code is -- know the type is right, it is sufficient to see if the -- referenced entity is in a runtime routine. - if Nkind (N) = N_Identifier + if Is_Entity_Name (N) and then Is_Predefined_File_Name (Unit_File_Name (Get_Source_Unit (Entity (N)))) diff --git a/gcc/ada/exp_code.ads b/gcc/ada/exp_code.ads index 184fdc5b6d8..cddaf532bf1 100644 --- a/gcc/ada/exp_code.ads +++ b/gcc/ada/exp_code.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb index 489b6396f53..251ee5fb464 100644 --- a/gcc/ada/exp_dbug.adb +++ b/gcc/ada/exp_dbug.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads index 3e84023090d..951ccc33a30 100644 --- a/gcc/ada/exp_dbug.ads +++ b/gcc/ada/exp_dbug.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 41b75b497f8..d1d161e92e0 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_disp.ads b/gcc/ada/exp_disp.ads index 1f9c73b358c..aedda2d7d01 100644 --- a/gcc/ada/exp_disp.ads +++ b/gcc/ada/exp_disp.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index 66c413fe043..4dff14e076e 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_dist.ads b/gcc/ada/exp_dist.ads index 4015a927e92..648803c70b8 100644 --- a/gcc/ada/exp_dist.ads +++ b/gcc/ada/exp_dist.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_fixd.adb b/gcc/ada/exp_fixd.adb index 862180aec3b..79f43b102a6 100644 --- a/gcc/ada/exp_fixd.adb +++ b/gcc/ada/exp_fixd.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_fixd.ads b/gcc/ada/exp_fixd.ads index a5ac55cf543..7b8eaded2d0 100644 --- a/gcc/ada/exp_fixd.ads +++ b/gcc/ada/exp_fixd.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index 064c40e5e68..0e75acfab95 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_imgv.ads b/gcc/ada/exp_imgv.ads index 17ee723a1d3..7df2692a76f 100644 --- a/gcc/ada/exp_imgv.ads +++ b/gcc/ada/exp_imgv.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 44f8193d9a4..1070138347d 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_intr.ads b/gcc/ada/exp_intr.ads index e48211cf351..2343205b7c4 100644 --- a/gcc/ada/exp_intr.ads +++ b/gcc/ada/exp_intr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 8794ef253f6..e8c607adda5 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_pakd.ads b/gcc/ada/exp_pakd.ads index fc7dfedfd99..9c3044bddff 100644 --- a/gcc/ada/exp_pakd.ads +++ b/gcc/ada/exp_pakd.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb index b02b0dd8062..7ef21dce758 100644 --- a/gcc/ada/exp_prag.adb +++ b/gcc/ada/exp_prag.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_prag.ads b/gcc/ada/exp_prag.ads index 00f98ed8c89..613e411853f 100644 --- a/gcc/ada/exp_prag.ads +++ b/gcc/ada/exp_prag.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_smem.adb b/gcc/ada/exp_smem.adb index be5d52170ef..65ed01e4a57 100644 --- a/gcc/ada/exp_smem.adb +++ b/gcc/ada/exp_smem.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_smem.ads b/gcc/ada/exp_smem.ads index 76f069f2228..f12b800a973 100644 --- a/gcc/ada/exp_smem.ads +++ b/gcc/ada/exp_smem.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_strm.adb b/gcc/ada/exp_strm.adb index 006b107749e..6cc2e7f23ec 100644 --- a/gcc/ada/exp_strm.adb +++ b/gcc/ada/exp_strm.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_strm.ads b/gcc/ada/exp_strm.ads index 0ed39b7bd83..1e089ca881d 100644 --- a/gcc/ada/exp_strm.ads +++ b/gcc/ada/exp_strm.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_tss.adb b/gcc/ada/exp_tss.adb index 16b126469e3..e714a082c1e 100644 --- a/gcc/ada/exp_tss.adb +++ b/gcc/ada/exp_tss.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_tss.ads b/gcc/ada/exp_tss.ads index ccc7ae7bd56..2901dbb6b95 100644 --- a/gcc/ada/exp_tss.ads +++ b/gcc/ada/exp_tss.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -86,7 +85,7 @@ package Exp_Tss is -- objects are always initialized using the initialization procedure for -- the corresponding base type (see Base_Init_Proc function). A special -- case arises for concurrent types. Such types do not themselves have an - -- _init TSR, but initialization is required. The initialization procedure + -- _init TSS, but initialization is required. The initialization procedure -- used is the one fot the corresponding record type (see Base_Init_Proc). function Base_Init_Proc (Typ : Entity_Id) return Entity_Id; diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index e1ed9be3075..1da64c40e39 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 15d35994adf..bc3e6f75f88 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/exp_vfpt.adb b/gcc/ada/exp_vfpt.adb index 448864497fb..0f03e874393 100644 --- a/gcc/ada/exp_vfpt.adb +++ b/gcc/ada/exp_vfpt.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2002 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- -- @@ -310,7 +309,6 @@ package body Exp_VFpt is end if; end Equivalent_Integer_Type; - -- Start of processing for Expand_Vax_Conversion; begin @@ -323,7 +321,6 @@ package body Exp_VFpt is Rewrite (N, Unchecked_Convert_To (T_Typ, Expr)); - elsif Is_Fixed_Point_Type (S_Typ) then -- convert the scaled integer value to the target type, and multiply diff --git a/gcc/ada/exp_vfpt.ads b/gcc/ada/exp_vfpt.ads index 3c5b586539b..1e57b418b84 100644 --- a/gcc/ada/exp_vfpt.ads +++ b/gcc/ada/exp_vfpt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/expander.adb b/gcc/ada/expander.adb index 3738477bbbf..83a04a28014 100644 --- a/gcc/ada/expander.adb +++ b/gcc/ada/expander.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/expander.ads b/gcc/ada/expander.ads index 73782309b77..28fef078c3c 100644 --- a/gcc/ada/expander.ads +++ b/gcc/ada/expander.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -51,7 +50,8 @@ -- subtree with an expression. Once the substitution is completed, the -- Expand routine must call Analyze on the resulting node to do any -- required semantic analysis. Note that references to children copied --- from the old tree won't be reanalyzed, since their Analyze flag is set. +-- from the old tree won't be reanalyzed, since their Analyzed flag +-- is set. -- Nodes that are subexpressions (Nkind in N_Subexpr) diff --git a/gcc/ada/fmap.adb b/gcc/ada/fmap.adb index 80e98f89dc8..9fdfda04b01 100644 --- a/gcc/ada/fmap.adb +++ b/gcc/ada/fmap.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/fmap.ads b/gcc/ada/fmap.ads index 91bbf62a097..5b1d51e606d 100644 --- a/gcc/ada/fmap.ads +++ b/gcc/ada/fmap.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/fname-sf.adb b/gcc/ada/fname-sf.adb index 2ebf9089d68..962b335747d 100644 --- a/gcc/ada/fname-sf.adb +++ b/gcc/ada/fname-sf.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/fname-sf.ads b/gcc/ada/fname-sf.ads index 058e442b758..b18c3dc25ff 100644 --- a/gcc/ada/fname-sf.ads +++ b/gcc/ada/fname-sf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/fname-uf.adb b/gcc/ada/fname-uf.adb index 108f60a9984..bd545950d6a 100644 --- a/gcc/ada/fname-uf.adb +++ b/gcc/ada/fname-uf.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003, 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/fname-uf.ads b/gcc/ada/fname-uf.ads index 2ec910d49b7..6eef86e9ee7 100644 --- a/gcc/ada/fname-uf.ads +++ b/gcc/ada/fname-uf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/fname.adb b/gcc/ada/fname.adb index c9ebd23c2b7..195010b072d 100644 --- a/gcc/ada/fname.adb +++ b/gcc/ada/fname.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002, 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- -- @@ -138,7 +137,7 @@ package body Fname is is subtype Str8 is String (1 .. 8); - Predef_Names : array (1 .. 11) of Str8 := + Predef_Names : constant array (1 .. 11) of Str8 := ("ada ", -- Ada "calendar", -- Calendar "interfac", -- Interfaces diff --git a/gcc/ada/fname.ads b/gcc/ada/fname.ads index d06e282fd9c..d4bf4cf3cd4 100644 --- a/gcc/ada/fname.ads +++ b/gcc/ada/fname.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 9d49e248b0b..579c5ff5090 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/freeze.ads b/gcc/ada/freeze.ads index c628d7c8b21..247fbc4e9cb 100644 --- a/gcc/ada/freeze.ads +++ b/gcc/ada/freeze.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index 27adcaae451..758513eb180 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/frontend.ads b/gcc/ada/frontend.ads index 845f8968e32..3d7c3cee388 100644 --- a/gcc/ada/frontend.ads +++ b/gcc/ada/frontend.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-awk.adb b/gcc/ada/g-awk.adb index a8854b63b54..40de600ffd7 100644 --- a/gcc/ada/g-awk.adb +++ b/gcc/ada/g-awk.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-awk.ads b/gcc/ada/g-awk.ads index 27a58951c38..7af1cb3ec5e 100644 --- a/gcc/ada/g-awk.ads +++ b/gcc/ada/g-awk.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-busora.adb b/gcc/ada/g-busora.adb index fa19f7a8b61..9a469192785 100644 --- a/gcc/ada/g-busora.adb +++ b/gcc/ada/g-busora.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-1998 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-busora.ads b/gcc/ada/g-busora.ads index a38dd156a41..7fbc6fc8d6e 100644 --- a/gcc/ada/g-busora.ads +++ b/gcc/ada/g-busora.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-busorg.adb b/gcc/ada/g-busorg.adb index 67b3d745b58..62cbd4275dd 100644 --- a/gcc/ada/g-busorg.adb +++ b/gcc/ada/g-busorg.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-1998 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-busorg.ads b/gcc/ada/g-busorg.ads index 7b39168f4cf..76ccda75122 100644 --- a/gcc/ada/g-busorg.ads +++ b/gcc/ada/g-busorg.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-calend.adb b/gcc/ada/g-calend.adb index 3b7da7d62ce..18c74ace13b 100644 --- a/gcc/ada/g-calend.adb +++ b/gcc/ada/g-calend.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -28,7 +27,7 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ diff --git a/gcc/ada/g-calend.ads b/gcc/ada/g-calend.ads index 7cfbe9b14ea..94f95a18e21 100644 --- a/gcc/ada/g-calend.ads +++ b/gcc/ada/g-calend.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-casuti.adb b/gcc/ada/g-casuti.adb index b5eb09f876c..a8624915799 100644 --- a/gcc/ada/g-casuti.adb +++ b/gcc/ada/g-casuti.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-1999 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-casuti.ads b/gcc/ada/g-casuti.ads index 08e04520fcd..db22ec52df6 100644 --- a/gcc/ada/g-casuti.ads +++ b/gcc/ada/g-casuti.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-1998 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-catiio.adb b/gcc/ada/g-catiio.adb index d9bf171281f..e3f45f815fe 100644 --- a/gcc/ada/g-catiio.adb +++ b/gcc/ada/g-catiio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/g-catiio.ads b/gcc/ada/g-catiio.ads index 0485757a9c7..9f3188cdf1b 100644 --- a/gcc/ada/g-catiio.ads +++ b/gcc/ada/g-catiio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- @@ -32,7 +31,7 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ diff --git a/gcc/ada/g-cgi.adb b/gcc/ada/g-cgi.adb index db2a5355644..3d5970dbe22 100644 --- a/gcc/ada/g-cgi.adb +++ b/gcc/ada/g-cgi.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-cgi.ads b/gcc/ada/g-cgi.ads index bd1b74af154..4929989b2c1 100644 --- a/gcc/ada/g-cgi.ads +++ b/gcc/ada/g-cgi.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 2000 Ada Core Technologies, Inc. -- +-- Copyright (C) 2000-2003 Ada Core Technologies, 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/g-cgicoo.adb b/gcc/ada/g-cgicoo.adb index 597e6138a31..6827a9e45cb 100644 --- a/gcc/ada/g-cgicoo.adb +++ b/gcc/ada/g-cgicoo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-cgicoo.ads b/gcc/ada/g-cgicoo.ads index ec0e5744494..3af1fd8188f 100644 --- a/gcc/ada/g-cgicoo.ads +++ b/gcc/ada/g-cgicoo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-cgideb.adb b/gcc/ada/g-cgideb.adb index 32140782261..0f913fc46d0 100644 --- a/gcc/ada/g-cgideb.adb +++ b/gcc/ada/g-cgideb.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-cgideb.ads b/gcc/ada/g-cgideb.ads index a53e6458aef..082cebeeaac 100644 --- a/gcc/ada/g-cgideb.ads +++ b/gcc/ada/g-cgideb.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index 7aa01e8f6ab..abaa24cd53b 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -27,7 +26,7 @@ -- however invalidate any other reasons why the executable file might be -- -- covered by the GNU Public License. -- -- -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- GNAT is maintained by Ada Core Technologies Inc (http://www.gnat.com). -- -- -- ------------------------------------------------------------------------------ @@ -248,7 +247,7 @@ package body GNAT.Command_Line is begin if In_Expansion then declare - S : String := Expansion (Expansion_It); + S : constant String := Expansion (Expansion_It); begin if S'Length /= 0 then @@ -767,11 +766,12 @@ package body GNAT.Command_Line is GNAT.Directory_Operations.Open (Iterator.Levels (1).Dir, Iterator.Dir_Name (1 .. Iterator.Start - 1)); - -- If in the current directory and the pattern starts with "./", - -- drop the "./" from the pattern. + -- If in the current directory and the pattern starts with "./" or ".\", + -- drop the "./" or ".\" from the pattern. if Directory = "" and then Pat'Length > 2 - and then Pat (Pat'First .. Pat'First + 1) = "./" + and then Pat (Pat'First) = '.' + and then Pat (Pat'First + 1) = Directory_Separator then First := Pat'First + 2; end if; diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads index 668c461d94f..1e421e4cd3e 100644 --- a/gcc/ada/g-comlin.ads +++ b/gcc/ada/g-comlin.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-crc32.adb b/gcc/ada/g-crc32.adb index 255e2f4ae82..18ae76dc0b4 100644 --- a/gcc/ada/g-crc32.adb +++ b/gcc/ada/g-crc32.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 2001-2002 Ada Core Technologies, 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- -- @@ -74,7 +73,7 @@ package body GNAT.CRC32 is subtype S2 is String (1 .. 2); function To_S2 is new Unchecked_Conversion (Wide_Character, S2); - VS : S2 := To_S2 (Value); + VS : constant S2 := To_S2 (Value); begin Update (C, VS (1)); diff --git a/gcc/ada/g-crc32.ads b/gcc/ada/g-crc32.ads index 73df9511db6..00f050ef471 100644 --- a/gcc/ada/g-crc32.ads +++ b/gcc/ada/g-crc32.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-curexc.ads b/gcc/ada/g-curexc.ads index b09787c1c0c..9b552b1ab48 100644 --- a/gcc/ada/g-curexc.ads +++ b/gcc/ada/g-curexc.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -28,7 +27,7 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ diff --git a/gcc/ada/g-debpoo.adb b/gcc/ada/g-debpoo.adb index f7bec400f66..83c8ba54785 100644 --- a/gcc/ada/g-debpoo.adb +++ b/gcc/ada/g-debpoo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-debpoo.ads b/gcc/ada/g-debpoo.ads index 33c0dd9bedb..0da981d8b77 100644 --- a/gcc/ada/g-debpoo.ads +++ b/gcc/ada/g-debpoo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-debuti.adb b/gcc/ada/g-debuti.adb index 4e956387f12..9266c0cf1cc 100644 --- a/gcc/ada/g-debuti.adb +++ b/gcc/ada/g-debuti.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1997-1998 Ada Core Technologies, Inc. -- +-- Copyright (C) 1997-2002 Ada Core Technologies, 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- -- @@ -46,7 +45,8 @@ package body GNAT.Debug_Utilities is N : Integer_Address := To_Integer (A); U : Natural := 0; - H : array (Integer range 0 .. 15) of Character := "0123456789ABCDEF"; + H : constant array (Integer range 0 .. 15) of Character := + "0123456789ABCDEF"; begin S (S'Last) := '#'; diff --git a/gcc/ada/g-debuti.ads b/gcc/ada/g-debuti.ads index a8992840f7c..334b103d43f 100644 --- a/gcc/ada/g-debuti.ads +++ b/gcc/ada/g-debuti.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-1998 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-diopit.adb b/gcc/ada/g-diopit.adb index 20bd22e285c..ed1aafa27b8 100644 --- a/gcc/ada/g-diopit.adb +++ b/gcc/ada/g-diopit.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-diopit.ads b/gcc/ada/g-diopit.ads index 0cfdb890e1f..62b691a09c3 100644 --- a/gcc/ada/g-diopit.ads +++ b/gcc/ada/g-diopit.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb index 892684357c5..1967d236d63 100644 --- a/gcc/ada/g-dirope.adb +++ b/gcc/ada/g-dirope.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-dirope.ads b/gcc/ada/g-dirope.ads index 81fe92f916a..e5d03b12616 100644 --- a/gcc/ada/g-dirope.ads +++ b/gcc/ada/g-dirope.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-dyntab.adb b/gcc/ada/g-dyntab.adb index da447c64e50..40417ed3179 100644 --- a/gcc/ada/g-dyntab.adb +++ b/gcc/ada/g-dyntab.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-dyntab.ads b/gcc/ada/g-dyntab.ads index 0fc04e69900..6adf4ee5573 100644 --- a/gcc/ada/g-dyntab.ads +++ b/gcc/ada/g-dyntab.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 2000-2002 Ada Core Technologies, 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/g-enblsp.adb b/gcc/ada/g-enblsp.adb index 98b2ef2b7fc..8c583291e29 100644 --- a/gcc/ada/g-enblsp.adb +++ b/gcc/ada/g-enblsp.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-except.ads b/gcc/ada/g-except.ads index b12e663f582..79118d92efa 100644 --- a/gcc/ada/g-except.ads +++ b/gcc/ada/g-except.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-exctra.adb b/gcc/ada/g-exctra.adb index 179f3943869..76a380f524d 100644 --- a/gcc/ada/g-exctra.adb +++ b/gcc/ada/g-exctra.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 2000-2002 Ada Core Technologies, 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- -- @@ -114,7 +113,7 @@ package body GNAT.Exception_Traces is -- Trace_On -- -------------- - procedure Trace_On (Kind : in Trace_Kind) is + procedure Trace_On (Kind : Trace_Kind) is begin case Kind is when Every_Raise => diff --git a/gcc/ada/g-exctra.ads b/gcc/ada/g-exctra.ads index cde6203cd5d..7ccbf652c2c 100644 --- a/gcc/ada/g-exctra.ads +++ b/gcc/ada/g-exctra.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 2000 Ada Core Technologies, Inc. -- +-- Copyright (C) 2000-2003 Ada Core Technologies, 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- -- @@ -71,7 +70,7 @@ package GNAT.Exception_Traces is -- The following procedures can be used to activate and deactivate -- traces identified by the above trace kind values. - procedure Trace_On (Kind : in Trace_Kind); + procedure Trace_On (Kind : Trace_Kind); -- Activate the traces denoted by Kind. procedure Trace_Off; diff --git a/gcc/ada/g-expect.adb b/gcc/ada/g-expect.adb index 432e17bfe52..32ed1c1e8fc 100644 --- a/gcc/ada/g-expect.adb +++ b/gcc/ada/g-expect.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-expect.ads b/gcc/ada/g-expect.ads index 36490288aff..07a3b1c5080 100644 --- a/gcc/ada/g-expect.ads +++ b/gcc/ada/g-expect.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-flocon.ads b/gcc/ada/g-flocon.ads index a421f260e29..5454730c9be 100644 --- a/gcc/ada/g-flocon.ads +++ b/gcc/ada/g-flocon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -28,7 +27,7 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ diff --git a/gcc/ada/g-hesora.adb b/gcc/ada/g-hesora.adb index fce06b0ebf0..71fab90d2a2 100644 --- a/gcc/ada/g-hesora.adb +++ b/gcc/ada/g-hesora.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-1999 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-hesora.ads b/gcc/ada/g-hesora.ads index 1834f3d39a7..019da395141 100644 --- a/gcc/ada/g-hesora.ads +++ b/gcc/ada/g-hesora.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-hesorg.adb b/gcc/ada/g-hesorg.adb index fcceb57d6f8..229a1e382e8 100644 --- a/gcc/ada/g-hesorg.adb +++ b/gcc/ada/g-hesorg.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-1999 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-hesorg.ads b/gcc/ada/g-hesorg.ads index 01fe58d7629..ada7ca1cbc7 100644 --- a/gcc/ada/g-hesorg.ads +++ b/gcc/ada/g-hesorg.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-htable.adb b/gcc/ada/g-htable.adb index 2d639872b97..5db9df2d7ca 100644 --- a/gcc/ada/g-htable.adb +++ b/gcc/ada/g-htable.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-1999 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-htable.ads b/gcc/ada/g-htable.ads index 116e8775ff6..114c6570261 100644 --- a/gcc/ada/g-htable.ads +++ b/gcc/ada/g-htable.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-io.adb b/gcc/ada/g-io.adb index e20c5a841b6..c4f191b9c0e 100644 --- a/gcc/ada/g-io.adb +++ b/gcc/ada/g-io.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1995-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 1995-2002 Ada Core Technologies, 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- -- @@ -63,7 +62,7 @@ package body GNAT.IO is -- Get_Line -- -------------- - procedure Get_Line (Item : in out String; Last : out Natural) is + procedure Get_Line (Item : out String; Last : out Natural) is C : Character; begin diff --git a/gcc/ada/g-io.ads b/gcc/ada/g-io.ads index 90803814ab4..526f1927a29 100644 --- a/gcc/ada/g-io.ads +++ b/gcc/ada/g-io.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1995-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 1995-2002 Ada Core Technologies, 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- -- @@ -54,7 +53,7 @@ pragma Preelaborate (IO); procedure Get (X : out Integer); procedure Get (C : out Character); - procedure Get_Line (Item : in out String; Last : out Natural); + procedure Get_Line (Item : out String; Last : out Natural); -- These routines always read from Standard_Input procedure Put (File : File_Type; X : Integer); diff --git a/gcc/ada/g-io_aux.adb b/gcc/ada/g-io_aux.adb index dabffb9bd39..295ad84053c 100644 --- a/gcc/ada/g-io_aux.adb +++ b/gcc/ada/g-io_aux.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-io_aux.ads b/gcc/ada/g-io_aux.ads index bda3a4c81b9..b22f0a189c7 100644 --- a/gcc/ada/g-io_aux.ads +++ b/gcc/ada/g-io_aux.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-locfil.ads b/gcc/ada/g-locfil.ads index 4b672eb0ab6..55e65aa79dc 100644 --- a/gcc/ada/g-locfil.ads +++ b/gcc/ada/g-locfil.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-md5.adb b/gcc/ada/g-md5.adb index 693203af21b..492531f35e5 100644 --- a/gcc/ada/g-md5.adb +++ b/gcc/ada/g-md5.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-md5.ads b/gcc/ada/g-md5.ads index 2e0f27cb9c3..127422ae500 100644 --- a/gcc/ada/g-md5.ads +++ b/gcc/ada/g-md5.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-moreex.adb b/gcc/ada/g-moreex.adb index d3013590d53..c91c45a308c 100644 --- a/gcc/ada/g-moreex.adb +++ b/gcc/ada/g-moreex.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -28,7 +27,7 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ diff --git a/gcc/ada/g-moreex.ads b/gcc/ada/g-moreex.ads index f73bcd9c2f3..21983ea1dc0 100644 --- a/gcc/ada/g-moreex.ads +++ b/gcc/ada/g-moreex.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -28,7 +27,7 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ diff --git a/gcc/ada/g-os_lib.adb b/gcc/ada/g-os_lib.adb index 524c3d42892..b92037b9d0d 100644 --- a/gcc/ada/g-os_lib.adb +++ b/gcc/ada/g-os_lib.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-os_lib.ads b/gcc/ada/g-os_lib.ads index e46f1e78b9d..c6dfede2021 100644 --- a/gcc/ada/g-os_lib.ads +++ b/gcc/ada/g-os_lib.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-regexp.adb b/gcc/ada/g-regexp.adb index 81b60c9c08e..18852c362fe 100644 --- a/gcc/ada/g-regexp.adb +++ b/gcc/ada/g-regexp.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 1999-2002 Ada Core Technologies, 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- -- @@ -534,7 +533,7 @@ package body GNAT.Regexp is case S (J) is when Open_Paren => declare - J_Start : Integer := J + 1; + J_Start : constant Integer := J + 1; Next_Start : State_Index; Next_End : State_Index; @@ -568,11 +567,11 @@ package body GNAT.Regexp is when '|' => declare - Start_Prev : State_Index := Start_State; - End_Prev : State_Index := End_State; + Start_Prev : constant State_Index := Start_State; + End_Prev : constant State_Index := End_State; + Start_J : constant Integer := J + 1; Start_Next : State_Index := 0; End_Next : State_Index := 0; - Start_J : Integer := J + 1; begin J := Next_Sub_Expression (J, End_Index); @@ -1235,6 +1234,19 @@ package body GNAT.Regexp is -- Start of processing for Compile begin + -- Special case for the empty string: it always matches, and the + -- following processing would fail on it. + if S = "" then + return (Ada.Finalization.Controlled with + R => new Regexp_Value' + (Alphabet_Size => 0, + Num_States => 1, + Map => (others => 0), + States => (others => (others => 1)), + Is_Final => (others => True), + Case_Sensitive => True)); + end if; + if not Case_Sensitive then GNAT.Case_Util.To_Lower (S); end if; diff --git a/gcc/ada/g-regexp.ads b/gcc/ada/g-regexp.ads index 86893ae675c..357923c982e 100644 --- a/gcc/ada/g-regexp.ads +++ b/gcc/ada/g-regexp.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1998-1999 Ada Core Technologies, Inc. -- +-- Copyright (C) 1998-2003 Ada Core Technologies, 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- -- @@ -136,7 +135,9 @@ package GNAT.Regexp is -- Compiles a regular expression S. If the syntax of the given -- expression is invalid (does not match above grammar, Error_In_Regexp -- is raised. If Glob is True, the pattern is considered as a 'globbing - -- pattern', that is a pattern as given by the second grammar above + -- pattern', that is a pattern as given by the second grammar above. + -- As a special case, if Pattern is the empty string it will always + -- match. function Match (S : String; R : Regexp) return Boolean; -- True if S matches R, otherwise False. Raises Constraint_Error if diff --git a/gcc/ada/g-regist.ads b/gcc/ada/g-regist.ads index 0c7973a3351..a41686dc73e 100644 --- a/gcc/ada/g-regist.ads +++ b/gcc/ada/g-regist.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-regpat.adb b/gcc/ada/g-regpat.adb index 3e569ff1a91..1949a8a5540 100644 --- a/gcc/ada/g-regpat.adb +++ b/gcc/ada/g-regpat.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1986 by University of Toronto. -- -- Copyright (C) 1996-2002 Ada Core Technologies, Inc. -- -- -- diff --git a/gcc/ada/g-regpat.ads b/gcc/ada/g-regpat.ads index 5489f0f362d..b3af0d82618 100644 --- a/gcc/ada/g-regpat.ads +++ b/gcc/ada/g-regpat.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1986 by University of Toronto. -- -- Copyright (C) 1996-2001 Ada Core Technologies, Inc. -- -- -- diff --git a/gcc/ada/g-soccon.ads b/gcc/ada/g-soccon.ads index b5c0f2241f4..8f55fc189e4 100644 --- a/gcc/ada/g-soccon.ads +++ b/gcc/ada/g-soccon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index ad77ff7c17e..27ebe1c366d 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 9e7b378eb4f..213de119c02 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-socthi.adb b/gcc/ada/g-socthi.adb index c9455c9e499..d39d8389cd1 100644 --- a/gcc/ada/g-socthi.adb +++ b/gcc/ada/g-socthi.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-socthi.ads b/gcc/ada/g-socthi.ads index 7a4d7e4aaff..a0236ecdeed 100644 --- a/gcc/ada/g-socthi.ads +++ b/gcc/ada/g-socthi.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-soliop.ads b/gcc/ada/g-soliop.ads index 5d27ae04517..6f40df91042 100644 --- a/gcc/ada/g-soliop.ads +++ b/gcc/ada/g-soliop.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-souinf.ads b/gcc/ada/g-souinf.ads index 91130e9b92f..0d52b023c3a 100644 --- a/gcc/ada/g-souinf.ads +++ b/gcc/ada/g-souinf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-speche.adb b/gcc/ada/g-speche.adb index 7b3c3739c3e..48dd4ab9108 100644 --- a/gcc/ada/g-speche.adb +++ b/gcc/ada/g-speche.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-speche.ads b/gcc/ada/g-speche.ads index 928d1f8e615..c89e515c712 100644 --- a/gcc/ada/g-speche.ads +++ b/gcc/ada/g-speche.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb index ff6da0c1ce0..e0fa74a41fa 100644 --- a/gcc/ada/g-spipat.adb +++ b/gcc/ada/g-spipat.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2002, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-spipat.ads b/gcc/ada/g-spipat.ads index 2d1d91e86ce..3d08f0be852 100644 --- a/gcc/ada/g-spipat.ads +++ b/gcc/ada/g-spipat.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-1999 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-spitbo.adb b/gcc/ada/g-spitbo.adb index d5b23a75c96..626a6332b4f 100644 --- a/gcc/ada/g-spitbo.adb +++ b/gcc/ada/g-spitbo.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1998 Ada Core Technologies, Inc. -- +-- Copyright (C) 1998-2002 Ada Core Technologies, 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- -- @@ -144,9 +143,9 @@ package body GNAT.Spitbol is -------------------- function Reverse_String (Str : VString) return VString is - Len : constant Natural := Length (Str); + Len : constant Natural := Length (Str); + Chars : constant String_Access := Get_String (Str); Result : String (1 .. Len); - Chars : String_Access := Get_String (Str); begin for J in 1 .. Len loop diff --git a/gcc/ada/g-spitbo.ads b/gcc/ada/g-spitbo.ads index 7b547f28232..d0688e3ce1c 100644 --- a/gcc/ada/g-spitbo.ads +++ b/gcc/ada/g-spitbo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-1999 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-sptabo.ads b/gcc/ada/g-sptabo.ads index 271b2fa5208..9beb7a4aa76 100644 --- a/gcc/ada/g-sptabo.ads +++ b/gcc/ada/g-sptabo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-1998 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-sptain.ads b/gcc/ada/g-sptain.ads index 5a8dbaf00c6..01e08fa4919 100644 --- a/gcc/ada/g-sptain.ads +++ b/gcc/ada/g-sptain.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-1998 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-sptavs.ads b/gcc/ada/g-sptavs.ads index 6d39c48dceb..7601506c9bb 100644 --- a/gcc/ada/g-sptavs.ads +++ b/gcc/ada/g-sptavs.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-1998 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-table.adb b/gcc/ada/g-table.adb index fe4ebd1c842..a1e5ef9aa73 100644 --- a/gcc/ada/g-table.adb +++ b/gcc/ada/g-table.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 1998-2002 Ada Core Technologies, 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,7 +32,8 @@ with System; use System; with System.Memory; use System.Memory; -with System.Address_To_Access_Conversions; + +with Unchecked_Conversion; package body GNAT.Table is @@ -59,17 +59,8 @@ package body GNAT.Table is -- in Max. Works correctly to do an initial allocation if the table -- is currently null. - package Table_Conversions is - new System.Address_To_Access_Conversions (Big_Table_Type); - -- Address and Access conversions for a Table object. - - function To_Address (Table : Table_Ptr) return Address; - pragma Inline (To_Address); - -- Returns the Address for the Table object. - - function To_Pointer (Table : Address) return Table_Ptr; - pragma Inline (To_Pointer); - -- Returns the Access pointer for the Table object. + function To_Address is new Unchecked_Conversion (Table_Ptr, Address); + function To_Pointer is new Unchecked_Conversion (Address, Table_Ptr); -------------- -- Allocate -- @@ -136,7 +127,7 @@ package body GNAT.Table is ---------- procedure Init is - Old_Length : Integer := Length; + Old_Length : constant Integer := Length; begin Last_Val := Min - 1; @@ -256,25 +247,6 @@ package body GNAT.Table is end if; end Set_Last; - ---------------- - -- To_Address -- - ---------------- - - function To_Address (Table : Table_Ptr) return Address is - begin - return Table_Conversions.To_Address - (Table_Conversions.Object_Pointer (Table)); - end To_Address; - - ---------------- - -- To_Pointer -- - ---------------- - - function To_Pointer (Table : Address) return Table_Ptr is - begin - return Table_Ptr (Table_Conversions.To_Pointer (Table)); - end To_Pointer; - begin Init; end GNAT.Table; diff --git a/gcc/ada/g-table.ads b/gcc/ada/g-table.ads index 7392582c45c..0e671f561a7 100644 --- a/gcc/ada/g-table.ads +++ b/gcc/ada/g-table.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-tasloc.adb b/gcc/ada/g-tasloc.adb index 0432206ae2a..c0b01450f53 100644 --- a/gcc/ada/g-tasloc.adb +++ b/gcc/ada/g-tasloc.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-1999 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-tasloc.ads b/gcc/ada/g-tasloc.ads index 7b09d45d5d5..f2090b5ceb5 100644 --- a/gcc/ada/g-tasloc.ads +++ b/gcc/ada/g-tasloc.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 1998-2002 Ada Core Technologies, 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- -- @@ -53,10 +52,10 @@ pragma Elaborate_Body (Task_Lock); pragma Inline (Unlock); -- Releases the global lock, allowing another task to successfully -- complete a Lock operation. Terminates the critical region. - + -- -- The recommended protocol for using these two procedures is as -- follows: - + -- -- Locked_Processing : begin -- Lock; -- ... @@ -67,26 +66,30 @@ pragma Elaborate_Body (Task_Lock); -- Unlock; -- raise; -- end Locked_Processing; - + -- -- This ensures that the lock is not left set if an exception is raised -- explicitly or implicitly during the critical locked region. - + -- -- Note on multiple calls to Lock: It is permissible to call Lock -- more than once with no intervening Unlock from a single task, -- and the lock will not be released until the corresponding number -- of Unlock operations has been performed. For example: - + -- -- GNAT.Task_Lock.Lock; -- acquires lock -- GNAT.Task_Lock.Lock; -- no effect -- GNAT.Task_Lock.Lock; -- no effect -- GNAT.Task_Lock.Unlock; -- no effect -- GNAT.Task_Lock.Unlock; -- no effect -- GNAT.Task_Lock.Unlock; -- releases lock - + -- -- However, as previously noted, the Task_Lock facility should only -- be used for very local locks where the probability of conflict is -- low, so usually this kind of nesting is not a good idea in any case. -- In more complex locking situations, it is more appropriate to define -- an appropriate protected type to provide the required locking. + -- + -- It is an error to call Unlock when there has been no prior call to + -- Lock. The effect of such an erroneous call is undefined, and may + -- result in deadlock, or other malfunction of the run-time system. end GNAT.Task_Lock; diff --git a/gcc/ada/g-thread.adb b/gcc/ada/g-thread.adb index 12d86e3937c..6208674d361 100644 --- a/gcc/ada/g-thread.adb +++ b/gcc/ada/g-thread.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-thread.ads b/gcc/ada/g-thread.ads index 52da0b0d8d6..e39f896e25b 100644 --- a/gcc/ada/g-thread.ads +++ b/gcc/ada/g-thread.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-traceb.adb b/gcc/ada/g-traceb.adb index c374488175e..14978dcc771 100644 --- a/gcc/ada/g-traceb.adb +++ b/gcc/ada/g-traceb.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-traceb.ads b/gcc/ada/g-traceb.ads index fb500311a6b..30d5fc80a46 100644 --- a/gcc/ada/g-traceb.ads +++ b/gcc/ada/g-traceb.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-trasym.adb b/gcc/ada/g-trasym.adb index 80ceaa2ef71..cff8aca520f 100644 --- a/gcc/ada/g-trasym.adb +++ b/gcc/ada/g-trasym.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/g-trasym.ads b/gcc/ada/g-trasym.ads index 6039f70e2b4..5c3255855e6 100644 --- a/gcc/ada/g-trasym.ads +++ b/gcc/ada/g-trasym.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -41,8 +40,10 @@ -- is used to build a symbolic traceback. -- -- In order to retrieve symbolic information, functions in this package will --- read on disk all the debug information of the current executable and load --- them in memory, causing a significant cpu and memory overhead. +-- read on disk all the debug information of the executable file (found via +-- Argument (0), so any path information needed to read the executable file +-- need to be provided when launching the executable), and load then in +-- memory, causing a significant cpu and memory overhead. -- -- This package is not intended to be used within a shared library, -- symbolic tracebacks are only supported for the main executable diff --git a/gcc/ada/get_targ.adb b/gcc/ada/get_targ.adb index 83ef3d61dfb..bdd68767a41 100644 --- a/gcc/ada/get_targ.adb +++ b/gcc/ada/get_targ.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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- -- @@ -58,4 +57,13 @@ package body Get_Targ is end if; end Width_From_Size; + ----------------------------- + -- Get_Max_Unaligned_Field -- + ----------------------------- + + function Get_Max_Unaligned_Field return Pos is + begin + return 64; -- Can be different on some targets (e.g., AAMP) + end Get_Max_Unaligned_Field; + end Get_Targ; diff --git a/gcc/ada/get_targ.ads b/gcc/ada/get_targ.ads index efa604fa621..9d115f081d4 100644 --- a/gcc/ada/get_targ.ads +++ b/gcc/ada/get_targ.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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- -- @@ -26,10 +25,11 @@ ------------------------------------------------------------------------------ -- This package provides an Import to the C functions which provide --- values related to types on the target system. It is only needed for +-- values related to types on the target system. It is only needed for -- exp_dbug and the elaboration of ttypes. --- NOTE: Any changes in this package must be reflected in jgettarg.ads! +-- NOTE: Any changes in this package must be reflected in jgettarg.ads +-- and aa_getta.ads! -- Note that all these values return sizes of C types with corresponding -- names. This allows GNAT to define the corresponding Ada types to have @@ -99,6 +99,10 @@ pragma Preelaborate (Get_Targ); function Get_Strict_Alignment return Nat; pragma Import (C, Get_Strict_Alignment, "get_strict_alignment"); + function Get_Max_Unaligned_Field return Pos; + -- Returns the maximum supported size in bits for a field that is + -- not aligned on a storage unit boundary. + function Width_From_Size (Size : Pos) return Pos; function Digits_From_Size (Size : Pos) return Pos; -- Calculate values for 'Width or 'Digits from 'Size diff --git a/gcc/ada/gnat-style.texi b/gcc/ada/gnat-style.texi index e3b1dc629d4..16267ed610c 100644 --- a/gcc/ada/gnat-style.texi +++ b/gcc/ada/gnat-style.texi @@ -1,5 +1,6 @@ \input texinfo @c -*-texinfo-*- @c %**start of header + @c oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo @c o @c GNAT DOCUMENTATION o @@ -25,7 +26,7 @@ @setfilename gnat-style.info @settitle GNAT Coding Style @dircategory Programming -@direntry +@direntry * gnat-style: (gnat-style). GNAT Coding Style @end direntry @@ -71,7 +72,7 @@ @noindent Most of GNAT is written in Ada using a consistent style to ensure readability of the code. This document has been written to help -maintain this consistent style, while having a large group of developers +maintain this consistent style, while having a large group of developers work on the compiler. @noindent @@ -79,8 +80,8 @@ For the coding style in the C parts of the compiler and run time, see the GNU Coding Guidelines. @noindent -This document is structured after the Ada Reference manual. -Those familiar with that document should be able to quickly +This document is structured after the Ada Reference manual. +Those familiar with that document should be able to quickly lookup style rules for particular constructs. @c ------------------------------------------------------------------------- @@ -94,11 +95,11 @@ lookup style rules for particular constructs. @itemize @bullet @item The character set used should be plain 7-bit ASCII@. -The only separators allowed are space and the end-of-line sequence. -No other control character or format effector (such as HT, VT, FF) +The only separators allowed are space and the end-of-line sequence. +No other control character or format effector (such as HT, VT, FF) should be used. The normal end-of-line sequence is used, which may be LF, CR/LF or CR, -depending on the host system. An optional SUB (16#1A#) may be present as the +depending on the host system. An optional SUB (16#1A#) may be present as the last character in the file on hosts using that character as file terminator. @item @@ -123,15 +124,15 @@ elements, see file @file{style.adb}. @itemize @bullet @item Identifiers will start with an upper case letter, and each letter following -an underscore will be upper case. Short acronyms may be all upper case. -All other letters are lower case. +an underscore will be upper case. Short acronyms may be all upper case. +All other letters are lower case. An exception is for identifiers matching a foreign language. In particular, we use all lower case where appropriate for C@. @item -Use underscores to separate words in an identifier. +Use underscores to separate words in an identifier. -@item Try to limit your use of abbreviations in identifiers. +@item Try to limit your use of abbreviations in identifiers. It is ok to make a few abbreviations, explain what they mean, and then use them frequently, but don't use lots of obscure abbreviations. An example is the @code{ALI} word which stands for Ada Library @@ -145,7 +146,7 @@ used in entity names. @item Don't use the variable @samp{I}, use @samp{J} instead, @samp{I} is too easily mixed up with @samp{1} in some fonts. Similarly don't use the -variable @samp{O}, which is too easily mixed up with @samp{0}. +variable @samp{O}, which is too easily mixed up with the number @samp{0}. @end itemize @subsection Numeric Literals @@ -185,8 +186,8 @@ capitalized when used as @syntax{attribute_designator}. Comment start with @samp{-- } (i.e.@: @samp{--} followed by two spaces). The only exception to this rule (i.e.@: one space is tolerated) is when the comment ends with @samp{ --}. -It also accepted to have only one space between @samp{--} and the start -of the comment when the comment is at the end of a line, +It also accepted to have only one space between @samp{--} and the start +of the comment when the comment is at the end of a line, after some Ada code. @item @@ -272,18 +273,18 @@ should be aligned. @end smallexample @item -Declarations should be grouped in a logical order. +Declarations should be grouped in a logical order. Related groups of declarations may be preceded by a header comment. @item All local subprograms in a subprogram or package body should be declared -before the first local subprogram body. +before the first local subprogram body. @item Don't declare local entities that hide global entities. @item -Don't declare multiple variables in one declaration that spans lines. +Don't declare multiple variables in one declaration that spans lines. Start a new declaration on each line, instead. @item @@ -292,7 +293,7 @@ comments of a sort. So don't choose terse names, but look for names that give useful information instead. @item -Local names can be shorter, because they are used only within +Local names can be shorter, because they are used only within one context, where comments explain their purpose. @end itemize @@ -306,7 +307,7 @@ one context, where comments explain their purpose. @itemize @bullet @item -Every operator must be surrounded by spaces, except for the +Every operator must be surrounded by spaces, except for the exponentiation operator. @smallexample @@ -317,7 +318,8 @@ exponentiation operator. When folding a long line, fold before an operator, not after. @item -Use parentheses where they make the intended order of evaluation clearer: +Use parentheses where they clarify the intended association of operands +with operators: @smallexample (A / B) * C @end smallexample @@ -392,7 +394,7 @@ following is allowed: @end smallexample @item -Conditions should use short-circuit forms (@samp{and then}, +Conditions should use short-circuit forms (@samp{and then}, @samp{or else}). @item @@ -552,7 +554,7 @@ format: begin @end smallexample -Note that the name in the header is preceded by a single space, +Note that the name in the header is preceded by a single space, not two spaces as for other comments. @item @@ -564,8 +566,8 @@ preceded by a blank line. @item If the declarations in a subprogram contain at least one nested -subprogram body, then just before the of the enclosing subprogram -@samp{begin}, there is a line: +subprogram body, then just before the @samp{begin} of the enclosing +subprogram, there is a line: @smallexample -- @r{Start of processing for @var{Enclosing_Subprogram}} @@ -636,8 +638,8 @@ Filenames should be 8 characters or less followed by the @samp{.adb} extension for a body or @samp{.ads} for a spec. @item -Unit names should be distinct when krunched to 8 characters -(see @file{krunch.ads}) and the filenames should match the unit name, +Unit names should be distinct when krunched to 8 characters +(see @file{krunch.ads}) and the filenames should match the unit name, except that they are all lower case. @end itemize diff --git a/gcc/ada/gnat.ads b/gcc/ada/gnat.ads index 285131ed1f9..2026ecd704d 100644 --- a/gcc/ada/gnat.ads +++ b/gcc/ada/gnat.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- @@ -28,7 +27,7 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index af1c68447d5..09a34c6d8a2 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnat1drv.ads b/gcc/ada/gnat1drv.ads index 982a68badcf..3399d0c9c1f 100644 --- a/gcc/ada/gnat1drv.ads +++ b/gcc/ada/gnat1drv.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 603a71455b0..3a377773145 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatbind.ads b/gcc/ada/gnatbind.ads index 135767d1490..6568e6780da 100644 --- a/gcc/ada/gnatbind.ads +++ b/gcc/ada/gnatbind.ads @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatbl.c b/gcc/ada/gnatbl.c index ee46eb4cc7d..72f85169fd8 100644 --- a/gcc/ada/gnatbl.c +++ b/gcc/ada/gnatbl.c @@ -6,7 +6,6 @@ * * * C Implementation File * * * - * * * Copyright (C) 1992-2001 Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb index 8db46ad7560..7a535d3d837 100644 --- a/gcc/ada/gnatchop.adb +++ b/gcc/ada/gnatchop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index f138fe22950..b754aff0245 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatcmd.ads b/gcc/ada/gnatcmd.ads index 9fc0cf6602f..e7b9578f19a 100644 --- a/gcc/ada/gnatcmd.ads +++ b/gcc/ada/gnatcmd.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatdll.adb b/gcc/ada/gnatdll.adb index 5dc81541e63..74c004b5958 100644 --- a/gcc/ada/gnatdll.adb +++ b/gcc/ada/gnatdll.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatfind.adb b/gcc/ada/gnatfind.adb index 11bc21795ed..0b34519abe6 100644 --- a/gcc/ada/gnatfind.adb +++ b/gcc/ada/gnatfind.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatkr.adb b/gcc/ada/gnatkr.adb index 94e15b8dd15..f99b51ec6d6 100644 --- a/gcc/ada/gnatkr.adb +++ b/gcc/ada/gnatkr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatkr.ads b/gcc/ada/gnatkr.ads index 0ac9f03ffd3..4d960ec4b28 100644 --- a/gcc/ada/gnatkr.ads +++ b/gcc/ada/gnatkr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatlbr.adb b/gcc/ada/gnatlbr.adb index 1cfb7cfd19a..d5d0c8aaf5e 100644 --- a/gcc/ada/gnatlbr.adb +++ b/gcc/ada/gnatlbr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb index f235958d6ca..6fa413a19d9 100644 --- a/gcc/ada/gnatlink.adb +++ b/gcc/ada/gnatlink.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatlink.ads b/gcc/ada/gnatlink.ads index 0efb15c4f55..8942a6ed427 100644 --- a/gcc/ada/gnatlink.ads +++ b/gcc/ada/gnatlink.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb index c69bd1ca918..c14def5bda9 100644 --- a/gcc/ada/gnatls.adb +++ b/gcc/ada/gnatls.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatls.ads b/gcc/ada/gnatls.ads index eca83187ff4..347d79b9093 100644 --- a/gcc/ada/gnatls.ads +++ b/gcc/ada/gnatls.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatmake.adb b/gcc/ada/gnatmake.adb index e54a37346be..34f51594f50 100644 --- a/gcc/ada/gnatmake.adb +++ b/gcc/ada/gnatmake.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatmake.ads b/gcc/ada/gnatmake.ads index e6caaf80f75..fb5d82766f4 100644 --- a/gcc/ada/gnatmake.ads +++ b/gcc/ada/gnatmake.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatmem.adb b/gcc/ada/gnatmem.adb index fce28f3effb..2c5ffeb9de0 100644 --- a/gcc/ada/gnatmem.adb +++ b/gcc/ada/gnatmem.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2002, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatname.adb b/gcc/ada/gnatname.adb index a0e38774c79..831edd50f17 100644 --- a/gcc/ada/gnatname.adb +++ b/gcc/ada/gnatname.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatname.ads b/gcc/ada/gnatname.ads index 406f2873efe..3c69763a30c 100644 --- a/gcc/ada/gnatname.ads +++ b/gcc/ada/gnatname.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatprep.adb b/gcc/ada/gnatprep.adb index 2d88e542666..2502db7cee2 100644 --- a/gcc/ada/gnatprep.adb +++ b/gcc/ada/gnatprep.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatprep.ads b/gcc/ada/gnatprep.ads index 0195f272f59..0808d2cff9c 100644 --- a/gcc/ada/gnatprep.ads +++ b/gcc/ada/gnatprep.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatpsta.adb b/gcc/ada/gnatpsta.adb index a8d6195b59c..12a38fcf6a8 100644 --- a/gcc/ada/gnatpsta.adb +++ b/gcc/ada/gnatpsta.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatvsn.adb b/gcc/ada/gnatvsn.adb index 2555f7a570c..ebada983ed8 100644 --- a/gcc/ada/gnatvsn.adb +++ b/gcc/ada/gnatvsn.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatvsn.ads b/gcc/ada/gnatvsn.ads index b15c10c403f..a6b8371c31f 100644 --- a/gcc/ada/gnatvsn.ads +++ b/gcc/ada/gnatvsn.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/gnatxref.adb b/gcc/ada/gnatxref.adb index 9e03e6cbd70..3f688738fcb 100644 --- a/gcc/ada/gnatxref.adb +++ b/gcc/ada/gnatxref.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/hlo.adb b/gcc/ada/hlo.adb index 35ae613a1f5..ab9fda46dab 100644 --- a/gcc/ada/hlo.adb +++ b/gcc/ada/hlo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/hlo.ads b/gcc/ada/hlo.ads index 9daecfbe5e2..09a0c0f695b 100644 --- a/gcc/ada/hlo.ads +++ b/gcc/ada/hlo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/hostparm.ads b/gcc/ada/hostparm.ads index bfc030ffc34..688dd0b6527 100644 --- a/gcc/ada/hostparm.ads +++ b/gcc/ada/hostparm.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-c.adb b/gcc/ada/i-c.adb index 85f5f80b822..65e40b29710 100644 --- a/gcc/ada/i-c.adb +++ b/gcc/ada/i-c.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-c.ads b/gcc/ada/i-c.ads index 509ad416705..48b37656b72 100644 --- a/gcc/ada/i-c.ads +++ b/gcc/ada/i-c.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/i-cexten.ads b/gcc/ada/i-cexten.ads index d3f40b65f9a..e1203ff9c49 100644 --- a/gcc/ada/i-cexten.ads +++ b/gcc/ada/i-cexten.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-cobol.adb b/gcc/ada/i-cobol.adb index a542e427f49..b25028e9ec7 100644 --- a/gcc/ada/i-cobol.adb +++ b/gcc/ada/i-cobol.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-cobol.ads b/gcc/ada/i-cobol.ads index 47b734699b9..d6d7b1e58dc 100644 --- a/gcc/ada/i-cobol.ads +++ b/gcc/ada/i-cobol.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (ASCII Version) -- -- -- --- -- -- Copyright (C) 1993-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/i-cpoint.adb b/gcc/ada/i-cpoint.adb index 1e0599df46f..5f7891c1304 100644 --- a/gcc/ada/i-cpoint.adb +++ b/gcc/ada/i-cpoint.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-cpoint.ads b/gcc/ada/i-cpoint.ads index 70c8df2dfe2..67c610c1bcd 100644 --- a/gcc/ada/i-cpoint.ads +++ b/gcc/ada/i-cpoint.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1993-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/i-cpp.adb b/gcc/ada/i-cpp.adb index 18a48082454..42ab384e18b 100644 --- a/gcc/ada/i-cpp.adb +++ b/gcc/ada/i-cpp.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-cpp.ads b/gcc/ada/i-cpp.ads index fa6535d09c9..6372fb5db3b 100644 --- a/gcc/ada/i-cpp.ads +++ b/gcc/ada/i-cpp.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-cstrea.adb b/gcc/ada/i-cstrea.adb index 2ad63890b96..9d322d42906 100644 --- a/gcc/ada/i-cstrea.adb +++ b/gcc/ada/i-cstrea.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-cstrea.ads b/gcc/ada/i-cstrea.ads index 66b289e2bf6..c6227298381 100644 --- a/gcc/ada/i-cstrea.ads +++ b/gcc/ada/i-cstrea.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-cstrin.adb b/gcc/ada/i-cstrin.adb index 0f163618262..6849db2ee91 100644 --- a/gcc/ada/i-cstrin.adb +++ b/gcc/ada/i-cstrin.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-cstrin.ads b/gcc/ada/i-cstrin.ads index 163901cad37..9ec673c724a 100644 --- a/gcc/ada/i-cstrin.ads +++ b/gcc/ada/i-cstrin.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1993-2000 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/i-fortra.adb b/gcc/ada/i-fortra.adb index bbbfd360b2b..fce1adbcdb2 100644 --- a/gcc/ada/i-fortra.adb +++ b/gcc/ada/i-fortra.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-fortra.ads b/gcc/ada/i-fortra.ads index 4b3dcc96485..817b5c749d2 100644 --- a/gcc/ada/i-fortra.ads +++ b/gcc/ada/i-fortra.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/i-os2err.ads b/gcc/ada/i-os2err.ads index d5aded39ab1..ce3f70849a8 100644 --- a/gcc/ada/i-os2err.ads +++ b/gcc/ada/i-os2err.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-os2lib.adb b/gcc/ada/i-os2lib.adb index c123725a5b2..c66a08e82ab 100644 --- a/gcc/ada/i-os2lib.adb +++ b/gcc/ada/i-os2lib.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1993-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-os2lib.ads b/gcc/ada/i-os2lib.ads index 5a19a51c223..302e0075e62 100644 --- a/gcc/ada/i-os2lib.ads +++ b/gcc/ada/i-os2lib.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1993-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-os2syn.ads b/gcc/ada/i-os2syn.ads index 4c686d5da8e..2f44c891654 100644 --- a/gcc/ada/i-os2syn.ads +++ b/gcc/ada/i-os2syn.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1993-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-os2thr.ads b/gcc/ada/i-os2thr.ads index c4f2eccf81f..7958a394f63 100644 --- a/gcc/ada/i-os2thr.ads +++ b/gcc/ada/i-os2thr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1993-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-pacdec.adb b/gcc/ada/i-pacdec.adb index c0afc390283..9d69790bc6c 100644 --- a/gcc/ada/i-pacdec.adb +++ b/gcc/ada/i-pacdec.adb @@ -7,7 +7,6 @@ -- B o d y -- -- (Version for IBM Mainframe Packed Decimal Format) -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-pacdec.ads b/gcc/ada/i-pacdec.ads index 165dca827b3..0cf952889a8 100644 --- a/gcc/ada/i-pacdec.ads +++ b/gcc/ada/i-pacdec.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (Version for IBM Mainframe Packed Decimal Format) -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/i-vxwork.ads b/gcc/ada/i-vxwork.ads index 6a534a25065..1ab458558a8 100644 --- a/gcc/ada/i-vxwork.ads +++ b/gcc/ada/i-vxwork.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999 - 2002 Ada Core Technologies, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb index 1c30177425f..248d3d3d55f 100644 --- a/gcc/ada/impunit.adb +++ b/gcc/ada/impunit.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/impunit.ads b/gcc/ada/impunit.ads index a3252ae08fc..02917ccd8d8 100644 --- a/gcc/ada/impunit.ads +++ b/gcc/ada/impunit.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index cb589dba37d..2b2769069eb 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/inline.ads b/gcc/ada/inline.ads index 2240abeeda4..b414582ec0b 100644 --- a/gcc/ada/inline.ads +++ b/gcc/ada/inline.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/interfac.ads b/gcc/ada/interfac.ads index b4be0dd8812..10ade18b73e 100644 --- a/gcc/ada/interfac.ads +++ b/gcc/ada/interfac.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/ioexcept.ads b/gcc/ada/ioexcept.ads index 32c26048bea..b534679ecb2 100644 --- a/gcc/ada/ioexcept.ads +++ b/gcc/ada/ioexcept.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/itypes.adb b/gcc/ada/itypes.adb index ff0f035b02f..7c973347538 100644 --- a/gcc/ada/itypes.adb +++ b/gcc/ada/itypes.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/itypes.ads b/gcc/ada/itypes.ads index 2dc7cacc8ba..a2e25ed5319 100644 --- a/gcc/ada/itypes.ads +++ b/gcc/ada/itypes.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/krunch.adb b/gcc/ada/krunch.adb index b9d0627ca9c..da0929c49d4 100644 --- a/gcc/ada/krunch.adb +++ b/gcc/ada/krunch.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/krunch.ads b/gcc/ada/krunch.ads index 893f0a076ac..2cf94360cee 100644 --- a/gcc/ada/krunch.ads +++ b/gcc/ada/krunch.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index a08d02e32a3..0128bf267d3 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/layout.ads b/gcc/ada/layout.ads index e14ac6b15f6..02d2a139477 100644 --- a/gcc/ada/layout.ads +++ b/gcc/ada/layout.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib-list.adb b/gcc/ada/lib-list.adb index 803c13f0309..ccc667ea499 100644 --- a/gcc/ada/lib-list.adb +++ b/gcc/ada/lib-list.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb index ab0fab91984..5943ffe1b79 100644 --- a/gcc/ada/lib-load.adb +++ b/gcc/ada/lib-load.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib-load.ads b/gcc/ada/lib-load.ads index e676ed1d6a5..0d8c9d824b0 100644 --- a/gcc/ada/lib-load.ads +++ b/gcc/ada/lib-load.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib-sort.adb b/gcc/ada/lib-sort.adb index 42352e04bfc..d8b6d71a3b4 100644 --- a/gcc/ada/lib-sort.adb +++ b/gcc/ada/lib-sort.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib-util.adb b/gcc/ada/lib-util.adb index baf23a635ee..0ff2c1d123b 100644 --- a/gcc/ada/lib-util.adb +++ b/gcc/ada/lib-util.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib-util.ads b/gcc/ada/lib-util.ads index cf24f5b99dc..ecb690f7206 100644 --- a/gcc/ada/lib-util.ads +++ b/gcc/ada/lib-util.ads @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 9c0b4ad250e..254fa711128 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib-writ.ads b/gcc/ada/lib-writ.ads index 6fd48528b34..a2ec16a238a 100644 --- a/gcc/ada/lib-writ.ads +++ b/gcc/ada/lib-writ.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index 1a27736ba4c..dd1e61cbd3f 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib-xref.ads b/gcc/ada/lib-xref.ads index 222a7786e2c..6f9ded363ff 100644 --- a/gcc/ada/lib-xref.ads +++ b/gcc/ada/lib-xref.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index abfeb362c0b..b58fa7e78c9 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/lib.ads b/gcc/ada/lib.ads index 62d6796470a..2811749fc03 100644 --- a/gcc/ada/lib.ads +++ b/gcc/ada/lib.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/live.adb b/gcc/ada/live.adb index 9d0dfbe2a9c..51a58f635ab 100644 --- a/gcc/ada/live.adb +++ b/gcc/ada/live.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/live.ads b/gcc/ada/live.ads index b73cc637dbc..6dec6e3eb04 100644 --- a/gcc/ada/live.ads +++ b/gcc/ada/live.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/machcode.ads b/gcc/ada/machcode.ads index 8a29920e6aa..b920d8196a3 100644 --- a/gcc/ada/machcode.ads +++ b/gcc/ada/machcode.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 07791f44774..2408a879012 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/make.ads b/gcc/ada/make.ads index 2ee06f435c5..ea586e2dcd2 100644 --- a/gcc/ada/make.ads +++ b/gcc/ada/make.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/makeusg.adb b/gcc/ada/makeusg.adb index 8ef255a3690..edacc2d508e 100644 --- a/gcc/ada/makeusg.adb +++ b/gcc/ada/makeusg.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/makeusg.ads b/gcc/ada/makeusg.ads index 97e0b5330b0..b0209bbd6e9 100644 --- a/gcc/ada/makeusg.ads +++ b/gcc/ada/makeusg.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/math_lib.adb b/gcc/ada/math_lib.adb index f6d01d8e017..64fed359913 100644 --- a/gcc/ada/math_lib.adb +++ b/gcc/ada/math_lib.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mdll-fil.adb b/gcc/ada/mdll-fil.adb index b9c506a5b2f..1c9c9ff23c8 100644 --- a/gcc/ada/mdll-fil.adb +++ b/gcc/ada/mdll-fil.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mdll-fil.ads b/gcc/ada/mdll-fil.ads index 70a4f2bf7cd..06e6188b4c5 100644 --- a/gcc/ada/mdll-fil.ads +++ b/gcc/ada/mdll-fil.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mdll-utl.adb b/gcc/ada/mdll-utl.adb index f680aefb39c..c7fb1554866 100644 --- a/gcc/ada/mdll-utl.adb +++ b/gcc/ada/mdll-utl.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mdll-utl.ads b/gcc/ada/mdll-utl.ads index 24042f28749..55a70def422 100644 --- a/gcc/ada/mdll-utl.ads +++ b/gcc/ada/mdll-utl.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mdll.adb b/gcc/ada/mdll.adb index f33f49940d7..b542eeef2a9 100644 --- a/gcc/ada/mdll.adb +++ b/gcc/ada/mdll.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mdll.ads b/gcc/ada/mdll.ads index 3c40b1f4d39..5ca9f01a70e 100644 --- a/gcc/ada/mdll.ads +++ b/gcc/ada/mdll.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/memroot.adb b/gcc/ada/memroot.adb index 1fa7211e767..2779476a160 100644 --- a/gcc/ada/memroot.adb +++ b/gcc/ada/memroot.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2002 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/memroot.ads b/gcc/ada/memroot.ads index 5df16ad55eb..03399109657 100644 --- a/gcc/ada/memroot.ads +++ b/gcc/ada/memroot.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001 Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/memtrack.adb b/gcc/ada/memtrack.adb index 4ab9d3a9c9e..f23f76c3eee 100644 --- a/gcc/ada/memtrack.adb +++ b/gcc/ada/memtrack.adb @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/mlib-fil.adb b/gcc/ada/mlib-fil.adb index 1a232cab018..83c59f25e90 100644 --- a/gcc/ada/mlib-fil.adb +++ b/gcc/ada/mlib-fil.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mlib-fil.ads b/gcc/ada/mlib-fil.ads index 12e946adc67..04e529907e3 100644 --- a/gcc/ada/mlib-fil.ads +++ b/gcc/ada/mlib-fil.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mlib-prj.adb b/gcc/ada/mlib-prj.adb index ea8dfb75da0..92d93adb6e4 100644 --- a/gcc/ada/mlib-prj.adb +++ b/gcc/ada/mlib-prj.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mlib-prj.ads b/gcc/ada/mlib-prj.ads index 6db0ddc886b..c6d8d8fddd3 100644 --- a/gcc/ada/mlib-prj.ads +++ b/gcc/ada/mlib-prj.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mlib-tgt.adb b/gcc/ada/mlib-tgt.adb index 00fabbd4bfa..c5ec4fa59e8 100644 --- a/gcc/ada/mlib-tgt.adb +++ b/gcc/ada/mlib-tgt.adb @@ -7,7 +7,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mlib-tgt.ads b/gcc/ada/mlib-tgt.ads index f1de7e3e790..a84a989946e 100644 --- a/gcc/ada/mlib-tgt.ads +++ b/gcc/ada/mlib-tgt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mlib-utl.adb b/gcc/ada/mlib-utl.adb index 7b5fa0283fe..06ef897d069 100644 --- a/gcc/ada/mlib-utl.adb +++ b/gcc/ada/mlib-utl.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2002, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mlib-utl.ads b/gcc/ada/mlib-utl.ads index 72106a4eea6..41bf3de3c15 100644 --- a/gcc/ada/mlib-utl.ads +++ b/gcc/ada/mlib-utl.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001-2002, Ada Core Technologies, Inc -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb index 801181c72f2..1b2997fadc6 100644 --- a/gcc/ada/mlib.adb +++ b/gcc/ada/mlib.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2001, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/mlib.ads b/gcc/ada/mlib.ads index 6e52a7d2a27..396c0fbed1c 100644 --- a/gcc/ada/mlib.ads +++ b/gcc/ada/mlib.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb index fac2a94fca0..22f3634b974 100644 --- a/gcc/ada/namet.adb +++ b/gcc/ada/namet.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/namet.ads b/gcc/ada/namet.ads index e14fc267774..092be4a7cc1 100644 --- a/gcc/ada/namet.ads +++ b/gcc/ada/namet.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/nlists.adb b/gcc/ada/nlists.adb index 10065a97388..7a2d2fd407b 100644 --- a/gcc/ada/nlists.adb +++ b/gcc/ada/nlists.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/nlists.ads b/gcc/ada/nlists.ads index f2355e35a2a..2e89ff4ceb9 100644 --- a/gcc/ada/nlists.ads +++ b/gcc/ada/nlists.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/opt.adb b/gcc/ada/opt.adb index f0567729fb3..777b808d781 100644 --- a/gcc/ada/opt.adb +++ b/gcc/ada/opt.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index c0b1b050f84..83601c4c09f 100644 --- a/gcc/ada/opt.ads +++ b/gcc/ada/opt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/osint-b.adb b/gcc/ada/osint-b.adb index cebdc97ec48..fc4941e9567 100644 --- a/gcc/ada/osint-b.adb +++ b/gcc/ada/osint-b.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/osint-b.ads b/gcc/ada/osint-b.ads index ea03764ffcd..807082f5c05 100644 --- a/gcc/ada/osint-b.ads +++ b/gcc/ada/osint-b.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/osint-c.adb b/gcc/ada/osint-c.adb index 3eb6e0bcd3a..c7fd69569fa 100644 --- a/gcc/ada/osint-c.adb +++ b/gcc/ada/osint-c.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/osint-c.ads b/gcc/ada/osint-c.ads index 78170d6ac9c..62dac396dc2 100644 --- a/gcc/ada/osint-c.ads +++ b/gcc/ada/osint-c.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/osint-l.adb b/gcc/ada/osint-l.adb index adf4d5074d5..dd63e0e795d 100644 --- a/gcc/ada/osint-l.adb +++ b/gcc/ada/osint-l.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/osint-l.ads b/gcc/ada/osint-l.ads index 915d59dd10b..f5c5accf293 100644 --- a/gcc/ada/osint-l.ads +++ b/gcc/ada/osint-l.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/osint-m.adb b/gcc/ada/osint-m.adb index 1c77dc89def..e0ea4d61713 100644 --- a/gcc/ada/osint-m.adb +++ b/gcc/ada/osint-m.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/osint-m.ads b/gcc/ada/osint-m.ads index e904442a11b..e4056ac6294 100644 --- a/gcc/ada/osint-m.ads +++ b/gcc/ada/osint-m.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 8980fa9b5b2..5d90b1dd549 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads index e637b5ee3a3..21505efdf14 100644 --- a/gcc/ada/osint.ads +++ b/gcc/ada/osint.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb index 7ab1573dd56..78f80f45c6f 100644 --- a/gcc/ada/output.adb +++ b/gcc/ada/output.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/output.ads b/gcc/ada/output.ads index 2ade9b2d2b3..a62a5d19dbe 100644 --- a/gcc/ada/output.ads +++ b/gcc/ada/output.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch10.adb b/gcc/ada/par-ch10.adb index 0f52757dd6b..866feedd91f 100644 --- a/gcc/ada/par-ch10.adb +++ b/gcc/ada/par-ch10.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch11.adb b/gcc/ada/par-ch11.adb index 53560050cff..c475cc470a8 100644 --- a/gcc/ada/par-ch11.adb +++ b/gcc/ada/par-ch11.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb index 88b20b7f447..2b9adaf73ae 100644 --- a/gcc/ada/par-ch12.adb +++ b/gcc/ada/par-ch12.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch13.adb b/gcc/ada/par-ch13.adb index 524bd099749..cfcc3807fc0 100644 --- a/gcc/ada/par-ch13.adb +++ b/gcc/ada/par-ch13.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch2.adb b/gcc/ada/par-ch2.adb index 0c960ffedad..ed96a7275b2 100644 --- a/gcc/ada/par-ch2.adb +++ b/gcc/ada/par-ch2.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index bce40721c45..983ca8fe888 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index f05390b332f..c9244a2c354 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index 3d3341546f4..e201d02b29d 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index 08c22582ca8..52ccea85d22 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch7.adb b/gcc/ada/par-ch7.adb index f1a367761a3..4363a649f14 100644 --- a/gcc/ada/par-ch7.adb +++ b/gcc/ada/par-ch7.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch8.adb b/gcc/ada/par-ch8.adb index 3f5186fa739..5b1cd0a8f6f 100644 --- a/gcc/ada/par-ch8.adb +++ b/gcc/ada/par-ch8.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-ch9.adb b/gcc/ada/par-ch9.adb index b9afa949586..f80aadd2f61 100644 --- a/gcc/ada/par-ch9.adb +++ b/gcc/ada/par-ch9.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-endh.adb b/gcc/ada/par-endh.adb index 18eb6cac9a6..57561aab673 100644 --- a/gcc/ada/par-endh.adb +++ b/gcc/ada/par-endh.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-labl.adb b/gcc/ada/par-labl.adb index 4f8bcd85101..f3fa8f5292d 100644 --- a/gcc/ada/par-labl.adb +++ b/gcc/ada/par-labl.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-load.adb b/gcc/ada/par-load.adb index c09b47cf98e..2b5e5cf9cfb 100644 --- a/gcc/ada/par-load.adb +++ b/gcc/ada/par-load.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-prag.adb b/gcc/ada/par-prag.adb index 4184e0d7150..927664ad5a2 100644 --- a/gcc/ada/par-prag.adb +++ b/gcc/ada/par-prag.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-sync.adb b/gcc/ada/par-sync.adb index 0e6417ab7e1..a9646b0f7c3 100644 --- a/gcc/ada/par-sync.adb +++ b/gcc/ada/par-sync.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-tchk.adb b/gcc/ada/par-tchk.adb index 7cc850f034d..cff60de5000 100644 --- a/gcc/ada/par-tchk.adb +++ b/gcc/ada/par-tchk.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb index e21caaa92c6..3782ae62222 100644 --- a/gcc/ada/par-util.adb +++ b/gcc/ada/par-util.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 96309e09b8a..412759e80bf 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/par.ads b/gcc/ada/par.ads index 2f057d10ca5..7c5ee0879c5 100644 --- a/gcc/ada/par.ads +++ b/gcc/ada/par.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-attr.adb b/gcc/ada/prj-attr.adb index ade0b618f0f..a7a0125dd0c 100644 --- a/gcc/ada/prj-attr.adb +++ b/gcc/ada/prj-attr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-attr.ads b/gcc/ada/prj-attr.ads index c3004740348..c19061f36f3 100644 --- a/gcc/ada/prj-attr.ads +++ b/gcc/ada/prj-attr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-com.adb b/gcc/ada/prj-com.adb index 7d867067bb1..5c37b185bd4 100644 --- a/gcc/ada/prj-com.adb +++ b/gcc/ada/prj-com.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-com.ads b/gcc/ada/prj-com.ads index fe86c6649cc..98baa446bbd 100644 --- a/gcc/ada/prj-com.ads +++ b/gcc/ada/prj-com.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-dect.adb b/gcc/ada/prj-dect.adb index ca5f5483ab6..37513fe986b 100644 --- a/gcc/ada/prj-dect.adb +++ b/gcc/ada/prj-dect.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-dect.ads b/gcc/ada/prj-dect.ads index 88eca538db6..fdf8e94a378 100644 --- a/gcc/ada/prj-dect.ads +++ b/gcc/ada/prj-dect.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb index 392702196c0..3faf0814b3e 100644 --- a/gcc/ada/prj-env.adb +++ b/gcc/ada/prj-env.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads index 22357d17d6f..ffcc39e4a23 100644 --- a/gcc/ada/prj-env.ads +++ b/gcc/ada/prj-env.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-ext.adb b/gcc/ada/prj-ext.adb index 424ab3201b7..0f9939b3219 100644 --- a/gcc/ada/prj-ext.adb +++ b/gcc/ada/prj-ext.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-ext.ads b/gcc/ada/prj-ext.ads index 4bb6b57405a..f234ea0f5e6 100644 --- a/gcc/ada/prj-ext.ads +++ b/gcc/ada/prj-ext.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-makr.adb b/gcc/ada/prj-makr.adb index 850d3eaa7ab..8278910825e 100644 --- a/gcc/ada/prj-makr.adb +++ b/gcc/ada/prj-makr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-makr.ads b/gcc/ada/prj-makr.ads index 7c0b09d4fc5..868e9a91876 100644 --- a/gcc/ada/prj-makr.ads +++ b/gcc/ada/prj-makr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 1162d4c037f..38e5c579a47 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-nmsc.ads b/gcc/ada/prj-nmsc.ads index 0d6efba316d..33f38094139 100644 --- a/gcc/ada/prj-nmsc.ads +++ b/gcc/ada/prj-nmsc.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-pars.adb b/gcc/ada/prj-pars.adb index 8f7e40409a4..426be05e6de 100644 --- a/gcc/ada/prj-pars.adb +++ b/gcc/ada/prj-pars.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-pars.ads b/gcc/ada/prj-pars.ads index 8b6889b11a3..a928d3a5e29 100644 --- a/gcc/ada/prj-pars.ads +++ b/gcc/ada/prj-pars.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb index 360c6052811..114f18539b1 100644 --- a/gcc/ada/prj-part.adb +++ b/gcc/ada/prj-part.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-part.ads b/gcc/ada/prj-part.ads index daa90ddc510..c84e61275ca 100644 --- a/gcc/ada/prj-part.ads +++ b/gcc/ada/prj-part.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-pp.adb b/gcc/ada/prj-pp.adb index b90ba3e0c8d..a6c243dece3 100644 --- a/gcc/ada/prj-pp.adb +++ b/gcc/ada/prj-pp.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-pp.ads b/gcc/ada/prj-pp.ads index 7d82b42289d..b43c9a3498a 100644 --- a/gcc/ada/prj-pp.ads +++ b/gcc/ada/prj-pp.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb index ec7a0fa9ddf..8ad23289b31 100644 --- a/gcc/ada/prj-proc.adb +++ b/gcc/ada/prj-proc.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-proc.ads b/gcc/ada/prj-proc.ads index bda95ca353c..74845c3fe5a 100644 --- a/gcc/ada/prj-proc.ads +++ b/gcc/ada/prj-proc.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-strt.adb b/gcc/ada/prj-strt.adb index d6c89ab6fa5..0fda16feceb 100644 --- a/gcc/ada/prj-strt.adb +++ b/gcc/ada/prj-strt.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-strt.ads b/gcc/ada/prj-strt.ads index 2800c4a6273..17b267c24a6 100644 --- a/gcc/ada/prj-strt.ads +++ b/gcc/ada/prj-strt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-tree.adb b/gcc/ada/prj-tree.adb index 9bfa70e4993..a7cff09c236 100644 --- a/gcc/ada/prj-tree.adb +++ b/gcc/ada/prj-tree.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-tree.ads b/gcc/ada/prj-tree.ads index 309bf3d5088..e4c76fd9158 100644 --- a/gcc/ada/prj-tree.ads +++ b/gcc/ada/prj-tree.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb index 02aa6b4487d..15d7360c2a4 100644 --- a/gcc/ada/prj-util.adb +++ b/gcc/ada/prj-util.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj-util.ads b/gcc/ada/prj-util.ads index b8095d87acf..4f1f64d7ad7 100644 --- a/gcc/ada/prj-util.ads +++ b/gcc/ada/prj-util.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index fa642434239..6a2c553bd27 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index 9bb3eb298f3..3ac425fface 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index 602585ca264..f7315dbf242 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/repinfo.ads b/gcc/ada/repinfo.ads index ee6ab65a5e3..02676dc305a 100644 --- a/gcc/ada/repinfo.ads +++ b/gcc/ada/repinfo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index 1893b7c6e02..06f0f9b3d9c 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/restrict.ads b/gcc/ada/restrict.ads index f5d1b6db116..6cbdb17790d 100644 --- a/gcc/ada/restrict.ads +++ b/gcc/ada/restrict.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/rident.ads b/gcc/ada/rident.ads index 24dbbbfe2a8..c82c0fb8d4b 100644 --- a/gcc/ada/rident.ads +++ b/gcc/ada/rident.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index f49b552b3bc..b4876838eb1 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index 4b2c7aaf7f9..8e675c55122 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-addima.adb b/gcc/ada/s-addima.adb index 8ec5bc11025..2df6dbd1e4d 100644 --- a/gcc/ada/s-addima.adb +++ b/gcc/ada/s-addima.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-addima.ads b/gcc/ada/s-addima.ads index b9fe527be6a..ccc299104bb 100644 --- a/gcc/ada/s-addima.ads +++ b/gcc/ada/s-addima.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-arit64.adb b/gcc/ada/s-arit64.adb index 0ee5e7f1be1..6d2790f1959 100644 --- a/gcc/ada/s-arit64.adb +++ b/gcc/ada/s-arit64.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-arit64.ads b/gcc/ada/s-arit64.ads index 0ca3c254fa8..767c145b9d1 100644 --- a/gcc/ada/s-arit64.ads +++ b/gcc/ada/s-arit64.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-assert.adb b/gcc/ada/s-assert.adb index 49c69edb184..09afe0d5e3c 100644 --- a/gcc/ada/s-assert.adb +++ b/gcc/ada/s-assert.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-assert.ads b/gcc/ada/s-assert.ads index 8ae4c15864a..e51663c79cb 100644 --- a/gcc/ada/s-assert.ads +++ b/gcc/ada/s-assert.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-asthan.adb b/gcc/ada/s-asthan.adb index 7718f21f7d4..c6996da4e62 100644 --- a/gcc/ada/s-asthan.adb +++ b/gcc/ada/s-asthan.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-asthan.ads b/gcc/ada/s-asthan.ads index 70f0575a22b..31b3ca3d7c4 100644 --- a/gcc/ada/s-asthan.ads +++ b/gcc/ada/s-asthan.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-atacco.adb b/gcc/ada/s-atacco.adb index 97d96158a09..a249901613c 100644 --- a/gcc/ada/s-atacco.adb +++ b/gcc/ada/s-atacco.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-atacco.ads b/gcc/ada/s-atacco.ads index 2921c9bf8a9..815a731245e 100644 --- a/gcc/ada/s-atacco.ads +++ b/gcc/ada/s-atacco.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/s-auxdec.adb b/gcc/ada/s-auxdec.adb index b94ee1f6914..d29ff62172b 100644 --- a/gcc/ada/s-auxdec.adb +++ b/gcc/ada/s-auxdec.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/Or modify it under -- diff --git a/gcc/ada/s-auxdec.ads b/gcc/ada/s-auxdec.ads index f9529f1fc63..1a602843d1a 100644 --- a/gcc/ada/s-auxdec.ads +++ b/gcc/ada/s-auxdec.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-bitops.adb b/gcc/ada/s-bitops.adb index 370d462abb5..2ec4c3e733f 100644 --- a/gcc/ada/s-bitops.adb +++ b/gcc/ada/s-bitops.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-bitops.ads b/gcc/ada/s-bitops.ads index a6eb80a406c..5f4ed397de2 100644 --- a/gcc/ada/s-bitops.ads +++ b/gcc/ada/s-bitops.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-chepoo.ads b/gcc/ada/s-chepoo.ads index 85d3b1ff7d0..0a7871a1c39 100644 --- a/gcc/ada/s-chepoo.ads +++ b/gcc/ada/s-chepoo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-crc32.adb b/gcc/ada/s-crc32.adb index df8e059cb05..6f7b5050041 100644 --- a/gcc/ada/s-crc32.adb +++ b/gcc/ada/s-crc32.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-crc32.ads b/gcc/ada/s-crc32.ads index e1ba6862d83..0acf0f96061 100644 --- a/gcc/ada/s-crc32.ads +++ b/gcc/ada/s-crc32.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-direio.adb b/gcc/ada/s-direio.adb index 01feeaef937..46a4eace2dd 100644 --- a/gcc/ada/s-direio.adb +++ b/gcc/ada/s-direio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-direio.ads b/gcc/ada/s-direio.ads index 60ed827d62d..fd61fc49574 100644 --- a/gcc/ada/s-direio.ads +++ b/gcc/ada/s-direio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-errrep.adb b/gcc/ada/s-errrep.adb index a9ec887be3c..02e59cec48f 100644 --- a/gcc/ada/s-errrep.adb +++ b/gcc/ada/s-errrep.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2000 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-errrep.ads b/gcc/ada/s-errrep.ads index 1c5ddb9e7ec..daba34e9105 100644 --- a/gcc/ada/s-errrep.ads +++ b/gcc/ada/s-errrep.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-1998 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-except.ads b/gcc/ada/s-except.ads index a1f48e15edb..d7b7f6d2415 100644 --- a/gcc/ada/s-except.ads +++ b/gcc/ada/s-except.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exctab.adb b/gcc/ada/s-exctab.adb index 4800009f720..de9e9bdeadb 100644 --- a/gcc/ada/s-exctab.adb +++ b/gcc/ada/s-exctab.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exctab.ads b/gcc/ada/s-exctab.ads index d61aaf25293..10789dca825 100644 --- a/gcc/ada/s-exctab.ads +++ b/gcc/ada/s-exctab.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exnflt.ads b/gcc/ada/s-exnflt.ads index 952d5946e67..968dac48545 100644 --- a/gcc/ada/s-exnflt.ads +++ b/gcc/ada/s-exnflt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exngen.adb b/gcc/ada/s-exngen.adb index 40fda261421..247a65b7ecd 100644 --- a/gcc/ada/s-exngen.adb +++ b/gcc/ada/s-exngen.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exngen.ads b/gcc/ada/s-exngen.ads index 3099aea8458..fabdf491a33 100644 --- a/gcc/ada/s-exngen.ads +++ b/gcc/ada/s-exngen.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exnint.ads b/gcc/ada/s-exnint.ads index 2cd993d5480..c2f3fea8e1c 100644 --- a/gcc/ada/s-exnint.ads +++ b/gcc/ada/s-exnint.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exnlfl.ads b/gcc/ada/s-exnlfl.ads index 30ca2f07590..7ede56d2ca0 100644 --- a/gcc/ada/s-exnlfl.ads +++ b/gcc/ada/s-exnlfl.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exnlin.ads b/gcc/ada/s-exnlin.ads index 5598ed78a3f..aa249087308 100644 --- a/gcc/ada/s-exnlin.ads +++ b/gcc/ada/s-exnlin.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exnllf.ads b/gcc/ada/s-exnllf.ads index fbd316281ba..20a91d3fb22 100644 --- a/gcc/ada/s-exnllf.ads +++ b/gcc/ada/s-exnllf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exnlli.ads b/gcc/ada/s-exnlli.ads index a2e8a840158..b583bda7008 100644 --- a/gcc/ada/s-exnlli.ads +++ b/gcc/ada/s-exnlli.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exnsfl.ads b/gcc/ada/s-exnsfl.ads index 0ee35232d38..012d7854223 100644 --- a/gcc/ada/s-exnsfl.ads +++ b/gcc/ada/s-exnsfl.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exnsin.ads b/gcc/ada/s-exnsin.ads index a26ef353907..55ea294c2fc 100644 --- a/gcc/ada/s-exnsin.ads +++ b/gcc/ada/s-exnsin.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-exnssi.ads b/gcc/ada/s-exnssi.ads index ed65b3436f4..61cb5a88299 100644 --- a/gcc/ada/s-exnssi.ads +++ b/gcc/ada/s-exnssi.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expflt.ads b/gcc/ada/s-expflt.ads index c579ee036f1..ff5febd5216 100644 --- a/gcc/ada/s-expflt.ads +++ b/gcc/ada/s-expflt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expgen.adb b/gcc/ada/s-expgen.adb index aa3269e300e..dea4340be40 100644 --- a/gcc/ada/s-expgen.adb +++ b/gcc/ada/s-expgen.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expgen.ads b/gcc/ada/s-expgen.ads index 3f203571975..6209abff8a7 100644 --- a/gcc/ada/s-expgen.ads +++ b/gcc/ada/s-expgen.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expint.ads b/gcc/ada/s-expint.ads index badda4fd9bf..7c81a060e2a 100644 --- a/gcc/ada/s-expint.ads +++ b/gcc/ada/s-expint.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-explfl.ads b/gcc/ada/s-explfl.ads index eff09973a30..5ff8bbfc8af 100644 --- a/gcc/ada/s-explfl.ads +++ b/gcc/ada/s-explfl.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-explin.ads b/gcc/ada/s-explin.ads index 9b1d0cd54d7..aa1a442c52f 100644 --- a/gcc/ada/s-explin.ads +++ b/gcc/ada/s-explin.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expllf.ads b/gcc/ada/s-expllf.ads index 124d284aaed..8b91ce23f1a 100644 --- a/gcc/ada/s-expllf.ads +++ b/gcc/ada/s-expllf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-explli.ads b/gcc/ada/s-explli.ads index c6c398e62f5..0f7f46c36ec 100644 --- a/gcc/ada/s-explli.ads +++ b/gcc/ada/s-explli.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expllu.adb b/gcc/ada/s-expllu.adb index 17b91184601..84f2cff7f4a 100644 --- a/gcc/ada/s-expllu.adb +++ b/gcc/ada/s-expllu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expllu.ads b/gcc/ada/s-expllu.ads index 8ca64d4949e..1d8d01df867 100644 --- a/gcc/ada/s-expllu.ads +++ b/gcc/ada/s-expllu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expmod.adb b/gcc/ada/s-expmod.adb index e2c8c184a4b..67c2bf14813 100644 --- a/gcc/ada/s-expmod.adb +++ b/gcc/ada/s-expmod.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expmod.ads b/gcc/ada/s-expmod.ads index 00dabfaf934..d485f15d552 100644 --- a/gcc/ada/s-expmod.ads +++ b/gcc/ada/s-expmod.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expsfl.ads b/gcc/ada/s-expsfl.ads index e7d35e6e1e7..5e05d570828 100644 --- a/gcc/ada/s-expsfl.ads +++ b/gcc/ada/s-expsfl.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expsin.ads b/gcc/ada/s-expsin.ads index a539f23627c..b3baf54c636 100644 --- a/gcc/ada/s-expsin.ads +++ b/gcc/ada/s-expsin.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expssi.ads b/gcc/ada/s-expssi.ads index 6acd83ee74b..d570a9557c0 100644 --- a/gcc/ada/s-expssi.ads +++ b/gcc/ada/s-expssi.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expuns.adb b/gcc/ada/s-expuns.adb index b52f1c35102..1b1987afcde 100644 --- a/gcc/ada/s-expuns.adb +++ b/gcc/ada/s-expuns.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-expuns.ads b/gcc/ada/s-expuns.ads index f17ec4048c2..7c5869ade31 100644 --- a/gcc/ada/s-expuns.ads +++ b/gcc/ada/s-expuns.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-fatflt.ads b/gcc/ada/s-fatflt.ads index 17c31633b52..b69e7d0c25b 100644 --- a/gcc/ada/s-fatflt.ads +++ b/gcc/ada/s-fatflt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-fatgen.adb b/gcc/ada/s-fatgen.adb index 3680fe38789..e3dcadc03d1 100644 --- a/gcc/ada/s-fatgen.adb +++ b/gcc/ada/s-fatgen.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-fatgen.ads b/gcc/ada/s-fatgen.ads index 0176a96d2f1..9db87e056b0 100644 --- a/gcc/ada/s-fatgen.ads +++ b/gcc/ada/s-fatgen.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-fatlfl.ads b/gcc/ada/s-fatlfl.ads index 828733953d9..452373c9775 100644 --- a/gcc/ada/s-fatlfl.ads +++ b/gcc/ada/s-fatlfl.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-fatllf.ads b/gcc/ada/s-fatllf.ads index 18950f95a5a..a4b5e65ada7 100644 --- a/gcc/ada/s-fatllf.ads +++ b/gcc/ada/s-fatllf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-fatsfl.ads b/gcc/ada/s-fatsfl.ads index abcafdde3c0..6c4710a2c2d 100644 --- a/gcc/ada/s-fatsfl.ads +++ b/gcc/ada/s-fatsfl.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-ficobl.ads b/gcc/ada/s-ficobl.ads index be27354aed8..181755960d2 100644 --- a/gcc/ada/s-ficobl.ads +++ b/gcc/ada/s-ficobl.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 4ec66478fe3..dcac47f608e 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-fileio.ads b/gcc/ada/s-fileio.ads index ac075c9620b..54085186c66 100644 --- a/gcc/ada/s-fileio.ads +++ b/gcc/ada/s-fileio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-finimp.adb b/gcc/ada/s-finimp.adb index d7195dab665..bc1a2f18e65 100644 --- a/gcc/ada/s-finimp.adb +++ b/gcc/ada/s-finimp.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-finimp.ads b/gcc/ada/s-finimp.ads index 68dae998393..2e959a238fd 100644 --- a/gcc/ada/s-finimp.ads +++ b/gcc/ada/s-finimp.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-finroo.adb b/gcc/ada/s-finroo.adb index 4db5b38d5c3..15b7df0ed17 100644 --- a/gcc/ada/s-finroo.adb +++ b/gcc/ada/s-finroo.adb @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-finroo.ads b/gcc/ada/s-finroo.ads index cdb0680cbec..32ca1eece0f 100644 --- a/gcc/ada/s-finroo.ads +++ b/gcc/ada/s-finroo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-fore.adb b/gcc/ada/s-fore.adb index 6495f22222d..4cde81ce141 100644 --- a/gcc/ada/s-fore.adb +++ b/gcc/ada/s-fore.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-fore.ads b/gcc/ada/s-fore.ads index 47e07d56d5f..d2fe4a83d26 100644 --- a/gcc/ada/s-fore.ads +++ b/gcc/ada/s-fore.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-gloloc.adb b/gcc/ada/s-gloloc.adb index b1fe1b3138b..cd8b0ff2b36 100644 --- a/gcc/ada/s-gloloc.adb +++ b/gcc/ada/s-gloloc.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-gloloc.ads b/gcc/ada/s-gloloc.ads index 82de4447853..99c57c60022 100644 --- a/gcc/ada/s-gloloc.ads +++ b/gcc/ada/s-gloloc.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgbiu.adb b/gcc/ada/s-imgbiu.adb index 83c24cad8d1..93f6e40ab4f 100644 --- a/gcc/ada/s-imgbiu.adb +++ b/gcc/ada/s-imgbiu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgbiu.ads b/gcc/ada/s-imgbiu.ads index d4f0007c9fc..8093100fdb5 100644 --- a/gcc/ada/s-imgbiu.ads +++ b/gcc/ada/s-imgbiu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgboo.adb b/gcc/ada/s-imgboo.adb index eaf6bf865bd..eb65755dd19 100644 --- a/gcc/ada/s-imgboo.adb +++ b/gcc/ada/s-imgboo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgboo.ads b/gcc/ada/s-imgboo.ads index cbb8c9ae98c..28ed13a1a40 100644 --- a/gcc/ada/s-imgboo.ads +++ b/gcc/ada/s-imgboo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgcha.adb b/gcc/ada/s-imgcha.adb index ae0e06ee1f8..48f04d82352 100644 --- a/gcc/ada/s-imgcha.adb +++ b/gcc/ada/s-imgcha.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgcha.ads b/gcc/ada/s-imgcha.ads index cdb10178360..8721c140015 100644 --- a/gcc/ada/s-imgcha.ads +++ b/gcc/ada/s-imgcha.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgdec.adb b/gcc/ada/s-imgdec.adb index aa9c7684e61..86a64b1ff72 100644 --- a/gcc/ada/s-imgdec.adb +++ b/gcc/ada/s-imgdec.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgdec.ads b/gcc/ada/s-imgdec.ads index a41afd6e072..f013e37e6dc 100644 --- a/gcc/ada/s-imgdec.ads +++ b/gcc/ada/s-imgdec.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgenu.adb b/gcc/ada/s-imgenu.adb index 47ee29ea0d5..17d8e74c624 100644 --- a/gcc/ada/s-imgenu.adb +++ b/gcc/ada/s-imgenu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgenu.ads b/gcc/ada/s-imgenu.ads index 5fb164688c9..9950cf6a76e 100644 --- a/gcc/ada/s-imgenu.ads +++ b/gcc/ada/s-imgenu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgint.adb b/gcc/ada/s-imgint.adb index 88ecf79c3be..94fdb3ace47 100644 --- a/gcc/ada/s-imgint.adb +++ b/gcc/ada/s-imgint.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgint.ads b/gcc/ada/s-imgint.ads index a36b6dce589..b3a289f914e 100644 --- a/gcc/ada/s-imgint.ads +++ b/gcc/ada/s-imgint.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgllb.adb b/gcc/ada/s-imgllb.adb index f0568ec62ee..11193bebd41 100644 --- a/gcc/ada/s-imgllb.adb +++ b/gcc/ada/s-imgllb.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgllb.ads b/gcc/ada/s-imgllb.ads index 6d8bcd2b410..36b69d72cb5 100644 --- a/gcc/ada/s-imgllb.ads +++ b/gcc/ada/s-imgllb.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imglld.adb b/gcc/ada/s-imglld.adb index b849800136d..8c92b93e89c 100644 --- a/gcc/ada/s-imglld.adb +++ b/gcc/ada/s-imglld.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imglld.ads b/gcc/ada/s-imglld.ads index 69b737e6ef4..33d9612fb46 100644 --- a/gcc/ada/s-imglld.ads +++ b/gcc/ada/s-imglld.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imglli.adb b/gcc/ada/s-imglli.adb index f5af2a77cb0..cb1dc4feae0 100644 --- a/gcc/ada/s-imglli.adb +++ b/gcc/ada/s-imglli.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imglli.ads b/gcc/ada/s-imglli.ads index 4d25bb2a241..6b8898b27a5 100644 --- a/gcc/ada/s-imglli.ads +++ b/gcc/ada/s-imglli.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgllu.adb b/gcc/ada/s-imgllu.adb index cd79e5c82f6..f15dceda49f 100644 --- a/gcc/ada/s-imgllu.adb +++ b/gcc/ada/s-imgllu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgllu.ads b/gcc/ada/s-imgllu.ads index 948b6f5e35b..d9902b6ac51 100644 --- a/gcc/ada/s-imgllu.ads +++ b/gcc/ada/s-imgllu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgllw.adb b/gcc/ada/s-imgllw.adb index 17516fbf2b5..7266438287a 100644 --- a/gcc/ada/s-imgllw.adb +++ b/gcc/ada/s-imgllw.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgllw.ads b/gcc/ada/s-imgllw.ads index 675821bc425..d15f05ff8fb 100644 --- a/gcc/ada/s-imgllw.ads +++ b/gcc/ada/s-imgllw.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgrea.adb b/gcc/ada/s-imgrea.adb index 644e54e4384..89bbccef576 100644 --- a/gcc/ada/s-imgrea.adb +++ b/gcc/ada/s-imgrea.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgrea.ads b/gcc/ada/s-imgrea.ads index 5180a5d69df..71879bf70f4 100644 --- a/gcc/ada/s-imgrea.ads +++ b/gcc/ada/s-imgrea.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imguns.adb b/gcc/ada/s-imguns.adb index a434418c40c..1fd8be83f13 100644 --- a/gcc/ada/s-imguns.adb +++ b/gcc/ada/s-imguns.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imguns.ads b/gcc/ada/s-imguns.ads index 2eeb56be9db..2feb67605d8 100644 --- a/gcc/ada/s-imguns.ads +++ b/gcc/ada/s-imguns.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgwch.adb b/gcc/ada/s-imgwch.adb index ef25ce9870e..9765b6abf60 100644 --- a/gcc/ada/s-imgwch.adb +++ b/gcc/ada/s-imgwch.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgwch.ads b/gcc/ada/s-imgwch.ads index 8e7541c7100..f6dc11fb477 100644 --- a/gcc/ada/s-imgwch.ads +++ b/gcc/ada/s-imgwch.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgwiu.adb b/gcc/ada/s-imgwiu.adb index 0d507960de4..91fafa825d8 100644 --- a/gcc/ada/s-imgwiu.adb +++ b/gcc/ada/s-imgwiu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-imgwiu.ads b/gcc/ada/s-imgwiu.ads index 6ce6cdb1a9e..8a4008554a7 100644 --- a/gcc/ada/s-imgwiu.ads +++ b/gcc/ada/s-imgwiu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-inmaop.ads b/gcc/ada/s-inmaop.ads index 3722ff3435b..42538f444d5 100644 --- a/gcc/ada/s-inmaop.ads +++ b/gcc/ada/s-inmaop.ads @@ -7,7 +7,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-interr.adb b/gcc/ada/s-interr.adb index 48a76dae4cc..a0a1ad57552 100644 --- a/gcc/ada/s-interr.adb +++ b/gcc/ada/s-interr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-interr.ads b/gcc/ada/s-interr.ads index be4a16faa66..b91932162d5 100644 --- a/gcc/ada/s-interr.ads +++ b/gcc/ada/s-interr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-intman.ads b/gcc/ada/s-intman.ads index 1d758a5e3e0..306df161741 100644 --- a/gcc/ada/s-intman.ads +++ b/gcc/ada/s-intman.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-io.adb b/gcc/ada/s-io.adb index 157d42b72f9..fdc8068fe85 100644 --- a/gcc/ada/s-io.adb +++ b/gcc/ada/s-io.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-io.ads b/gcc/ada/s-io.ads index 14d3773e5fa..e6432843d65 100644 --- a/gcc/ada/s-io.ads +++ b/gcc/ada/s-io.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-maccod.ads b/gcc/ada/s-maccod.ads index 8f66ffdbba6..0be10349bf8 100644 --- a/gcc/ada/s-maccod.ads +++ b/gcc/ada/s-maccod.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-mantis.adb b/gcc/ada/s-mantis.adb index 460c3e94cf2..ecf0c1208ea 100644 --- a/gcc/ada/s-mantis.adb +++ b/gcc/ada/s-mantis.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-mantis.ads b/gcc/ada/s-mantis.ads index 8ae9954718e..d92f43fc37f 100644 --- a/gcc/ada/s-mantis.ads +++ b/gcc/ada/s-mantis.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-mastop.adb b/gcc/ada/s-mastop.adb index 0db066f004a..fa77d641fda 100644 --- a/gcc/ada/s-mastop.adb +++ b/gcc/ada/s-mastop.adb @@ -7,7 +7,6 @@ -- B o d y -- -- (Dummy version) -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-mastop.ads b/gcc/ada/s-mastop.ads index 20efa01903d..53e11b4aea2 100644 --- a/gcc/ada/s-mastop.ads +++ b/gcc/ada/s-mastop.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-memory.adb b/gcc/ada/s-memory.adb index 8eaed617b67..aff4623e31d 100644 --- a/gcc/ada/s-memory.adb +++ b/gcc/ada/s-memory.adb @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/s-memory.ads b/gcc/ada/s-memory.ads index 1b95dd34a97..16742357209 100644 --- a/gcc/ada/s-memory.ads +++ b/gcc/ada/s-memory.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/s-osprim.ads b/gcc/ada/s-osprim.ads index 1e28d4f5f94..381dd5eb5fa 100644 --- a/gcc/ada/s-osprim.ads +++ b/gcc/ada/s-osprim.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack03.adb b/gcc/ada/s-pack03.adb index 1999f5d6dfa..7e67dc18378 100644 --- a/gcc/ada/s-pack03.adb +++ b/gcc/ada/s-pack03.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack03.ads b/gcc/ada/s-pack03.ads index 6d41c89f902..9bd31b848e1 100644 --- a/gcc/ada/s-pack03.ads +++ b/gcc/ada/s-pack03.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack05.adb b/gcc/ada/s-pack05.adb index 6f9c3689c63..806f4792540 100644 --- a/gcc/ada/s-pack05.adb +++ b/gcc/ada/s-pack05.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack05.ads b/gcc/ada/s-pack05.ads index 733f9645cd3..eec880c2d82 100644 --- a/gcc/ada/s-pack05.ads +++ b/gcc/ada/s-pack05.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack06.adb b/gcc/ada/s-pack06.adb index 0736b5bc932..1e80ad14cf3 100644 --- a/gcc/ada/s-pack06.adb +++ b/gcc/ada/s-pack06.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack06.ads b/gcc/ada/s-pack06.ads index e48ddda819d..9d09ac1c8a4 100644 --- a/gcc/ada/s-pack06.ads +++ b/gcc/ada/s-pack06.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack07.adb b/gcc/ada/s-pack07.adb index da1a02fc0ee..66ea196e4ae 100644 --- a/gcc/ada/s-pack07.adb +++ b/gcc/ada/s-pack07.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack07.ads b/gcc/ada/s-pack07.ads index aec86167d89..5095bf07ec6 100644 --- a/gcc/ada/s-pack07.ads +++ b/gcc/ada/s-pack07.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack09.adb b/gcc/ada/s-pack09.adb index bf972e19cb8..0a0c61e4312 100644 --- a/gcc/ada/s-pack09.adb +++ b/gcc/ada/s-pack09.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack09.ads b/gcc/ada/s-pack09.ads index a1e33097d04..ba5cf63cd99 100644 --- a/gcc/ada/s-pack09.ads +++ b/gcc/ada/s-pack09.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack10.adb b/gcc/ada/s-pack10.adb index 281447aa030..9ff20f3bf56 100644 --- a/gcc/ada/s-pack10.adb +++ b/gcc/ada/s-pack10.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack10.ads b/gcc/ada/s-pack10.ads index a207dac4cc4..b881f7de110 100644 --- a/gcc/ada/s-pack10.ads +++ b/gcc/ada/s-pack10.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack11.adb b/gcc/ada/s-pack11.adb index 1c803d37652..ecc76910dea 100644 --- a/gcc/ada/s-pack11.adb +++ b/gcc/ada/s-pack11.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack11.ads b/gcc/ada/s-pack11.ads index d1a348f5eee..34431ff0fde 100644 --- a/gcc/ada/s-pack11.ads +++ b/gcc/ada/s-pack11.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack12.adb b/gcc/ada/s-pack12.adb index 5a1228db367..f764640be25 100644 --- a/gcc/ada/s-pack12.adb +++ b/gcc/ada/s-pack12.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack12.ads b/gcc/ada/s-pack12.ads index 5dfc5645d82..e55a51c36e5 100644 --- a/gcc/ada/s-pack12.ads +++ b/gcc/ada/s-pack12.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack13.adb b/gcc/ada/s-pack13.adb index 8a8840e1128..d16cfde1549 100644 --- a/gcc/ada/s-pack13.adb +++ b/gcc/ada/s-pack13.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack13.ads b/gcc/ada/s-pack13.ads index bfd5563591f..e8163d52d6f 100644 --- a/gcc/ada/s-pack13.ads +++ b/gcc/ada/s-pack13.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack14.adb b/gcc/ada/s-pack14.adb index 8ecef36428c..361c1b7b624 100644 --- a/gcc/ada/s-pack14.adb +++ b/gcc/ada/s-pack14.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack14.ads b/gcc/ada/s-pack14.ads index 69aca522ee9..d00394e7a3a 100644 --- a/gcc/ada/s-pack14.ads +++ b/gcc/ada/s-pack14.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack15.adb b/gcc/ada/s-pack15.adb index 58f6769aa91..16770a32056 100644 --- a/gcc/ada/s-pack15.adb +++ b/gcc/ada/s-pack15.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack15.ads b/gcc/ada/s-pack15.ads index 9cb1317fdef..d9a90c17e45 100644 --- a/gcc/ada/s-pack15.ads +++ b/gcc/ada/s-pack15.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack17.adb b/gcc/ada/s-pack17.adb index 865efd6137c..c8fe5d93e42 100644 --- a/gcc/ada/s-pack17.adb +++ b/gcc/ada/s-pack17.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack17.ads b/gcc/ada/s-pack17.ads index 156f5c8d5c2..da16bf117f5 100644 --- a/gcc/ada/s-pack17.ads +++ b/gcc/ada/s-pack17.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack18.adb b/gcc/ada/s-pack18.adb index d39192b860f..ba31d8562fa 100644 --- a/gcc/ada/s-pack18.adb +++ b/gcc/ada/s-pack18.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack18.ads b/gcc/ada/s-pack18.ads index cce6ae10f70..00bc0e2da39 100644 --- a/gcc/ada/s-pack18.ads +++ b/gcc/ada/s-pack18.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack19.adb b/gcc/ada/s-pack19.adb index bc3d5a68b77..6253b20b098 100644 --- a/gcc/ada/s-pack19.adb +++ b/gcc/ada/s-pack19.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack19.ads b/gcc/ada/s-pack19.ads index 9cf1913c77a..69ddd8a868a 100644 --- a/gcc/ada/s-pack19.ads +++ b/gcc/ada/s-pack19.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack20.adb b/gcc/ada/s-pack20.adb index 301e04c8fef..da17e752689 100644 --- a/gcc/ada/s-pack20.adb +++ b/gcc/ada/s-pack20.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack20.ads b/gcc/ada/s-pack20.ads index d8db4d1c317..5086d67562f 100644 --- a/gcc/ada/s-pack20.ads +++ b/gcc/ada/s-pack20.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack21.adb b/gcc/ada/s-pack21.adb index 904bbeb772e..2815c44cb99 100644 --- a/gcc/ada/s-pack21.adb +++ b/gcc/ada/s-pack21.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack21.ads b/gcc/ada/s-pack21.ads index 3749993c0e6..5432aae0020 100644 --- a/gcc/ada/s-pack21.ads +++ b/gcc/ada/s-pack21.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack22.adb b/gcc/ada/s-pack22.adb index 3ae4402c24b..39ed32d6a3a 100644 --- a/gcc/ada/s-pack22.adb +++ b/gcc/ada/s-pack22.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack22.ads b/gcc/ada/s-pack22.ads index 57fbb76c515..c2bffa7361c 100644 --- a/gcc/ada/s-pack22.ads +++ b/gcc/ada/s-pack22.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack23.adb b/gcc/ada/s-pack23.adb index 1dd78eeedc7..0819f5a8e3d 100644 --- a/gcc/ada/s-pack23.adb +++ b/gcc/ada/s-pack23.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack23.ads b/gcc/ada/s-pack23.ads index c06688229b2..c2c012f2336 100644 --- a/gcc/ada/s-pack23.ads +++ b/gcc/ada/s-pack23.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack24.adb b/gcc/ada/s-pack24.adb index 93b0a07f3ff..c6af19876da 100644 --- a/gcc/ada/s-pack24.adb +++ b/gcc/ada/s-pack24.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack24.ads b/gcc/ada/s-pack24.ads index cceb7735ade..4a995a41728 100644 --- a/gcc/ada/s-pack24.ads +++ b/gcc/ada/s-pack24.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack25.adb b/gcc/ada/s-pack25.adb index 2e9498b5155..8c281e54345 100644 --- a/gcc/ada/s-pack25.adb +++ b/gcc/ada/s-pack25.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack25.ads b/gcc/ada/s-pack25.ads index 1b9882d797c..fe404d246eb 100644 --- a/gcc/ada/s-pack25.ads +++ b/gcc/ada/s-pack25.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack26.adb b/gcc/ada/s-pack26.adb index ba9c9af586e..9a92fa83f00 100644 --- a/gcc/ada/s-pack26.adb +++ b/gcc/ada/s-pack26.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack26.ads b/gcc/ada/s-pack26.ads index 4174355b860..916cad3264f 100644 --- a/gcc/ada/s-pack26.ads +++ b/gcc/ada/s-pack26.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack27.adb b/gcc/ada/s-pack27.adb index 6399fc0363d..73b2e8b9803 100644 --- a/gcc/ada/s-pack27.adb +++ b/gcc/ada/s-pack27.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack27.ads b/gcc/ada/s-pack27.ads index 0bc99a794f2..16196938c9d 100644 --- a/gcc/ada/s-pack27.ads +++ b/gcc/ada/s-pack27.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack28.adb b/gcc/ada/s-pack28.adb index 97d82309e20..24a7b79a1b5 100644 --- a/gcc/ada/s-pack28.adb +++ b/gcc/ada/s-pack28.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack28.ads b/gcc/ada/s-pack28.ads index 89c18a1b38b..644c0fdef62 100644 --- a/gcc/ada/s-pack28.ads +++ b/gcc/ada/s-pack28.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack29.adb b/gcc/ada/s-pack29.adb index b2b00d6b7d9..ccf1e94a428 100644 --- a/gcc/ada/s-pack29.adb +++ b/gcc/ada/s-pack29.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack29.ads b/gcc/ada/s-pack29.ads index 9fb3e526022..dd93fd5e60d 100644 --- a/gcc/ada/s-pack29.ads +++ b/gcc/ada/s-pack29.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack30.adb b/gcc/ada/s-pack30.adb index 024f2f588c0..9d85bd0d696 100644 --- a/gcc/ada/s-pack30.adb +++ b/gcc/ada/s-pack30.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack30.ads b/gcc/ada/s-pack30.ads index b552996113e..c297c80c944 100644 --- a/gcc/ada/s-pack30.ads +++ b/gcc/ada/s-pack30.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack31.adb b/gcc/ada/s-pack31.adb index 60714b644d1..c9b2c7fb12e 100644 --- a/gcc/ada/s-pack31.adb +++ b/gcc/ada/s-pack31.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack31.ads b/gcc/ada/s-pack31.ads index ae97c0d505d..61b2767fc40 100644 --- a/gcc/ada/s-pack31.ads +++ b/gcc/ada/s-pack31.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack33.adb b/gcc/ada/s-pack33.adb index b744a811d2c..512a8a8a9aa 100644 --- a/gcc/ada/s-pack33.adb +++ b/gcc/ada/s-pack33.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack33.ads b/gcc/ada/s-pack33.ads index 5bf1e988322..caa69a55590 100644 --- a/gcc/ada/s-pack33.ads +++ b/gcc/ada/s-pack33.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack34.adb b/gcc/ada/s-pack34.adb index 13429de27ae..75738091726 100644 --- a/gcc/ada/s-pack34.adb +++ b/gcc/ada/s-pack34.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack34.ads b/gcc/ada/s-pack34.ads index 83c5ec2d8cf..40359dbf542 100644 --- a/gcc/ada/s-pack34.ads +++ b/gcc/ada/s-pack34.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack35.adb b/gcc/ada/s-pack35.adb index de5295650dc..5ea7f0ef0e8 100644 --- a/gcc/ada/s-pack35.adb +++ b/gcc/ada/s-pack35.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack35.ads b/gcc/ada/s-pack35.ads index 96589fd78af..2aa1ac340d4 100644 --- a/gcc/ada/s-pack35.ads +++ b/gcc/ada/s-pack35.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack36.adb b/gcc/ada/s-pack36.adb index bfb5d3e1afa..a527e70d25b 100644 --- a/gcc/ada/s-pack36.adb +++ b/gcc/ada/s-pack36.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack36.ads b/gcc/ada/s-pack36.ads index f2cf294252a..4d8d4f407d1 100644 --- a/gcc/ada/s-pack36.ads +++ b/gcc/ada/s-pack36.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack37.adb b/gcc/ada/s-pack37.adb index 8bacce97582..aebece5737f 100644 --- a/gcc/ada/s-pack37.adb +++ b/gcc/ada/s-pack37.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack37.ads b/gcc/ada/s-pack37.ads index 4029f0de5e3..80c5c847f92 100644 --- a/gcc/ada/s-pack37.ads +++ b/gcc/ada/s-pack37.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack38.adb b/gcc/ada/s-pack38.adb index 409798faa2b..302e63b5e67 100644 --- a/gcc/ada/s-pack38.adb +++ b/gcc/ada/s-pack38.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack38.ads b/gcc/ada/s-pack38.ads index 08de623b2bf..674095e3ed7 100644 --- a/gcc/ada/s-pack38.ads +++ b/gcc/ada/s-pack38.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack39.adb b/gcc/ada/s-pack39.adb index 898de494a77..c10e548d1d5 100644 --- a/gcc/ada/s-pack39.adb +++ b/gcc/ada/s-pack39.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack39.ads b/gcc/ada/s-pack39.ads index 41066144787..dcb19ff7390 100644 --- a/gcc/ada/s-pack39.ads +++ b/gcc/ada/s-pack39.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack40.adb b/gcc/ada/s-pack40.adb index 7f2e85020b1..f4573d1bc6c 100644 --- a/gcc/ada/s-pack40.adb +++ b/gcc/ada/s-pack40.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack40.ads b/gcc/ada/s-pack40.ads index 2f6fdb4f5a6..e571ce705ba 100644 --- a/gcc/ada/s-pack40.ads +++ b/gcc/ada/s-pack40.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack41.adb b/gcc/ada/s-pack41.adb index f44b309d7d4..4e4d591e461 100644 --- a/gcc/ada/s-pack41.adb +++ b/gcc/ada/s-pack41.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack41.ads b/gcc/ada/s-pack41.ads index ec5f2e2be81..cbe638bf0d7 100644 --- a/gcc/ada/s-pack41.ads +++ b/gcc/ada/s-pack41.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack42.adb b/gcc/ada/s-pack42.adb index 8d015b6b5bf..c374dd9946f 100644 --- a/gcc/ada/s-pack42.adb +++ b/gcc/ada/s-pack42.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack42.ads b/gcc/ada/s-pack42.ads index 7117c693cf5..44f23a47d37 100644 --- a/gcc/ada/s-pack42.ads +++ b/gcc/ada/s-pack42.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack43.adb b/gcc/ada/s-pack43.adb index c7fbb904cc1..64e41118bc9 100644 --- a/gcc/ada/s-pack43.adb +++ b/gcc/ada/s-pack43.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack43.ads b/gcc/ada/s-pack43.ads index 0c99d2cd4bf..b9b73862a99 100644 --- a/gcc/ada/s-pack43.ads +++ b/gcc/ada/s-pack43.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack44.adb b/gcc/ada/s-pack44.adb index 4f32829ceff..3bc0f76042d 100644 --- a/gcc/ada/s-pack44.adb +++ b/gcc/ada/s-pack44.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack44.ads b/gcc/ada/s-pack44.ads index 0a563d698f3..ca28c924d17 100644 --- a/gcc/ada/s-pack44.ads +++ b/gcc/ada/s-pack44.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack45.adb b/gcc/ada/s-pack45.adb index 2aa16d0d5c6..f4367c6345f 100644 --- a/gcc/ada/s-pack45.adb +++ b/gcc/ada/s-pack45.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack45.ads b/gcc/ada/s-pack45.ads index 3230fde36c3..421f72c851e 100644 --- a/gcc/ada/s-pack45.ads +++ b/gcc/ada/s-pack45.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack46.adb b/gcc/ada/s-pack46.adb index 7b2f132dc32..dafa4f0f7ff 100644 --- a/gcc/ada/s-pack46.adb +++ b/gcc/ada/s-pack46.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack46.ads b/gcc/ada/s-pack46.ads index 8f6c29fec49..c10009fb19c 100644 --- a/gcc/ada/s-pack46.ads +++ b/gcc/ada/s-pack46.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack47.adb b/gcc/ada/s-pack47.adb index 9400c903927..5802a3709b1 100644 --- a/gcc/ada/s-pack47.adb +++ b/gcc/ada/s-pack47.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack47.ads b/gcc/ada/s-pack47.ads index a9895885f7a..9e0370a8cc2 100644 --- a/gcc/ada/s-pack47.ads +++ b/gcc/ada/s-pack47.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack48.adb b/gcc/ada/s-pack48.adb index 88a72bc5983..f6fefe9d1ff 100644 --- a/gcc/ada/s-pack48.adb +++ b/gcc/ada/s-pack48.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack48.ads b/gcc/ada/s-pack48.ads index 296def49545..137a0081c2b 100644 --- a/gcc/ada/s-pack48.ads +++ b/gcc/ada/s-pack48.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack49.adb b/gcc/ada/s-pack49.adb index c2b1629558e..42c68c3cce2 100644 --- a/gcc/ada/s-pack49.adb +++ b/gcc/ada/s-pack49.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack49.ads b/gcc/ada/s-pack49.ads index fbf8dbf37f9..efdb5dd4cfa 100644 --- a/gcc/ada/s-pack49.ads +++ b/gcc/ada/s-pack49.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack50.adb b/gcc/ada/s-pack50.adb index e0f3a60876f..d7f750f538e 100644 --- a/gcc/ada/s-pack50.adb +++ b/gcc/ada/s-pack50.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack50.ads b/gcc/ada/s-pack50.ads index 53909e058e1..32641b192b5 100644 --- a/gcc/ada/s-pack50.ads +++ b/gcc/ada/s-pack50.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack51.adb b/gcc/ada/s-pack51.adb index 9c4ff298058..35929866b91 100644 --- a/gcc/ada/s-pack51.adb +++ b/gcc/ada/s-pack51.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack51.ads b/gcc/ada/s-pack51.ads index a3cc1ebbe08..70808ebdb87 100644 --- a/gcc/ada/s-pack51.ads +++ b/gcc/ada/s-pack51.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack52.adb b/gcc/ada/s-pack52.adb index bbfb5984b76..683142e2bcb 100644 --- a/gcc/ada/s-pack52.adb +++ b/gcc/ada/s-pack52.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack52.ads b/gcc/ada/s-pack52.ads index 59f93b40fbf..75e42720375 100644 --- a/gcc/ada/s-pack52.ads +++ b/gcc/ada/s-pack52.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack53.adb b/gcc/ada/s-pack53.adb index bc9973bb2ec..af4745e56fc 100644 --- a/gcc/ada/s-pack53.adb +++ b/gcc/ada/s-pack53.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack53.ads b/gcc/ada/s-pack53.ads index d81861848eb..df3834469de 100644 --- a/gcc/ada/s-pack53.ads +++ b/gcc/ada/s-pack53.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack54.adb b/gcc/ada/s-pack54.adb index 69661189c4c..64e1e1f38ae 100644 --- a/gcc/ada/s-pack54.adb +++ b/gcc/ada/s-pack54.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack54.ads b/gcc/ada/s-pack54.ads index ecb84315f81..01b631d576d 100644 --- a/gcc/ada/s-pack54.ads +++ b/gcc/ada/s-pack54.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack55.adb b/gcc/ada/s-pack55.adb index 44afca0529f..6206f2dc4dc 100644 --- a/gcc/ada/s-pack55.adb +++ b/gcc/ada/s-pack55.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack55.ads b/gcc/ada/s-pack55.ads index 6185d125c8c..8fa19f3faf8 100644 --- a/gcc/ada/s-pack55.ads +++ b/gcc/ada/s-pack55.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack56.adb b/gcc/ada/s-pack56.adb index 7494798331b..ef9350f9544 100644 --- a/gcc/ada/s-pack56.adb +++ b/gcc/ada/s-pack56.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack56.ads b/gcc/ada/s-pack56.ads index 8d7194133f6..8a9ccd762fc 100644 --- a/gcc/ada/s-pack56.ads +++ b/gcc/ada/s-pack56.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack57.adb b/gcc/ada/s-pack57.adb index e9920adb713..ccb4e055969 100644 --- a/gcc/ada/s-pack57.adb +++ b/gcc/ada/s-pack57.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack57.ads b/gcc/ada/s-pack57.ads index 8e2e574f81f..389ec746914 100644 --- a/gcc/ada/s-pack57.ads +++ b/gcc/ada/s-pack57.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack58.adb b/gcc/ada/s-pack58.adb index 7313ef30bbf..c7732f532aa 100644 --- a/gcc/ada/s-pack58.adb +++ b/gcc/ada/s-pack58.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack58.ads b/gcc/ada/s-pack58.ads index 3a5a486834d..c73c126e5b8 100644 --- a/gcc/ada/s-pack58.ads +++ b/gcc/ada/s-pack58.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack59.adb b/gcc/ada/s-pack59.adb index 3e0cc06c26d..4aa338a4f2d 100644 --- a/gcc/ada/s-pack59.adb +++ b/gcc/ada/s-pack59.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack59.ads b/gcc/ada/s-pack59.ads index 64a463366ce..0c245227cbf 100644 --- a/gcc/ada/s-pack59.ads +++ b/gcc/ada/s-pack59.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack60.adb b/gcc/ada/s-pack60.adb index a114285e447..438943d4bd3 100644 --- a/gcc/ada/s-pack60.adb +++ b/gcc/ada/s-pack60.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack60.ads b/gcc/ada/s-pack60.ads index 94d87efb6a3..2fcbd36540f 100644 --- a/gcc/ada/s-pack60.ads +++ b/gcc/ada/s-pack60.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack61.adb b/gcc/ada/s-pack61.adb index 60b2da80298..4affb837213 100644 --- a/gcc/ada/s-pack61.adb +++ b/gcc/ada/s-pack61.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack61.ads b/gcc/ada/s-pack61.ads index 17d663b8988..f174db2678d 100644 --- a/gcc/ada/s-pack61.ads +++ b/gcc/ada/s-pack61.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack62.adb b/gcc/ada/s-pack62.adb index 51697fd7078..3cfd6b6831a 100644 --- a/gcc/ada/s-pack62.adb +++ b/gcc/ada/s-pack62.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack62.ads b/gcc/ada/s-pack62.ads index 674e250715d..ea8a9af7174 100644 --- a/gcc/ada/s-pack62.ads +++ b/gcc/ada/s-pack62.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack63.adb b/gcc/ada/s-pack63.adb index 8fe9e4a512d..55f12c1227a 100644 --- a/gcc/ada/s-pack63.adb +++ b/gcc/ada/s-pack63.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pack63.ads b/gcc/ada/s-pack63.ads index bb60bea0768..56541eff0c2 100644 --- a/gcc/ada/s-pack63.ads +++ b/gcc/ada/s-pack63.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-parame.adb b/gcc/ada/s-parame.adb index a7665ba7ed9..ce9ba09ea3a 100644 --- a/gcc/ada/s-parame.adb +++ b/gcc/ada/s-parame.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-parame.ads b/gcc/ada/s-parame.ads index ed850682881..87e6fa99a41 100644 --- a/gcc/ada/s-parame.ads +++ b/gcc/ada/s-parame.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-parint.adb b/gcc/ada/s-parint.adb index faaa55e6258..0f0484df0e9 100644 --- a/gcc/ada/s-parint.adb +++ b/gcc/ada/s-parint.adb @@ -7,7 +7,6 @@ -- B o d y -- -- (Dummy body for non-distributed case) -- -- -- --- -- -- Copyright (C) 1995-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-parint.ads b/gcc/ada/s-parint.ads index 5623e946727..34c873a55d8 100644 --- a/gcc/ada/s-parint.ads +++ b/gcc/ada/s-parint.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2000 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pooglo.adb b/gcc/ada/s-pooglo.adb index 2cf2837976f..7b3e08fab5c 100644 --- a/gcc/ada/s-pooglo.adb +++ b/gcc/ada/s-pooglo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pooglo.ads b/gcc/ada/s-pooglo.ads index d51a7be11fd..16e03de6c93 100644 --- a/gcc/ada/s-pooglo.ads +++ b/gcc/ada/s-pooglo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pooloc.adb b/gcc/ada/s-pooloc.adb index 1d3571aa15f..8272ae333bb 100644 --- a/gcc/ada/s-pooloc.adb +++ b/gcc/ada/s-pooloc.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-pooloc.ads b/gcc/ada/s-pooloc.ads index 639d469647a..2c3c04550d5 100644 --- a/gcc/ada/s-pooloc.ads +++ b/gcc/ada/s-pooloc.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-poosiz.adb b/gcc/ada/s-poosiz.adb index ef355502305..ad6f759f669 100644 --- a/gcc/ada/s-poosiz.adb +++ b/gcc/ada/s-poosiz.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-poosiz.ads b/gcc/ada/s-poosiz.ads index cd80bf7afb7..508d7eaafe0 100644 --- a/gcc/ada/s-poosiz.ads +++ b/gcc/ada/s-poosiz.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-powtab.ads b/gcc/ada/s-powtab.ads index 05f6e9e2a07..40fe0ac72f6 100644 --- a/gcc/ada/s-powtab.ads +++ b/gcc/ada/s-powtab.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-proinf.adb b/gcc/ada/s-proinf.adb index c0d6024e4f3..996c3134a49 100644 --- a/gcc/ada/s-proinf.adb +++ b/gcc/ada/s-proinf.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-proinf.ads b/gcc/ada/s-proinf.ads index 201fc0c019b..99f0e3c2cb9 100644 --- a/gcc/ada/s-proinf.ads +++ b/gcc/ada/s-proinf.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-rpc.adb b/gcc/ada/s-rpc.adb index 5d918e70cbb..33ab366f278 100644 --- a/gcc/ada/s-rpc.adb +++ b/gcc/ada/s-rpc.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-rpc.ads b/gcc/ada/s-rpc.ads index 2c479a38463..af778aa1fcf 100644 --- a/gcc/ada/s-rpc.ads +++ b/gcc/ada/s-rpc.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/s-scaval.ads b/gcc/ada/s-scaval.ads index cfa41de092a..07324b6724c 100644 --- a/gcc/ada/s-scaval.ads +++ b/gcc/ada/s-scaval.ads @@ -5,7 +5,6 @@ -- S Y S T E M . S C A L A R _ V A L U E S -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-secsta.adb b/gcc/ada/s-secsta.adb index 6818bada973..63182aa6972 100644 --- a/gcc/ada/s-secsta.adb +++ b/gcc/ada/s-secsta.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-secsta.ads b/gcc/ada/s-secsta.ads index 068b64582ad..0530ed4761d 100644 --- a/gcc/ada/s-secsta.ads +++ b/gcc/ada/s-secsta.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-sequio.adb b/gcc/ada/s-sequio.adb index 225c8ea10c4..7e66bbe4573 100644 --- a/gcc/ada/s-sequio.adb +++ b/gcc/ada/s-sequio.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-sequio.ads b/gcc/ada/s-sequio.ads index 9615fa55b6e..3bc2f962ac0 100644 --- a/gcc/ada/s-sequio.ads +++ b/gcc/ada/s-sequio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-shasto.adb b/gcc/ada/s-shasto.adb index 263612edb24..2f7f0637ce8 100644 --- a/gcc/ada/s-shasto.adb +++ b/gcc/ada/s-shasto.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-shasto.ads b/gcc/ada/s-shasto.ads index c93dea0c3cc..69ddebaf158 100644 --- a/gcc/ada/s-shasto.ads +++ b/gcc/ada/s-shasto.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-soflin.adb b/gcc/ada/s-soflin.adb index 18f72507947..f656714d3d3 100644 --- a/gcc/ada/s-soflin.adb +++ b/gcc/ada/s-soflin.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-soflin.ads b/gcc/ada/s-soflin.ads index c3379606a86..96d2155c21d 100644 --- a/gcc/ada/s-soflin.ads +++ b/gcc/ada/s-soflin.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-sopco3.adb b/gcc/ada/s-sopco3.adb index e8f51989210..59ae6cfe88b 100644 --- a/gcc/ada/s-sopco3.adb +++ b/gcc/ada/s-sopco3.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-sopco3.ads b/gcc/ada/s-sopco3.ads index 12301861f77..d9003a29c93 100644 --- a/gcc/ada/s-sopco3.ads +++ b/gcc/ada/s-sopco3.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-sopco4.adb b/gcc/ada/s-sopco4.adb index e079528f074..5cbd028b110 100644 --- a/gcc/ada/s-sopco4.adb +++ b/gcc/ada/s-sopco4.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-sopco4.ads b/gcc/ada/s-sopco4.ads index fc453a0f216..e5bc81a3cfb 100644 --- a/gcc/ada/s-sopco4.ads +++ b/gcc/ada/s-sopco4.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-sopco5.adb b/gcc/ada/s-sopco5.adb index 98215944128..c8fa200a6f7 100644 --- a/gcc/ada/s-sopco5.adb +++ b/gcc/ada/s-sopco5.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-sopco5.ads b/gcc/ada/s-sopco5.ads index 42d2c7f2618..ecbff60ab2b 100644 --- a/gcc/ada/s-sopco5.ads +++ b/gcc/ada/s-sopco5.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-stache.adb b/gcc/ada/s-stache.adb index f5780be6636..f93f3fa7059 100644 --- a/gcc/ada/s-stache.adb +++ b/gcc/ada/s-stache.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-stache.ads b/gcc/ada/s-stache.ads index 6d3e1f7075a..d8bdbb35a13 100644 --- a/gcc/ada/s-stache.ads +++ b/gcc/ada/s-stache.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-stalib.adb b/gcc/ada/s-stalib.adb index 2913e522e8b..096eac45b42 100644 --- a/gcc/ada/s-stalib.adb +++ b/gcc/ada/s-stalib.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-stalib.ads b/gcc/ada/s-stalib.ads index f31dc5e5c1d..e443239bdca 100644 --- a/gcc/ada/s-stalib.ads +++ b/gcc/ada/s-stalib.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-stoele.adb b/gcc/ada/s-stoele.adb index 5b2468af6cb..fc69d1e1db8 100644 --- a/gcc/ada/s-stoele.adb +++ b/gcc/ada/s-stoele.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-stoele.ads b/gcc/ada/s-stoele.ads index 7b4e3cd6524..3d9f7c22b96 100644 --- a/gcc/ada/s-stoele.ads +++ b/gcc/ada/s-stoele.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/s-stopoo.ads b/gcc/ada/s-stopoo.ads index a4f5ac65857..4892e692383 100644 --- a/gcc/ada/s-stopoo.ads +++ b/gcc/ada/s-stopoo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/s-stratt.adb b/gcc/ada/s-stratt.adb index 7ce931fbf13..897b6daa2c5 100644 --- a/gcc/ada/s-stratt.adb +++ b/gcc/ada/s-stratt.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-stratt.ads b/gcc/ada/s-stratt.ads index 7b95f4c4d50..926c6f6a0eb 100644 --- a/gcc/ada/s-stratt.ads +++ b/gcc/ada/s-stratt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-strops.adb b/gcc/ada/s-strops.adb index b3d882c9e99..01b431dc1be 100644 --- a/gcc/ada/s-strops.adb +++ b/gcc/ada/s-strops.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-strops.ads b/gcc/ada/s-strops.ads index 0588be5276a..b204a83a12e 100644 --- a/gcc/ada/s-strops.ads +++ b/gcc/ada/s-strops.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-taasde.adb b/gcc/ada/s-taasde.adb index 16a94a60f55..2439c464357 100644 --- a/gcc/ada/s-taasde.adb +++ b/gcc/ada/s-taasde.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-taasde.ads b/gcc/ada/s-taasde.ads index 4de73b2fcc6..76a9dff9037 100644 --- a/gcc/ada/s-taasde.ads +++ b/gcc/ada/s-taasde.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tadeca.adb b/gcc/ada/s-tadeca.adb index 272227d27d7..fb9c00731e6 100644 --- a/gcc/ada/s-tadeca.adb +++ b/gcc/ada/s-tadeca.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tadeca.ads b/gcc/ada/s-tadeca.ads index 35824f01233..be4ed3e7824 100644 --- a/gcc/ada/s-tadeca.ads +++ b/gcc/ada/s-tadeca.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tadert.adb b/gcc/ada/s-tadert.adb index 54a78024fbe..bb4f908a551 100644 --- a/gcc/ada/s-tadert.adb +++ b/gcc/ada/s-tadert.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tadert.ads b/gcc/ada/s-tadert.ads index 61231a28538..5e406271430 100644 --- a/gcc/ada/s-tadert.ads +++ b/gcc/ada/s-tadert.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-taenca.adb b/gcc/ada/s-taenca.adb index e2b6a3c948e..68ab1ae0da1 100644 --- a/gcc/ada/s-taenca.adb +++ b/gcc/ada/s-taenca.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-taenca.ads b/gcc/ada/s-taenca.ads index 67bcb4c7d14..2fef2cdfe8c 100644 --- a/gcc/ada/s-taenca.ads +++ b/gcc/ada/s-taenca.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-taprob.adb b/gcc/ada/s-taprob.adb index ee78b57d6e3..4663110652b 100644 --- a/gcc/ada/s-taprob.adb +++ b/gcc/ada/s-taprob.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-taprob.ads b/gcc/ada/s-taprob.ads index db3a74c9168..ea3a1ff65c9 100644 --- a/gcc/ada/s-taprob.ads +++ b/gcc/ada/s-taprob.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-taprop.ads b/gcc/ada/s-taprop.ads index 7cebb630f3d..9f7c8f7e32b 100644 --- a/gcc/ada/s-taprop.ads +++ b/gcc/ada/s-taprop.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tarest.adb b/gcc/ada/s-tarest.adb index daeaa811f7e..2cd2e161705 100644 --- a/gcc/ada/s-tarest.adb +++ b/gcc/ada/s-tarest.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tarest.ads b/gcc/ada/s-tarest.ads index d14a1481677..fb4f007fe5b 100644 --- a/gcc/ada/s-tarest.ads +++ b/gcc/ada/s-tarest.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasdeb.adb b/gcc/ada/s-tasdeb.adb index 3ee03749661..c437117bc47 100644 --- a/gcc/ada/s-tasdeb.adb +++ b/gcc/ada/s-tasdeb.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2002 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasdeb.ads b/gcc/ada/s-tasdeb.ads index 275f5cb77b7..a98575a170c 100644 --- a/gcc/ada/s-tasdeb.ads +++ b/gcc/ada/s-tasdeb.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasinf.adb b/gcc/ada/s-tasinf.adb index cd932157bad..8ce2523b2f7 100644 --- a/gcc/ada/s-tasinf.adb +++ b/gcc/ada/s-tasinf.adb @@ -7,7 +7,6 @@ -- S p e c -- -- (Compiler Interface) -- -- -- --- -- -- Copyright (C) 1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasinf.ads b/gcc/ada/s-tasinf.ads index bf3bd176a3b..4ea77e46254 100644 --- a/gcc/ada/s-tasinf.ads +++ b/gcc/ada/s-tasinf.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (Compiler Interface) -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasini.adb b/gcc/ada/s-tasini.adb index 77bc22ff872..badf009b96e 100644 --- a/gcc/ada/s-tasini.adb +++ b/gcc/ada/s-tasini.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasini.ads b/gcc/ada/s-tasini.ads index fba7bb1b4e6..2b5c39e4c98 100644 --- a/gcc/ada/s-tasini.ads +++ b/gcc/ada/s-tasini.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-taskin.adb b/gcc/ada/s-taskin.adb index 5620684fe1f..ba34a69f384 100644 --- a/gcc/ada/s-taskin.adb +++ b/gcc/ada/s-taskin.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-taskin.ads b/gcc/ada/s-taskin.ads index 501db146368..6210a26a0ba 100644 --- a/gcc/ada/s-taskin.ads +++ b/gcc/ada/s-taskin.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasque.adb b/gcc/ada/s-tasque.adb index 35209c51dea..092de11f1f2 100644 --- a/gcc/ada/s-tasque.adb +++ b/gcc/ada/s-tasque.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasque.ads b/gcc/ada/s-tasque.ads index e7211add6b3..d9d66ca5d97 100644 --- a/gcc/ada/s-tasque.ads +++ b/gcc/ada/s-tasque.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasren.adb b/gcc/ada/s-tasren.adb index 972356f2e46..58ead84f6b3 100644 --- a/gcc/ada/s-tasren.adb +++ b/gcc/ada/s-tasren.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasren.ads b/gcc/ada/s-tasren.ads index 4796cf95723..62dfedf458c 100644 --- a/gcc/ada/s-tasren.ads +++ b/gcc/ada/s-tasren.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasres.ads b/gcc/ada/s-tasres.ads index 64cc00418c6..ab178857a87 100644 --- a/gcc/ada/s-tasres.ads +++ b/gcc/ada/s-tasres.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-1999, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tassta.adb b/gcc/ada/s-tassta.adb index e2dcaf0c49c..6e73cde6b80 100644 --- a/gcc/ada/s-tassta.adb +++ b/gcc/ada/s-tassta.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tassta.ads b/gcc/ada/s-tassta.ads index c8bd2872bf5..92084f09713 100644 --- a/gcc/ada/s-tassta.ads +++ b/gcc/ada/s-tassta.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasuti.adb b/gcc/ada/s-tasuti.adb index fb345231252..8b4bcfa6a66 100644 --- a/gcc/ada/s-tasuti.adb +++ b/gcc/ada/s-tasuti.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tasuti.ads b/gcc/ada/s-tasuti.ads index c63fd2a4657..712f68c37c3 100644 --- a/gcc/ada/s-tasuti.ads +++ b/gcc/ada/s-tasuti.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tataat.adb b/gcc/ada/s-tataat.adb index 722e945cbd7..d417da50e76 100644 --- a/gcc/ada/s-tataat.adb +++ b/gcc/ada/s-tataat.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1995-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tataat.ads b/gcc/ada/s-tataat.ads index c2631edab32..3ed63ac090d 100644 --- a/gcc/ada/s-tataat.ads +++ b/gcc/ada/s-tataat.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1995-2002 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tpinop.adb b/gcc/ada/s-tpinop.adb index 920e52b10ea..ac5bda3f8c4 100644 --- a/gcc/ada/s-tpinop.adb +++ b/gcc/ada/s-tpinop.adb @@ -7,7 +7,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tpinop.ads b/gcc/ada/s-tpinop.ads index 382932392fa..763641e4aea 100644 --- a/gcc/ada/s-tpinop.ads +++ b/gcc/ada/s-tpinop.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tpoben.adb b/gcc/ada/s-tpoben.adb index 42b1e84936f..8e90a9dc490 100644 --- a/gcc/ada/s-tpoben.adb +++ b/gcc/ada/s-tpoben.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tpoben.ads b/gcc/ada/s-tpoben.ads index 4a9aab34abc..cd3fd57aa04 100644 --- a/gcc/ada/s-tpoben.ads +++ b/gcc/ada/s-tpoben.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tpobop.adb b/gcc/ada/s-tpobop.adb index b92c6af242c..36e60b1b212 100644 --- a/gcc/ada/s-tpobop.adb +++ b/gcc/ada/s-tpobop.adb @@ -7,7 +7,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tpobop.ads b/gcc/ada/s-tpobop.ads index 86f69685951..c1498c63ade 100644 --- a/gcc/ada/s-tpobop.ads +++ b/gcc/ada/s-tpobop.ads @@ -7,7 +7,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tposen.adb b/gcc/ada/s-tposen.adb index b262add1efb..df132a544ea 100644 --- a/gcc/ada/s-tposen.adb +++ b/gcc/ada/s-tposen.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2002, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tposen.ads b/gcc/ada/s-tposen.ads index b682e038301..d5f48785fcd 100644 --- a/gcc/ada/s-tposen.ads +++ b/gcc/ada/s-tposen.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-traceb.adb b/gcc/ada/s-traceb.adb index 35ba180143e..94cc6ff22c1 100644 --- a/gcc/ada/s-traceb.adb +++ b/gcc/ada/s-traceb.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-traceb.ads b/gcc/ada/s-traceb.ads index dd9c77edac5..1f69c2dd8aa 100644 --- a/gcc/ada/s-traceb.ads +++ b/gcc/ada/s-traceb.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-traces.adb b/gcc/ada/s-traces.adb index 78cc50f2e72..dcf856e2299 100644 --- a/gcc/ada/s-traces.adb +++ b/gcc/ada/s-traces.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-traces.ads b/gcc/ada/s-traces.ads index 9e600435413..6202250dac1 100644 --- a/gcc/ada/s-traces.ads +++ b/gcc/ada/s-traces.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tratas.adb b/gcc/ada/s-tratas.adb index 738eab40f82..241fdaa1bbc 100644 --- a/gcc/ada/s-tratas.adb +++ b/gcc/ada/s-tratas.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-tratas.ads b/gcc/ada/s-tratas.ads index 9529cbc9bc9..c54399324eb 100644 --- a/gcc/ada/s-tratas.ads +++ b/gcc/ada/s-tratas.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-unstyp.ads b/gcc/ada/s-unstyp.ads index 6215c21ec0b..7ed1033553c 100644 --- a/gcc/ada/s-unstyp.ads +++ b/gcc/ada/s-unstyp.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-vaflop.adb b/gcc/ada/s-vaflop.adb index ca7b14e4368..35b5353e06a 100644 --- a/gcc/ada/s-vaflop.adb +++ b/gcc/ada/s-vaflop.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-vaflop.ads b/gcc/ada/s-vaflop.ads index 131bb1e5896..529e0ef8c55 100644 --- a/gcc/ada/s-vaflop.ads +++ b/gcc/ada/s-vaflop.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valboo.adb b/gcc/ada/s-valboo.adb index 6a7ddb30f99..20ac11b70e0 100644 --- a/gcc/ada/s-valboo.adb +++ b/gcc/ada/s-valboo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valboo.ads b/gcc/ada/s-valboo.ads index 4cf39f2fe0c..0bbdd2eae72 100644 --- a/gcc/ada/s-valboo.ads +++ b/gcc/ada/s-valboo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valcha.adb b/gcc/ada/s-valcha.adb index ad19a09fa9f..10b4e4149df 100644 --- a/gcc/ada/s-valcha.adb +++ b/gcc/ada/s-valcha.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valcha.ads b/gcc/ada/s-valcha.ads index a1968431d58..ba2a40dcc16 100644 --- a/gcc/ada/s-valcha.ads +++ b/gcc/ada/s-valcha.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valdec.adb b/gcc/ada/s-valdec.adb index 4e77537ad56..2a6b5551ec7 100644 --- a/gcc/ada/s-valdec.adb +++ b/gcc/ada/s-valdec.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valdec.ads b/gcc/ada/s-valdec.ads index 57fe18f1d63..60c55adff64 100644 --- a/gcc/ada/s-valdec.ads +++ b/gcc/ada/s-valdec.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valenu.adb b/gcc/ada/s-valenu.adb index cd805b5d3a8..969bd1cf3af 100644 --- a/gcc/ada/s-valenu.adb +++ b/gcc/ada/s-valenu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valenu.ads b/gcc/ada/s-valenu.ads index 0c2de5909de..15a5fbd90b7 100644 --- a/gcc/ada/s-valenu.ads +++ b/gcc/ada/s-valenu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valint.adb b/gcc/ada/s-valint.adb index 53313f53363..9d8b6b1fbea 100644 --- a/gcc/ada/s-valint.adb +++ b/gcc/ada/s-valint.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valint.ads b/gcc/ada/s-valint.ads index f570095eee6..65124e6ccaa 100644 --- a/gcc/ada/s-valint.ads +++ b/gcc/ada/s-valint.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-vallld.adb b/gcc/ada/s-vallld.adb index 9e49b99d557..8f1d445252d 100644 --- a/gcc/ada/s-vallld.adb +++ b/gcc/ada/s-vallld.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-vallld.ads b/gcc/ada/s-vallld.ads index 1a672196d8c..f40a22492a7 100644 --- a/gcc/ada/s-vallld.ads +++ b/gcc/ada/s-vallld.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-vallli.adb b/gcc/ada/s-vallli.adb index 77b906e9106..14ecb2b4172 100644 --- a/gcc/ada/s-vallli.adb +++ b/gcc/ada/s-vallli.adb @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-vallli.ads b/gcc/ada/s-vallli.ads index 4e35cd9f179..7b5222069fb 100644 --- a/gcc/ada/s-vallli.ads +++ b/gcc/ada/s-vallli.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valllu.adb b/gcc/ada/s-valllu.adb index 5a1d46e33a4..2403e9d2337 100644 --- a/gcc/ada/s-valllu.adb +++ b/gcc/ada/s-valllu.adb @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valllu.ads b/gcc/ada/s-valllu.ads index 015c5d4e642..8311f524e08 100644 --- a/gcc/ada/s-valllu.ads +++ b/gcc/ada/s-valllu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valrea.adb b/gcc/ada/s-valrea.adb index 94c7231dbfd..7d93472a538 100644 --- a/gcc/ada/s-valrea.adb +++ b/gcc/ada/s-valrea.adb @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valrea.ads b/gcc/ada/s-valrea.ads index c941c7b1139..94e40584f59 100644 --- a/gcc/ada/s-valrea.ads +++ b/gcc/ada/s-valrea.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valuns.adb b/gcc/ada/s-valuns.adb index 2fe1a52009e..837c0bc7508 100644 --- a/gcc/ada/s-valuns.adb +++ b/gcc/ada/s-valuns.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valuns.ads b/gcc/ada/s-valuns.ads index ef610b5265b..8fd9b385410 100644 --- a/gcc/ada/s-valuns.ads +++ b/gcc/ada/s-valuns.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valuti.adb b/gcc/ada/s-valuti.adb index b204e4831ad..dede3366081 100644 --- a/gcc/ada/s-valuti.adb +++ b/gcc/ada/s-valuti.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valuti.ads b/gcc/ada/s-valuti.ads index e50f4c7fa76..e8f9b783fb0 100644 --- a/gcc/ada/s-valuti.ads +++ b/gcc/ada/s-valuti.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valwch.adb b/gcc/ada/s-valwch.adb index c9a3a1fbc4e..5e75a979d5a 100644 --- a/gcc/ada/s-valwch.adb +++ b/gcc/ada/s-valwch.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1997, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-valwch.ads b/gcc/ada/s-valwch.ads index d66a9f6bc14..d8d0a82e83e 100644 --- a/gcc/ada/s-valwch.ads +++ b/gcc/ada/s-valwch.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-vercon.adb b/gcc/ada/s-vercon.adb index f66eb7798a2..65f5854ca4b 100644 --- a/gcc/ada/s-vercon.adb +++ b/gcc/ada/s-vercon.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-vercon.ads b/gcc/ada/s-vercon.ads index c9e9f17dcb1..d77ada75e65 100644 --- a/gcc/ada/s-vercon.ads +++ b/gcc/ada/s-vercon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-vmexta.adb b/gcc/ada/s-vmexta.adb index ff3fc77f3cb..2d144674130 100644 --- a/gcc/ada/s-vmexta.adb +++ b/gcc/ada/s-vmexta.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-vmexta.ads b/gcc/ada/s-vmexta.ads index c9c4f1acdfa..7f2f08ed496 100644 --- a/gcc/ada/s-vmexta.ads +++ b/gcc/ada/s-vmexta.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wchcnv.adb b/gcc/ada/s-wchcnv.adb index f68c0806a19..3da16f854ea 100644 --- a/gcc/ada/s-wchcnv.adb +++ b/gcc/ada/s-wchcnv.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wchcnv.ads b/gcc/ada/s-wchcnv.ads index e3929748318..38ca113a6b2 100644 --- a/gcc/ada/s-wchcnv.ads +++ b/gcc/ada/s-wchcnv.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wchcon.ads b/gcc/ada/s-wchcon.ads index b1d750cb213..e0665a5d22a 100644 --- a/gcc/ada/s-wchcon.ads +++ b/gcc/ada/s-wchcon.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wchjis.adb b/gcc/ada/s-wchjis.adb index 59987e03f05..f5e3929c374 100644 --- a/gcc/ada/s-wchjis.adb +++ b/gcc/ada/s-wchjis.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wchjis.ads b/gcc/ada/s-wchjis.ads index a01d11c379a..5a325e0056e 100644 --- a/gcc/ada/s-wchjis.ads +++ b/gcc/ada/s-wchjis.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wchstw.adb b/gcc/ada/s-wchstw.adb index f3a0d78972b..6e8d5cb7b72 100644 --- a/gcc/ada/s-wchstw.adb +++ b/gcc/ada/s-wchstw.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wchstw.ads b/gcc/ada/s-wchstw.ads index 379948bf9d5..c58066c1204 100644 --- a/gcc/ada/s-wchstw.ads +++ b/gcc/ada/s-wchstw.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wchwts.adb b/gcc/ada/s-wchwts.adb index 5db55e0133f..c9894f7c038 100644 --- a/gcc/ada/s-wchwts.adb +++ b/gcc/ada/s-wchwts.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wchwts.ads b/gcc/ada/s-wchwts.ads index 4c8fcb61daf..053d4132fca 100644 --- a/gcc/ada/s-wchwts.ads +++ b/gcc/ada/s-wchwts.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widboo.adb b/gcc/ada/s-widboo.adb index 969fdf2d235..d41d574eaae 100644 --- a/gcc/ada/s-widboo.adb +++ b/gcc/ada/s-widboo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widboo.ads b/gcc/ada/s-widboo.ads index cf45a7dcc8d..e62286671d3 100644 --- a/gcc/ada/s-widboo.ads +++ b/gcc/ada/s-widboo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widcha.adb b/gcc/ada/s-widcha.adb index 2a6bda21397..21e65512541 100644 --- a/gcc/ada/s-widcha.adb +++ b/gcc/ada/s-widcha.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widcha.ads b/gcc/ada/s-widcha.ads index b64e9cb1e13..ccdb8c95a14 100644 --- a/gcc/ada/s-widcha.ads +++ b/gcc/ada/s-widcha.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widenu.adb b/gcc/ada/s-widenu.adb index f19d17b1775..de4a711e74e 100644 --- a/gcc/ada/s-widenu.adb +++ b/gcc/ada/s-widenu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widenu.ads b/gcc/ada/s-widenu.ads index b54508d4f30..c0584764cba 100644 --- a/gcc/ada/s-widenu.ads +++ b/gcc/ada/s-widenu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widlli.adb b/gcc/ada/s-widlli.adb index e4d6611665b..86616cec056 100644 --- a/gcc/ada/s-widlli.adb +++ b/gcc/ada/s-widlli.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widlli.ads b/gcc/ada/s-widlli.ads index 146c071dcb1..a9c608c7acb 100644 --- a/gcc/ada/s-widlli.ads +++ b/gcc/ada/s-widlli.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widllu.adb b/gcc/ada/s-widllu.adb index 1fe714430c9..3bcf00b5cb1 100644 --- a/gcc/ada/s-widllu.adb +++ b/gcc/ada/s-widllu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widllu.ads b/gcc/ada/s-widllu.ads index 689213f452f..35791751073 100644 --- a/gcc/ada/s-widllu.ads +++ b/gcc/ada/s-widllu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widwch.adb b/gcc/ada/s-widwch.adb index 622817d9b73..a5eaa0451b3 100644 --- a/gcc/ada/s-widwch.adb +++ b/gcc/ada/s-widwch.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-widwch.ads b/gcc/ada/s-widwch.ads index 64c016efaf8..ab5649abf61 100644 --- a/gcc/ada/s-widwch.ads +++ b/gcc/ada/s-widwch.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wwdcha.adb b/gcc/ada/s-wwdcha.adb index 74f07c5468a..e756b9d3610 100644 --- a/gcc/ada/s-wwdcha.adb +++ b/gcc/ada/s-wwdcha.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wwdcha.ads b/gcc/ada/s-wwdcha.ads index e14cafa17be..9981cff710e 100644 --- a/gcc/ada/s-wwdcha.ads +++ b/gcc/ada/s-wwdcha.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wwdenu.adb b/gcc/ada/s-wwdenu.adb index fefdf94975c..9a942591d2b 100644 --- a/gcc/ada/s-wwdenu.adb +++ b/gcc/ada/s-wwdenu.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wwdenu.ads b/gcc/ada/s-wwdenu.ads index 7d3e2f645ae..9bb400fefb3 100644 --- a/gcc/ada/s-wwdenu.ads +++ b/gcc/ada/s-wwdenu.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wwdwch.adb b/gcc/ada/s-wwdwch.adb index 942548d7e54..b794cd5e68b 100644 --- a/gcc/ada/s-wwdwch.adb +++ b/gcc/ada/s-wwdwch.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/s-wwdwch.ads b/gcc/ada/s-wwdwch.ads index 06f8fcc14e4..e8f06679804 100644 --- a/gcc/ada/s-wwdwch.ads +++ b/gcc/ada/s-wwdwch.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/scans.adb b/gcc/ada/scans.adb index 8c263d910e1..5622f7c6187 100644 --- a/gcc/ada/scans.adb +++ b/gcc/ada/scans.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads index 4cd6a752e25..7ff80e9c5cd 100644 --- a/gcc/ada/scans.ads +++ b/gcc/ada/scans.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/scn-nlit.adb b/gcc/ada/scn-nlit.adb index 4e766033b34..0f69a9905ca 100644 --- a/gcc/ada/scn-nlit.adb +++ b/gcc/ada/scn-nlit.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/scn-slit.adb b/gcc/ada/scn-slit.adb index 2e7df48d0cc..e1ded875893 100644 --- a/gcc/ada/scn-slit.adb +++ b/gcc/ada/scn-slit.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index ba95fd57911..cc793d59d30 100644 --- a/gcc/ada/scn.adb +++ b/gcc/ada/scn.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/scn.ads b/gcc/ada/scn.ads index e98cfade222..ead6441fbb1 100644 --- a/gcc/ada/scn.ads +++ b/gcc/ada/scn.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sdefault.ads b/gcc/ada/sdefault.ads index 4910452e17d..70029bbe975 100644 --- a/gcc/ada/sdefault.ads +++ b/gcc/ada/sdefault.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index 30604989168..d6d8a547043 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem.ads b/gcc/ada/sem.ads index 0cfd7b6a2ae..5d4ca4687e0 100644 --- a/gcc/ada/sem.ads +++ b/gcc/ada/sem.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 240a716bc89..6ddeaab6c91 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_aggr.ads b/gcc/ada/sem_aggr.ads index 3e9eb51663d..f53e0739977 100644 --- a/gcc/ada/sem_aggr.ads +++ b/gcc/ada/sem_aggr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 0fb099b87e4..ca6b3ea0204 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_attr.ads b/gcc/ada/sem_attr.ads index 06ec89901d4..5818de6a8f1 100644 --- a/gcc/ada/sem_attr.ads +++ b/gcc/ada/sem_attr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb index 0895356726b..f854f392f41 100644 --- a/gcc/ada/sem_case.adb +++ b/gcc/ada/sem_case.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_case.ads b/gcc/ada/sem_case.ads index 5fb3a1d8ff3..a1fdfc7f29c 100644 --- a/gcc/ada/sem_case.ads +++ b/gcc/ada/sem_case.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index c28ace9b244..3360f6e5db7 100644 --- a/gcc/ada/sem_cat.adb +++ b/gcc/ada/sem_cat.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_cat.ads b/gcc/ada/sem_cat.ads index 41f6a8dd09f..bd3f395bd1a 100644 --- a/gcc/ada/sem_cat.ads +++ b/gcc/ada/sem_cat.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 16c3456beba..37d789e32c0 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch10.ads b/gcc/ada/sem_ch10.ads index 2ad29444359..1737bc1e976 100644 --- a/gcc/ada/sem_ch10.ads +++ b/gcc/ada/sem_ch10.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch11.adb b/gcc/ada/sem_ch11.adb index 428aaf427a7..52a620727a0 100644 --- a/gcc/ada/sem_ch11.adb +++ b/gcc/ada/sem_ch11.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch11.ads b/gcc/ada/sem_ch11.ads index 493cdd6173d..263b15014e6 100644 --- a/gcc/ada/sem_ch11.ads +++ b/gcc/ada/sem_ch11.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 35d7e041321..e7b4f364484 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch12.ads b/gcc/ada/sem_ch12.ads index cf800b4c36e..a39a2895fc8 100644 --- a/gcc/ada/sem_ch12.ads +++ b/gcc/ada/sem_ch12.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 6eb7b4f79d8..776aeb8342e 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch13.ads b/gcc/ada/sem_ch13.ads index e768d24ca44..3eab365915c 100644 --- a/gcc/ada/sem_ch13.ads +++ b/gcc/ada/sem_ch13.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch2.adb b/gcc/ada/sem_ch2.adb index 8395ee3b823..cfe2e784cf0 100644 --- a/gcc/ada/sem_ch2.adb +++ b/gcc/ada/sem_ch2.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch2.ads b/gcc/ada/sem_ch2.ads index 4c9067ce527..cc5dd1dc383 100644 --- a/gcc/ada/sem_ch2.ads +++ b/gcc/ada/sem_ch2.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index ee8472e7233..e57ddc7e780 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch3.ads b/gcc/ada/sem_ch3.ads index 3647edecbfb..ebcd861dbe5 100644 --- a/gcc/ada/sem_ch3.ads +++ b/gcc/ada/sem_ch3.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 828ad40eb48..23d17e9bdd9 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch4.ads b/gcc/ada/sem_ch4.ads index eefe8333e17..ed10371c3c9 100644 --- a/gcc/ada/sem_ch4.ads +++ b/gcc/ada/sem_ch4.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index cd7df7b82a6..10cdec474b2 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch5.ads b/gcc/ada/sem_ch5.ads index 390676842ac..9963b31b371 100644 --- a/gcc/ada/sem_ch5.ads +++ b/gcc/ada/sem_ch5.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index c8e79b8376f..89687887b11 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch6.ads b/gcc/ada/sem_ch6.ads index 26bfc82a535..1db25e0a4fb 100644 --- a/gcc/ada/sem_ch6.ads +++ b/gcc/ada/sem_ch6.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb index 8cd6c215e1f..2aa339ee826 100644 --- a/gcc/ada/sem_ch7.adb +++ b/gcc/ada/sem_ch7.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch7.ads b/gcc/ada/sem_ch7.ads index 4ef0893ae80..040d3a38361 100644 --- a/gcc/ada/sem_ch7.ads +++ b/gcc/ada/sem_ch7.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 1dfddf64c77..243bcd8150e 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch8.ads b/gcc/ada/sem_ch8.ads index fd4b226135d..e94a229479f 100644 --- a/gcc/ada/sem_ch8.ads +++ b/gcc/ada/sem_ch8.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index 9a25e0c8a62..5c428aadda3 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_ch9.ads b/gcc/ada/sem_ch9.ads index 651445f4322..017b6e42651 100644 --- a/gcc/ada/sem_ch9.ads +++ b/gcc/ada/sem_ch9.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb index b1fe0dd28ae..29b8e409e21 100644 --- a/gcc/ada/sem_disp.adb +++ b/gcc/ada/sem_disp.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_disp.ads b/gcc/ada/sem_disp.ads index d486df88020..6245df244f1 100644 --- a/gcc/ada/sem_disp.ads +++ b/gcc/ada/sem_disp.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_dist.adb b/gcc/ada/sem_dist.adb index d9f1997e7d6..a94e59c731d 100644 --- a/gcc/ada/sem_dist.adb +++ b/gcc/ada/sem_dist.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_dist.ads b/gcc/ada/sem_dist.ads index 760d9024749..1ce18bfe9a6 100644 --- a/gcc/ada/sem_dist.ads +++ b/gcc/ada/sem_dist.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index 4ff0358efa2..f440f7d3cc9 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_elab.ads b/gcc/ada/sem_elab.ads index 7a760263da3..c081a1f594b 100644 --- a/gcc/ada/sem_elab.ads +++ b/gcc/ada/sem_elab.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb index 7409ac93e37..bde2f9845f3 100644 --- a/gcc/ada/sem_elim.adb +++ b/gcc/ada/sem_elim.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_elim.ads b/gcc/ada/sem_elim.ads index e7391df08a1..98d45d8ecda 100644 --- a/gcc/ada/sem_elim.ads +++ b/gcc/ada/sem_elim.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index 1d9c78b5b55..92bf0a14199 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_eval.ads b/gcc/ada/sem_eval.ads index e0efda3d972..36553167b5e 100644 --- a/gcc/ada/sem_eval.ads +++ b/gcc/ada/sem_eval.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_intr.adb b/gcc/ada/sem_intr.adb index 54ae2d23585..b0a5579ba87 100644 --- a/gcc/ada/sem_intr.adb +++ b/gcc/ada/sem_intr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_intr.ads b/gcc/ada/sem_intr.ads index 54b002c96e1..fcc26b077f4 100644 --- a/gcc/ada/sem_intr.ads +++ b/gcc/ada/sem_intr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_maps.adb b/gcc/ada/sem_maps.adb index 91da4a84447..c0e1e125e87 100644 --- a/gcc/ada/sem_maps.adb +++ b/gcc/ada/sem_maps.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_maps.ads b/gcc/ada/sem_maps.ads index f9404febd9c..ef491422f7b 100644 --- a/gcc/ada/sem_maps.ads +++ b/gcc/ada/sem_maps.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_mech.adb b/gcc/ada/sem_mech.adb index ed583c19f9c..fb58aebc232 100644 --- a/gcc/ada/sem_mech.adb +++ b/gcc/ada/sem_mech.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1996-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_mech.ads b/gcc/ada/sem_mech.ads index 71a108273b5..2641e2bb173 100644 --- a/gcc/ada/sem_mech.ads +++ b/gcc/ada/sem_mech.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1996-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index a7e867aabef..d8debec4990 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_prag.ads b/gcc/ada/sem_prag.ads index 4aaa86c07b4..d1ec46e19a5 100644 --- a/gcc/ada/sem_prag.ads +++ b/gcc/ada/sem_prag.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index c1390ecd760..6df80d22570 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_res.ads b/gcc/ada/sem_res.ads index a88b3a6306b..1205ce15f6b 100644 --- a/gcc/ada/sem_res.ads +++ b/gcc/ada/sem_res.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_smem.adb b/gcc/ada/sem_smem.adb index aab9f8ad19e..0964f0c51dc 100644 --- a/gcc/ada/sem_smem.adb +++ b/gcc/ada/sem_smem.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_smem.ads b/gcc/ada/sem_smem.ads index 1ca0b1f4c53..8e6aebfe3de 100644 --- a/gcc/ada/sem_smem.ads +++ b/gcc/ada/sem_smem.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2000, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_type.adb b/gcc/ada/sem_type.adb index 4c708322e19..8666ae706ee 100644 --- a/gcc/ada/sem_type.adb +++ b/gcc/ada/sem_type.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_type.ads b/gcc/ada/sem_type.ads index 2eb4cae2adb..75908572e9b 100644 --- a/gcc/ada/sem_type.ads +++ b/gcc/ada/sem_type.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index b05645e46e3..45c02c50767 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index ba1d3f1c3e7..f0f518c104c 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_vfpt.adb b/gcc/ada/sem_vfpt.adb index 917404aada2..a17a3314e32 100644 --- a/gcc/ada/sem_vfpt.adb +++ b/gcc/ada/sem_vfpt.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1997-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_vfpt.ads b/gcc/ada/sem_vfpt.ads index c2d7adcbab4..a3975661053 100644 --- a/gcc/ada/sem_vfpt.ads +++ b/gcc/ada/sem_vfpt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1997 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 13b623188b8..2e191b3e435 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sem_warn.ads b/gcc/ada/sem_warn.ads index 5994fbefdfa..cab5c02c0f9 100644 --- a/gcc/ada/sem_warn.ads +++ b/gcc/ada/sem_warn.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sequenio.ads b/gcc/ada/sequenio.ads index 25b43f6f5b8..9c205018d87 100644 --- a/gcc/ada/sequenio.ads +++ b/gcc/ada/sequenio.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/sfn_scan.adb b/gcc/ada/sfn_scan.adb index 067c285ffc8..1652e6eb732 100644 --- a/gcc/ada/sfn_scan.adb +++ b/gcc/ada/sfn_scan.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2000-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sfn_scan.ads b/gcc/ada/sfn_scan.ads index 1afb3469142..93e13bd8ce8 100644 --- a/gcc/ada/sfn_scan.ads +++ b/gcc/ada/sfn_scan.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2000-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinfo-cn.adb b/gcc/ada/sinfo-cn.adb index 26fbbb56680..e9af734e47f 100644 --- a/gcc/ada/sinfo-cn.adb +++ b/gcc/ada/sinfo-cn.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinfo-cn.ads b/gcc/ada/sinfo-cn.ads index 53ecd6549f4..3105627a65b 100644 --- a/gcc/ada/sinfo-cn.ads +++ b/gcc/ada/sinfo-cn.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 0749987663c..f782b3ddf45 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index d5ea8ff3d96..7f3fe5cf6c4 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinput-d.adb b/gcc/ada/sinput-d.adb index 0b30f4ac003..36c80d17e20 100644 --- a/gcc/ada/sinput-d.adb +++ b/gcc/ada/sinput-d.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinput-d.ads b/gcc/ada/sinput-d.ads index 36ee1e6867e..2976ad4debd 100644 --- a/gcc/ada/sinput-d.ads +++ b/gcc/ada/sinput-d.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinput-l.adb b/gcc/ada/sinput-l.adb index df8c01e4061..fa5819ff30a 100644 --- a/gcc/ada/sinput-l.adb +++ b/gcc/ada/sinput-l.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinput-l.ads b/gcc/ada/sinput-l.ads index a9734682a13..9297530e5bc 100644 --- a/gcc/ada/sinput-l.ads +++ b/gcc/ada/sinput-l.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinput-p.adb b/gcc/ada/sinput-p.adb index b08fbf1962a..d0985c4eaae 100644 --- a/gcc/ada/sinput-p.adb +++ b/gcc/ada/sinput-p.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinput-p.ads b/gcc/ada/sinput-p.ads index c183dc3196c..1cc19b378b8 100644 --- a/gcc/ada/sinput-p.ads +++ b/gcc/ada/sinput-p.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinput.adb b/gcc/ada/sinput.adb index c8a01982bb5..ec9659eb7c8 100644 --- a/gcc/ada/sinput.adb +++ b/gcc/ada/sinput.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index 0ce61d9fafd..1bf1af33019 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/snames.adb b/gcc/ada/snames.adb index 9a1a1beb6ae..4af08092924 100644 --- a/gcc/ada/snames.adb +++ b/gcc/ada/snames.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/snames.ads b/gcc/ada/snames.ads index 529de3bc85b..0c3a8cb3557 100644 --- a/gcc/ada/snames.ads +++ b/gcc/ada/snames.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index a5a37974173..4d1b4a4ac0b 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/sprint.ads b/gcc/ada/sprint.ads index 612ad9d2280..273d6a876c7 100644 --- a/gcc/ada/sprint.ads +++ b/gcc/ada/sprint.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/stand.adb b/gcc/ada/stand.adb index c38e2c7750b..7b477f1268a 100644 --- a/gcc/ada/stand.adb +++ b/gcc/ada/stand.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/stand.ads b/gcc/ada/stand.ads index c20cfcbeb1e..91207695765 100644 --- a/gcc/ada/stand.ads +++ b/gcc/ada/stand.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/stringt.adb b/gcc/ada/stringt.adb index 2540d4866d4..9b2bb57e32f 100644 --- a/gcc/ada/stringt.adb +++ b/gcc/ada/stringt.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/stringt.ads b/gcc/ada/stringt.ads index 46a15c81bd1..ca68c259347 100644 --- a/gcc/ada/stringt.ads +++ b/gcc/ada/stringt.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/style.adb b/gcc/ada/style.adb index cec3e367459..a693569bb71 100644 --- a/gcc/ada/style.adb +++ b/gcc/ada/style.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/style.ads b/gcc/ada/style.ads index 97f50df4989..7d59b557997 100644 --- a/gcc/ada/style.ads +++ b/gcc/ada/style.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/stylesw.adb b/gcc/ada/stylesw.adb index fbdbd28620a..1213da8987e 100644 --- a/gcc/ada/stylesw.adb +++ b/gcc/ada/stylesw.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/stylesw.ads b/gcc/ada/stylesw.ads index 36a5a72434d..5a7a62d0e15 100644 --- a/gcc/ada/stylesw.ads +++ b/gcc/ada/stylesw.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/switch-b.adb b/gcc/ada/switch-b.adb index 4819cfccd67..08ad2732932 100644 --- a/gcc/ada/switch-b.adb +++ b/gcc/ada/switch-b.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/switch-b.ads b/gcc/ada/switch-b.ads index 5bef704531d..f8c7d32f4f3 100644 --- a/gcc/ada/switch-b.ads +++ b/gcc/ada/switch-b.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 5502290f00a..4052db70d03 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/switch-c.ads b/gcc/ada/switch-c.ads index e6f9d7f84bf..101eebf84bd 100644 --- a/gcc/ada/switch-c.ads +++ b/gcc/ada/switch-c.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/switch-m.adb b/gcc/ada/switch-m.adb index 52c473bb910..b04672b5ffc 100644 --- a/gcc/ada/switch-m.adb +++ b/gcc/ada/switch-m.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/switch-m.ads b/gcc/ada/switch-m.ads index a16dd18840f..e63ad66e5fd 100644 --- a/gcc/ada/switch-m.ads +++ b/gcc/ada/switch-m.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/switch.adb b/gcc/ada/switch.adb index 63cde50198c..4601e927e0c 100644 --- a/gcc/ada/switch.adb +++ b/gcc/ada/switch.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/switch.ads b/gcc/ada/switch.ads index eccfdb7452f..6e5e4c2f102 100644 --- a/gcc/ada/switch.ads +++ b/gcc/ada/switch.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/system.ads b/gcc/ada/system.ads index 8374f5658b2..0f001c2fdbd 100644 --- a/gcc/ada/system.ads +++ b/gcc/ada/system.ads @@ -7,7 +7,6 @@ -- S p e c -- -- (Compiler Version) -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- diff --git a/gcc/ada/table.adb b/gcc/ada/table.adb index e9acfc278ef..60f185b0d96 100644 --- a/gcc/ada/table.adb +++ b/gcc/ada/table.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/table.ads b/gcc/ada/table.ads index 205aac306ac..7c78a30da42 100644 --- a/gcc/ada/table.ads +++ b/gcc/ada/table.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb index 4e1719f3134..2621dbf2045 100644 --- a/gcc/ada/targparm.adb +++ b/gcc/ada/targparm.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/targparm.ads b/gcc/ada/targparm.ads index 4184ba577ff..7aff79d53f3 100644 --- a/gcc/ada/targparm.ads +++ b/gcc/ada/targparm.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb index 8bc32f7182d..1548a41cf16 100644 --- a/gcc/ada/tbuild.adb +++ b/gcc/ada/tbuild.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/tbuild.ads b/gcc/ada/tbuild.ads index c535334d732..ef321a14940 100644 --- a/gcc/ada/tbuild.ads +++ b/gcc/ada/tbuild.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/text_io.ads b/gcc/ada/text_io.ads index 75ffe4fdcc2..90e4ac479c6 100644 --- a/gcc/ada/text_io.ads +++ b/gcc/ada/text_io.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 4155eecfd6e..797671de7d3 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -435,11 +435,13 @@ tree_transform (gnat_node) here since GNU_RESULT may be a CONST_DECL. */ if (DECL_P (gnu_result) && (DECL_BY_REF_P (gnu_result) - || DECL_BY_COMPONENT_PTR_P (gnu_result))) + || (TREE_CODE (gnu_result) == PARM_DECL + && DECL_BY_COMPONENT_PTR_P (gnu_result)))) { int ro = DECL_POINTS_TO_READONLY_P (gnu_result); - if (DECL_BY_COMPONENT_PTR_P (gnu_result)) + if (TREE_CODE (gnu_result) == PARM_DECL + && DECL_BY_COMPONENT_PTR_P (gnu_result)) gnu_result = convert (build_pointer_type (gnu_result_type), gnu_result); diff --git a/gcc/ada/tree_gen.adb b/gcc/ada/tree_gen.adb index ca97b7f9967..8aba1ceb1ea 100644 --- a/gcc/ada/tree_gen.adb +++ b/gcc/ada/tree_gen.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/tree_gen.ads b/gcc/ada/tree_gen.ads index b143d44e3fd..81905f978c3 100644 --- a/gcc/ada/tree_gen.ads +++ b/gcc/ada/tree_gen.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/tree_in.adb b/gcc/ada/tree_in.adb index d0442a3c756..5c469bd5a29 100644 --- a/gcc/ada/tree_in.adb +++ b/gcc/ada/tree_in.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-1999, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/tree_in.ads b/gcc/ada/tree_in.ads index 43c90380c92..5a16c7289fe 100644 --- a/gcc/ada/tree_in.ads +++ b/gcc/ada/tree_in.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/tree_io.adb b/gcc/ada/tree_io.adb index 42d1783d75f..d0170dcb59f 100644 --- a/gcc/ada/tree_io.adb +++ b/gcc/ada/tree_io.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/tree_io.ads b/gcc/ada/tree_io.ads index e0624ee0c0c..5f72c69cb83 100644 --- a/gcc/ada/tree_io.ads +++ b/gcc/ada/tree_io.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index 6685ba9439c..e77729eff18 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/treepr.ads b/gcc/ada/treepr.ads index e8d812da55d..40422305a2b 100644 --- a/gcc/ada/treepr.ads +++ b/gcc/ada/treepr.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/ttypef.ads b/gcc/ada/ttypef.ads index 9ef4186c244..0afac4b6e93 100644 --- a/gcc/ada/ttypef.ads +++ b/gcc/ada/ttypef.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/ttypes.ads b/gcc/ada/ttypes.ads index edce7a01cdf..fb9f5c2d8cc 100644 --- a/gcc/ada/ttypes.ads +++ b/gcc/ada/ttypes.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/types.adb b/gcc/ada/types.adb index 04ec4e5dc2f..69b019ed086 100644 --- a/gcc/ada/types.adb +++ b/gcc/ada/types.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads index e2e1cc726c1..65731227c65 100644 --- a/gcc/ada/types.ads +++ b/gcc/ada/types.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index a583d82f6cf..5326b9c3da6 100644 --- a/gcc/ada/uintp.adb +++ b/gcc/ada/uintp.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/uintp.ads b/gcc/ada/uintp.ads index cdb65601eb5..c982f1bb2a8 100644 --- a/gcc/ada/uintp.ads +++ b/gcc/ada/uintp.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/uname.adb b/gcc/ada/uname.adb index 48292f5814c..e0471ea89bc 100644 --- a/gcc/ada/uname.adb +++ b/gcc/ada/uname.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/uname.ads b/gcc/ada/uname.ads index 568d4a14c6e..2439b9d4211 100644 --- a/gcc/ada/uname.ads +++ b/gcc/ada/uname.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/unchconv.ads b/gcc/ada/unchconv.ads index bcbebbdc8bb..3ffd43182d5 100644 --- a/gcc/ada/unchconv.ads +++ b/gcc/ada/unchconv.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/unchdeal.ads b/gcc/ada/unchdeal.ads index a7f4a87f6c5..663e5e52152 100644 --- a/gcc/ada/unchdeal.ads +++ b/gcc/ada/unchdeal.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- 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 -- diff --git a/gcc/ada/urealp.adb b/gcc/ada/urealp.adb index 69a81adb297..4c745093efd 100644 --- a/gcc/ada/urealp.adb +++ b/gcc/ada/urealp.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/urealp.ads b/gcc/ada/urealp.ads index 9361ac37a3a..21bda9234cf 100644 --- a/gcc/ada/urealp.ads +++ b/gcc/ada/urealp.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb index 283a5d1dabe..9da5bda3750 100644 --- a/gcc/ada/usage.adb +++ b/gcc/ada/usage.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/usage.ads b/gcc/ada/usage.ads index cb882b5b1e7..685fc35c9e6 100644 --- a/gcc/ada/usage.ads +++ b/gcc/ada/usage.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/validsw.adb b/gcc/ada/validsw.adb index 43942b870e7..11ef50029c3 100644 --- a/gcc/ada/validsw.adb +++ b/gcc/ada/validsw.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/validsw.ads b/gcc/ada/validsw.ads index 0632be69587..7a7b4d4fcd4 100644 --- a/gcc/ada/validsw.ads +++ b/gcc/ada/validsw.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/widechar.adb b/gcc/ada/widechar.adb index 0c14ceb6906..f0d5771486d 100644 --- a/gcc/ada/widechar.adb +++ b/gcc/ada/widechar.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/widechar.ads b/gcc/ada/widechar.ads index 1d495e612bb..5126d4c758a 100644 --- a/gcc/ada/widechar.ads +++ b/gcc/ada/widechar.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/xeinfo.adb b/gcc/ada/xeinfo.adb index f648678c2a4..e3137211c67 100644 --- a/gcc/ada/xeinfo.adb +++ b/gcc/ada/xeinfo.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/xnmake.adb b/gcc/ada/xnmake.adb index f2c27929677..32600baa2f6 100644 --- a/gcc/ada/xnmake.adb +++ b/gcc/ada/xnmake.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb index 2f43edb5f07..93be4f86900 100644 --- a/gcc/ada/xr_tabls.adb +++ b/gcc/ada/xr_tabls.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/xr_tabls.ads b/gcc/ada/xr_tabls.ads index b0124898021..f15ebd7e7f8 100644 --- a/gcc/ada/xr_tabls.ads +++ b/gcc/ada/xr_tabls.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/xref_lib.adb b/gcc/ada/xref_lib.adb index f9bec6cfe76..fcdac58f225 100644 --- a/gcc/ada/xref_lib.adb +++ b/gcc/ada/xref_lib.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1998-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/xref_lib.ads b/gcc/ada/xref_lib.ads index 24c87832a7e..dcbc5907659 100644 --- a/gcc/ada/xref_lib.ads +++ b/gcc/ada/xref_lib.ads @@ -6,7 +6,6 @@ -- -- -- S p e c -- -- -- --- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/xsinfo.adb b/gcc/ada/xsinfo.adb index 891f981ebe9..011a2759594 100644 --- a/gcc/ada/xsinfo.adb +++ b/gcc/ada/xsinfo.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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/xsnames.adb b/gcc/ada/xsnames.adb index 358d3480f5d..bf145004a6e 100644 --- a/gcc/ada/xsnames.adb +++ b/gcc/ada/xsnames.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- diff --git a/gcc/ada/xtreeprs.adb b/gcc/ada/xtreeprs.adb index a9cff616444..014d1d85e97 100644 --- a/gcc/ada/xtreeprs.adb +++ b/gcc/ada/xtreeprs.adb @@ -6,7 +6,6 @@ -- -- -- B o d y -- -- -- --- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- |