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 e2ff851..42b6236 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 daa60b3..160a086 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 ab8c12f..e6caea3 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 55d2ece..3f3bf78 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 4175981..2d1bbe4 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 780a28f..0502180 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 f4eb3b4..aa928b7 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 2c1dee9..0703268 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 fe8589a..4044c01 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 7e79f3e..6bfacf7 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 a9f25c2..e88cd53 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 0676cba..2af7a2a 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 9b8ef69..80de520 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 97600ac..252801d 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 f66936d..9782121 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 7e424a8..63c8a5e 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 fda4341..8c82f43 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 d207401..474649c 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 149b741..111b01e 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 bb5e484..ac7d086 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 5ca0085..0f9678e 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 eaf368a..37e7777 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 dc27d1f..c22d139 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 0d4cbbd..0162918 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 1357892..b275cab 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 5f93ed3..048e183 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 7db8eef..f893e55 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 bfc9345..dc9bea2 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 383c89f..efa1d3c 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 4dfc2a8..fd208c1 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 af60c1f..3c1ee22 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 9e6e856..0624dfb 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 d6a33d0..8217d30 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 b44bb89..a5ddb4a 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 e257c02..8ffdb3a 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 1666b72..99b8dca 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 e2f6ca9..6704346 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 78981b8..5e4f585 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 7969538..25f8cc4 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 7b9eee6..0ee2dea 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 8b68cb6..834ff6b 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 71abd65..8c67eff 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 9ffee54..9638fb0 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 e052a8e..f8ed434 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 ac7ca5a..c3c54be 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 c276ead..8b159a8 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 7e2b166..63ab7be 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 02c4385..0e03bd0 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 c22e205..2f4431f 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 9f368b6..63485e1 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 eddc881..3643653 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 99caa36..d13eed4 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 4ed91dc..723e4a3 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 d64f464..bcf7d45 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 815c5ac..2573382 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 edc63d0..ee49d71 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 85c672a..fbadd9b 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 78d0536..e70ee35 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 2953bfc..b0cb9be 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 ee2ecf7..937041e 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 47b90a9..c789493 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 fe1fa084..6c90fad 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 e5f2c5c..4f471d8 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 2ee53e0..539b8df 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 8c142f4..88dab8b 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 5e5a1aa..b76c123 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 2dee201..1d99784 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 96749dd..957a583 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 1b25d7d..1835448 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 5b8aeae..5a52148 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 b131c14..9da53a7 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 7828de7..179f351 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 1797c55..0438b76 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 7d2eade..2365dc1 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 4380591..8868a84 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 4807794..01e6381 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 5fa8008..ab83d46 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 e0b9945..3e6bbc9 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 b4773b3..f185e81 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 295266b..315724e 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 96098f5..ae3ce10 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 0db21a7..48eec81 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 1de0caa..31d2760 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 8b02ad9..2754ae4 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 5436f44..51a288a 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 ac81cda..117b2b4 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 d9dcd81..ed5d8ac 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 ec3789f..f2d5453 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 e6a127c..0d6a3d2 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 d51ad37..ae5c014 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 b09de6d..9a59aa6 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 3bf7994..fd33718 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 ea5e6a9..81b82ec 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 137748c..13d5361 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 4c02c45..c26def9 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 6854da1..afef59e 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 dc4c7ab..47a4e4b 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 492f5ec..4db8c76 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 bdabc5b..f884381 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 f101cce..2de2e91 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 951404c..c39e7c6 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 04aabb1..17ed7f5 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 6aec267..468d650 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 5e3d568..c977fec 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 f62ecff..a335add 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 e7f4fd6..d85b137 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 fd6ce78..0562c9c 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 7520c04..78b5123 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 5685cc0..4d46c8e 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 f4ce4ce..7fa6fb6 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 36d2b57..538b3fa9 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 e05aa84..b2b4b29 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 3741f33..b56c35d 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 a6b498c..697c595 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 b13aee6..404da66 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 f3517cf..297a48c 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 434b27a..9dd412c 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 155bf02..1db5039 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 d0553e3..1dfb371 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 1938e08..829daa2 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 db2b8d9..59d34ac 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 b1e7eb6..06f0e6c 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 2ad9dceb..58460cd 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 988f8ba..aa1e97b 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 89dafed..0bd2d2f 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 a0a7381..f4bfca5 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 649499a..710176c 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 2a7cf5b..b6e15c7 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 4f11781..77315a7 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 bb90d60..2909c7d 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 33f1ffd..1bd01f1 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 952196d..847dda8 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 506fb67..d39b090 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 dd1143f..e23bd01 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 9bd2e1e..859bcd0 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 cd19ef0..1002ee7 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 251cd6c..ea4653ee 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 b3a05e1..a6c1e9e 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 928fe5c..0fa3872 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 872a579..266ba88 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 fb352ae..4253149 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 0c923c7..6afffa9 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 14b3931..9a65ed2 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 6eb6b74..e5c8eee 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 bf06cf3..c32dd99 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 6566a16..d679bd0 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 8c198d9..5a0382d 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 01fe139..bf4cc30 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 eddbdd1..5c0909e 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 433dd1e..7903bb6 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 d06eca3..6db0cce 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 bc504ad..a777bea 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 d9d6e10..360596d 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 6c62a07..ddf582b 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 fbd683a..0766474 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 a51413c..f0bbc05 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 b708f82..59b2f8a 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 492d57d..03a531e 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 8e0206c..8b1bf03 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 8a7594b..dc367b6 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 052dfc7..b6ade06 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 563465d..0452ae8 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 c285373..cf9aee5 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 b4279a0..4ceee49 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 f828e41..0e83233 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 eb52268..a4094c8 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 046c61d..26160c6 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 2f2b9eae..7612018 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 f66777a..03a724a 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 9b274b5..0f1defc 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 920dc1d..1fbb58c 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 b4b98be..398db31 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 01d15ff..1a5d036 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 551911e..e7fd405 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 7c7a325..2051041 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 57b15f1..8e4764e 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 00873bf..20379da 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 c1539dd..9690286 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 57242e0..98058a2 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 c0c8fbe..ee8acee 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 1891eed..252ce1f 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 6d4cf22..a0c76f5 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 4d4d0e9..5c1b1e1 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 140eebb..5fc600c 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 e3c3b3a..a0833b8 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 73188f8..e3a7ff7 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 1392f52..a137333 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 1d3731d..857499f 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 c44200c..cca1785 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 038b18f..0d72073 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 cd184e8..e7dd421 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 bf5371b..784953b 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 04d63cf..ee9903a 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 5fd368b..541e6af 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 078e05c..1715d7f 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 055c3f7..00d4532 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 ceb66b7..1173340 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 22ceb03..0a0162d 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 86a0741..ef3788954 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 a914a3f..c60ec20 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 f446d7a..682bac1 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 e916524..6ef118a 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 3ef0c1e..2124795 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 27e276b..c1de7b1 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 35e3dc8..46bb870 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 8d9bfe2..b3a31ce 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 bb92ec4..e4c0529 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 6048672..4cc2a21 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 239794a..7ada98c 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 8540474..cb7afc1 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 b46175c..0a55dd6 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 0e256a6..fabaf68 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 6613ab6..e967906 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 aef68f3..20d44df 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 fd89d71..6137c33 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 1a87815..f4468ad 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 4531cd0..fd5b9fe 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 3b53098..e4c4d4f 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 d24b7f9..9aba91f 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 979f11e..3039314 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 a928a63..c9a0b11 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 b1cf917..4eab882 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 42bc70c..00a3092 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 474d7b7..622db08 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 aeca7f7..745ba84 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 98921d5..4263b26 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 3d1e432..a9095e2 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 b840112..03ea281 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 f72cd5f..b1defdf 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 342df6d..a60672d 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 94d9a68..125e144 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 edc9500..5ab89c1 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 8a5ad8e..0475dee 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 1535adb..e493261 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 b6199de..a2451af 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 2168e7c..5340da1 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 901a5f5..462b46f 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 70ea60a..31a79ea 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 3c8b434..2486730 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 63fbf58c..61b6704 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 e659910..c4f7a48 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 8b2259c..1c95dbc 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 ca17f2c..bd428d0 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 1aeec0c..0ce5d80 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 0691810..19e77d0 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 e18d048..842765f 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 0416edf..5f8e6c9 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 d6cde0c..6dbf9be 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 202bfeb..feef9cc 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 47773db..8896906 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 5c582fb..fc19f0c 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 56ae57d..d7ae2c8 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 864f1c4..320ce8c 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 df7139b..8729061 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 033f81e..9305836 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 285ddde..c7eebb5 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 7156b8d..a7f7dc1 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 6d3e184..5a93e87 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 c9d614f..fbc9a1e2 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 0ade1a8..5e8c43c 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 de851c0..30e9dad 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 fae755c..b039bca 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 4a22af1..7c0b07e 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 45bfc1c..298aecc 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 5a685c6..291d845 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 3e8bc0b..ca878f0 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 942258f..e637e5d 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 331ece7..3ebb822 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 6799551..5d75217 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 3bf8901..35efcc2 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 a915165..15969d7 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 5f04f1e..4320348 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 9e93424..ca747a1 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 4247f57..ecee254 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 237f752..eedcbaa 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 b14dffc..5675368 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 1c6ea63..615b019 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 7335ca1..cfd297f 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 49b03fd..23a73c6 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 c282afe..bd1a960 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 d0062ed..b434593 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 6fab6d2..3e9a08f 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 0298a1e..e9cefcf 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 6997e19..198597e 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 9d69f58..9762a5d 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 af2f590..645df96 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 1038dc2..08e36a9 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 94eabcb..689a22a 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 f63b2b3..f32c97d 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 55df015..68351dc 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 2212aa8..2f414f6 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 0ca2a65..8f07326 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 3cdb806..1513a21 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 c80b511..6b0c147 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 efaa77d..e8ec5ac 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 0e9974e..7ffe6ee 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 2d1595b..31a966c 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 3a60883..29db92a 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 f3521f9..8dba572 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 4cf7e48..13422c9 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 25b2d44..fe90900 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 f57ee4f..74c9be2 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 4e525e8..6a3ff55 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 0169a46..148bd3f 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 bcabc5f..c5b1eea 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 75666ae..982ca63 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 d54061a..3da4479 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 268ed4a..dc71f1b 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 f2f74de..7331db5 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 ad41e4a..23bfc0b 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 bf1bcef..079336e 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 97ee665..a8b8ae9 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 b5c0c55..01f2166 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 e950a33..113957e 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 91f1d93..d2cf86e 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 01475bd..737f3c7 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 8dc7c2c..c98f453 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 25b0efe..200d900 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 53f4d0d..adf4ba7 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 a5c3c7d..fca6211 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 49bf2e1..2b2fb27 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 71fc67d..b3a6a48 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 5ebb270..9da303d 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 69186ef..b4ab29a 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 101fc84..6d9d114 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 a946b4c..9cd8071 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 7506e66..6bc3b01 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 3045330..e0c9383 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 5f29707..f273a24 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 59d4a7e..37ad4a0 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 d20ed44..c133865 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 8dcc36b..42c74ee 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 6e9073d..75795da 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 6888eb9..bf7982d 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 6f8ab83..0f8b959 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 1f75196..ec87284 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 4c0759d..56d4050 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 b1f8f79..d0c79ae 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 05c228d..71e44a3 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 0e9cbc8..44099ad 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 2162b66..f420f76 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 c3188da..2f3f9d6 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 090b72d..869ca8b 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 ce713a6..4a92673 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 ca1c46e..a1b3bad 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 a2a2dcd..283cfa3 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 935a514..7953fef 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 f0027ab..d40f153 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 4c92a5c..f528c1f 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 6e98d57..cef84b4 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 82a7e7b..527f12a 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 f2f07c8..2f73ee0 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 c5ae4b2..c043570 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 c4bd046..fa4d4bc 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 677db98..ef03f1e 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 645eb15..7b0258b 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 4de3bf3..98725fd 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 005f476..ba709e0 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 b0b456a..049d97e 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 d3cbae3..30324a0 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 78d2c10..79bbbea 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 7bad7e5..c7dafd6 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 afd2930..6e5a8ff 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 34afe16..69a3114 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 c5e4f38..3306c3b 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 460ba68..66b64dd 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 0170178..4a98630 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 744083d..dae0cba 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 c93ee86..12d75dc 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 b747bfa..b6fc121 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 942adab..0240064 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 9da51f3..96c0a2a 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 827e0b2..ff46310 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 9d58731..0053eb5 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 ff5c50c..34bacd8 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 deefdaa..59c9585 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 1359b95..e967910 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 393323d..e982e1a 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 b1da5ef..78ce236 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 9b5119c..06e30a7 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 6b3b7b7..4019f4c 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 6129306..fe86b4e 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 bb3ba3f..3fe96f1 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 9713818..44ac35f 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 fb82a9b..6621c74 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 6567d3e..8749f49 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 41f15f3..c7c6741 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 37f1ee3..d992392 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 dda3dc8..35f1763 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 de7c185..3ad82b3 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 98788be..44aebec 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 6e4b319..c72f2f02 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 54396a5..28618c8 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 08eda7e..bc7ac5d 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 8f0fd53..6696f25 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 b8eacef..0045f01 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 9324b7f..cdd4805 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 48bd175..5083c0b 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 18402c2..5602d0c 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 b877f32..b123223 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 db38b93..af0db6c 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 22b6c51..be43e0a 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 eaebe7b..9f1675a 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 9cbe8b2..bbb5905 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 5c9f182..58de607 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 4e79513..87eb3c3 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 cc63149..9ba49fa 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 290ad00..e81edd7 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 e786a0f..1684e51 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 66f4676..919bc87 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 04d13c4..1de7b45 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 d7917cf..15729d6 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 c9c2216..d0ba12d 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 a07f365..8cabfd1 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 e7e2358..b9d2b9b 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 c707988..c13ffbd 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 89f06ac..8185f2e 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 6c63a79..5725f9e 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 0b9822a..fd8c30c 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 50942ed..85cabae 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 bcc0c67..d670d341 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 bdfaaf5..9f6e208 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 1e5b81b..74fc122 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 ffa8b3c..a0b12a8 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 840862e..6e49ac0 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 ace6c2f..c6b888c 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 7aae981..846f986 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 95e0e9c..163f92e 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 9a4af30..20d1103 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 110b50d..3ef72e4 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 1fc730a..79d5ebd 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 72e4f08..31d3983 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 b4829d5..85618aa 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 589cc52..e2f9a48 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 281dc2e..55f8807 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 d95d669..6cd68db 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 05b94c8..597c439 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 b6304a3..8ccafde 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 86c6b44..50452bc 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 71368e6..284ed47 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 e235f01..ea4703a 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 8c5a883..3875992 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 02166db..4bd2ef7 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 b91ad36..cccf324 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 176cb4a..e13676c 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 ceb5433..a3a5a32 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 4b79009..1fe2e40 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 d5eeb2d..80ed5b5 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 d883e2d..e2040d2 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 8562340..feb5d5a 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 7de1534..c066314 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 09b1e77..c0fa7e5 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 283c40b..5a06dd4 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 efed423..c65d763 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 221a33c..18bf57d 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 d69ce22..2e144ec 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 e0db568..a1e2080 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 ac0369b..11a14fb 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 ea34b12..fce8aee 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 e3a6098..6d1b8ca 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 67c53c8..7715c0a 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 dcfae8c..0a1ad06 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 90687c4..c1b8ec9 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 6aa3f22..7935a63 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 bd9f398..4422048 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 1547251..fbda4a6 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 e72a122..30a9fe3 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 906e690..dbb54a1 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 a83b3b2..b63cc53 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 d6acdf2..0af8c9d 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 46cad47..bf65d88 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 5d3b7c6..b0c66e4 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 9d92c41..8b9ecc1 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 039d6c5..d99d07e 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 357972a..080d915 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 49b157e..c6af2eb 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 b8b99ce..85b1515 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 513e303..908ebd6 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 3229fc6..2337438 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 a2bfaf7..669ced7 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 5d9ece9..e7d838b 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 3676b71..8037eb5 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 c5cf0a9..2c15e1e 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 29098ee..ba8c002 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 5ea67ee..021f504 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 ad6351f..b0b71b4 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 6660f0a..8237f1f 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 168992d..f4a33e0 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 5f7c2d22..2d20d95 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 70c3f5f..a05d36f 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 4c22750..d2b486e 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 575feff..8f26a4a 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 acdc0f6..b118ab3 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 a456107..7fadd37 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 91a9e69..76a888e 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 f84cb4b..421fa5d 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 184fdc5..cddaf53 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 489b639..251ee5f 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 3e84023..951ccc3 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 41b75b4..d1d161e 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 1f9c73b..aedda2d 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 66c413f..4dff14e 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 4015a92..648803c 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 862180a..79f43b1 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 a5ac55c..7b8eade 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 064c40e..0e75acf 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 17ee723..7df2692 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 44f8193..1070138 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 e48211c..2343205 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 8794ef2..e8c607a 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 fc7dfed..9c3044b 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 b02b0dd..7ef21dc 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 00f98ed..613e411 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 be5d521..65ed01e 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 76f069f2..f12b800 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 006b107..6cc2e7f 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 0ed39b7..1e089ca 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 16b1264..e714a08 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 ccc7ae7..2901dbb 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 e1ed9be..1da64c4 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 15d3599..bc3e6f7 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 4488644..0f03e87 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 3c5b586..1e57b41 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 3738477..83a04a2 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 7378230..28fef07 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 80e98f8..9fdfda0 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 91bbf62..5b1d51e 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 2ebf908..962b335 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 058e442..b18c3dc 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 108f60a..bd54595 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 2ec910d..6eef86e 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 c9ebd23..195010b 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 d06e282..d4bf4cf 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 9d49e24..579c5ff 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 c628d7c..247fbc4 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 27adcaa..758513e 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 845f896..3d7c3ce 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 a8854b6..40de600 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 27a5895..7af1cb3 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 fa19f7a..9a46919 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 a38dd15..7fbc6fc 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 67b3d74..62cbd42 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 7b39168..76ccda7 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 3b7da7d..18c74ac 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 7cfbe9b..94f95a1 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 b5eb09f..a862491 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 08e0452..db22ec5 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 d9bf171..e3f45f8 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 0485757..9f3188c 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 db2a535..3d5970d 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 bd1b74a..4929989 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 597e613..6827a9e 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 ec0e574..3af1fd8 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 3214078..0f913fc 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 a53e645..082cebe 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 7aa01e8..abaa24c 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 668c461..1e421e4 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 255e2f4..18ae76d 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 73df951..00f050e 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 b09787c..9b552b1 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 f7bec40..83c8ba5 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 33c0dd9..0da981d 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 4e95638..9266c0c 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 a899284..334b103 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 20bd22e..ed1aafa 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 0cfdb89..62b691a0 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 8926843..1967d23 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 81fe92f..e5d03b1 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 da447c6..40417ed 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 0fc04e6..6adf4ee 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 98b2ef2..8c58329 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 b12e663..79118d9 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 179f394..76a380f 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 cde6203..7ccbf65 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 432e17b..32ed1c1 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 3649028..07a3b1c 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 a421f26..5454730 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 fce06b0..71fab90 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 1834f3d..019da39 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 fcceb57..229a1e3 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 01fe58d..ada7ca1 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 2d63987..5db9df2 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 116e877..114c657 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 e20c5a8..c4f191b 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 9080381..526f192 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 dabffb9..295ad84 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 bda3a4c..b22f0a1 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 4b672eb..55e65aa 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 693203a..492531f 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 2e0f27c..127422a 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 d301359..c91c45a 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 f73bcd9..21983ea 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 524c3d4..b92037b 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 e46f1e7..c6dfede 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 81b60c9..18852c3 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 86893ae..357923c 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 0c7973a..a41686d 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 3e569ff..1949a8a 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 5489f0f..b3af0d8 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 b5c0f22..8f55fc1 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 ad77ff7..27ebe1c 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 9e7b378..213de11 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 c9455c9..d39d838 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 7a4d7e4..a0236ec 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 5d27ae0..6f40df9 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 91130e9..0d52b02 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 7b3c373..48dd4ab 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 928d1f8..c89e515 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 ff6da0c..e0fa74a 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 2d1d91e..3d08f0b 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 d5b23a7..626a633 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 7b547f2..d0688e3 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 271b2fa..9beb7a4 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 5a8dbaf..01e08fa 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 6d39c48..7601506 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 fe4ebd1..a1e5ef9 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 7392582..0e671f5 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 0432206..c0b0145 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 7b09d45..f2090b5 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 12d86e3..6208674 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 52da0b0..e39f896 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 c374488..14978dc 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 fb50031..30d5fc8 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 80ceaa2..cff8aca 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 6039f70..5c32558 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 83ef3d6..bdd6876 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 efa604f..9d115f0 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 e3b1dc6..16267ed 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 285131e..2026ecd 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 af1c684..09a34c6 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 982a68b..3399d0c 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 603a714..3a37777 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 135767d..6568e67 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 ee46eb4..72f8516 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 8db46ad..7a535d3 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 f138fe2..b754aff 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 9fc0cf6..e7b9578 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 5dc8154..74c004b 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 11bc217..0b34519 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 94e15b8..f99b51e 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 0ac9f03..4d960ec 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 1cfb7cf..d5d0c8a 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 f235958..6fa413a 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 0efb15c..8942a6e 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 c69bd1c..c14def5 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 eca8318..347d79b 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 e54a373..34f5159 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 e6caaf8..fb5d827 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 fce28f3..2c5ffeb 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 a0e3877..831edd5 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 406f287..3c69763 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 2d88e54..2502db7 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 0195f27..0808d2c 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 a8d6195..12a38fc 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 2555f7a..ebada98 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 b15c10c..a6b8371 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 9e03e6c..3f68873 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 35ae613..ab9fda4 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 9daecfb..09a0c0f 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 bfc030f..688dd0b 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 85f5f80..65e40b2 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 509ad41..48b3765 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 d3f40b6..e1203ff 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 a542e42..b25028e 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 47b7346..d6d7b1e 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 1e0599d..5f7891c 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 70c8df2..67c610c 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 18a4808..42ab384 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 fa6535d..6372fb5 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 2ad6389..9d322d4 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 66b289e..c622729 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 0f16361..6849db2 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 163901c..9ec673c 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 bbbfd36..fce1adb 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 4b3dcc96..817b5c7 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 d5aded3..ce3f708 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 c123725..c66a08e 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 5a19a51..302e007 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 4c686d5..2f44c89 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 c4f2ecc..7958a39 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 c0afc39..9d69790 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 165dca8..0cf9528 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 6a534a2..1ab4585 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 1c30177..248d3d3 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 a3252ae..02917cc 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 cb589db..2b27690 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 2240abe..b414582 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 b4be0dd..10ade18 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 32c2604..b534679 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 ff0f035..7c97334 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 2dc7cac..a2e25ed 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 b9d0627..da0929c 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 893f0a0..2cf9436 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 a08d02e..0128bf2 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 e14ac6b..02d2a13 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 803c13f..ccc667e 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 ab0fab9..5943ffe 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 e676ed1..0d8c9d8 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 42352e0..d8b6d71 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 baf23a6..0ff2c1d 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 cf24f5b..ecb690f 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 9c0b4ad..254fa71 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 6fd4852..a2ec16a 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 1a27736..dd1e61c 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 222a778..6f9ded3 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 abfeb36..b58fa7e 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 62d6796..2811749 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 9d0dfbe..51a58f6 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 b73cc63..6dec6e3 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 8a29920..b920d81 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 07791f4..2408a87 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 2ee06f4..ea586e2 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 8ef255a..edacc2d 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 97e0b53..b0209bb 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 f6d01d8..64fed35 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 b9c506a..1c9c9ff 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 70a4f2b..06e6188 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 f680aef..c7fb155 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 24042f2..55a70de 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 f33f499..b542eee 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 3c40b1f..5ca9f01 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 1fa7211..2779476a 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 5df16ad..0339910 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 4ab9d3a..f23f76c 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 1a232ca..83c59f2 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 12e946a..04e5299 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 ea8dfb7..92d93ad 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 6db0ddc..c6d8d8f 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 00fabbd..c5ec4fa 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 f1de7e3..a84a989 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 7b5fa02..06ef897d 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 72106a4..41bf3de 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 801181c..1b2997f 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 6e52a7d..396c0fb 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 fac2a94..22f3634 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 e14fc26..092be4a 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 10065a9..7a2d2fd 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 f2355e3..2e89ff4 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 f056772..777b808 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 c0b1b05..83601c4 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 cebdc97..fc4941e 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 ea03764..807082f 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 3eb6e0b..c7fd695 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 78170d6..62dac39 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 adf4d50..dd63e0e 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 915d59dd..f5c5acc 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 1c77dc8..e0ea4d6 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 e904442..e4056ac 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 8980fa9..5d90b1d 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 e637b5e..21505ef 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 7ab1573..78f80f4 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 2ade9b2..a62a5d1 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 0f52757..866feed 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 5356005..c475cc4 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 88b20b7..2b9adaf 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 524bd09..cfcc380 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 0c960ff..ed96a72 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 bce4072..983ca8f 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 f05390b..c9244a2 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 3d33415..e201d02 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 08c2258..52ccea8 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 f1a3677..4363a64 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 3f5186f..5b1cd0a 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 b9afa94..f80aadd 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 18eb6ca..57561aa 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 4f8bcd8..f3fa8f5 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 c09b47c..2b5e5cf 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 4184e0d..927664a 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 0e6417a..a9646b0 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 7cc850f..cff60de 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 e21caaa..3782ae6 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 96309e0..412759e 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 2f057d1..7c5ee08 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 ade0b61..a7a0125 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 c300474..c19061f 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 7d86706..5c37b18 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 fe86c66..98baa44 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 ca5f548..37513fe 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 88eca53..fdf8e94 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 3927021..3faf081 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 22357d1..ffcc39e 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 424ab32..0f9939b 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 4bb6b57..f234ea0 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 850d3ea..8278910 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 7c0b09d..868e9a9 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 1162d4c..38e5c57 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 0d6efba..33f3809 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 8f7e404..426be05 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 8b6889b..a928d3a 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 360c605..114f185 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 daa90dd..c84e612 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 b90ba3e..a6c243d 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 7d82b42..b43c9a3 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 ec7a0fa..8ad2328 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 bda95ca..74845c3 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 d6c89ab..0fda16f 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 2800c4a..17b267c 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 9bfa70e..a7cff09 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 309bf3d..e4c76fd 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 02aa6b4..15d7360 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 b8095d8..4f1f64d 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 fa64243..6a2c553 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 9bb3eb2..3ac425f 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 602585c..f7315db 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 ee6ab65..02676dc 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 1893b7c..06f0f9b 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 f5d1b6d..6cbdb17 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 24dbbbf..c82c0fb 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 f49b552..b487683 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 4b2c7aa..8e675c5 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 8ec5bc1..2df6dbd 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 b9fe527..ccc2991 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 0ee5e7f..6d2790f 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 0ca3c25..767c145 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 49c69ed..09afe0d 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 8ae4c15..e51663c 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 7718f21..c6996da 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 70f0575..31b3ca3 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 97d9615..a249901 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 2921c9b..815a731 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 b94ee1f..d29ff62 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 f9529f1..1a60284 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 370d462..2ec4c3e 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 a6eb80a..5f4ed39 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 85d3b1f..0a7871a 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 df8e059..6f7b505 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 e1ba686..0acf0f9 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 01feeae..46a4eac 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 60ed827..fd61fc4 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 a9ec887..02e59cec 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 1c5ddb9..daba34e 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 a1f48e1..d7b7f6d 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 4800009..de9e9bd 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 d61aaf2..10789dc 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 952d594..968dac4 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 40fda26..247a65b 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 3099aea..fabdf49 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 2cd993d..c2f3fea 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 30ca2f0..7ede56d 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 5598ed7..aa24908 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 fbd3162..20a91d3 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 a2e8a84..b583bda 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 0ee3523..012d785 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 a26ef35..55ea294 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 ed65b34..61cb5a8 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 c579ee0..ff5febd 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 aa3269e..dea4340 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 3f20357..6209abf 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 badda4f..7c81a06 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 eff0997..5ff8bbf 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 9b1d0cd..aa1a442 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 124d284..8b91ce2 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 c6c398e..0f7f46c 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 17b9118..84f2cff 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 8ca64d4..1d8d01d 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 e2c8c18..67c2bf1 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 00dabfa..d485f15 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 e7d35e6..5e05d57 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 a539f23..b3baf54 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 6acd83e..d570a95 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 b52f1c3..1b1987a 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 f17ec40..7c5869a 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 17c3163..b69e7d0 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 3680fe3..e3dcadc 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 0176a96..9db87e0 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 8287339..452373c 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 18950f9..a4b5e65 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 abcafdd..6c4710a2 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 be27354..1817559 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 4ec6647..dcac47f 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 ac075c9..5408518 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 d7195da..bc1a2f1 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 68dae99..2e959a2 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 4db5b38..15b7df0 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 cdb0680..32ca1ee 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 6495f22..4cde81c 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 47e07d5..d2fe4a8 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 b1fe1b3..cd8b0ff 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 82de444..99c57c6 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 83c24ca..93f6e40 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 d4f0007..8093100f 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 eaf6bf8..eb65755 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 cbb8c9a..28ed13a 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 ae0e06e..48f04d8 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 cdb1017..8721c14 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 aa9c768..86a64b1 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 a41afd6..f013e37 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 47ee29e..17d8e74 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 5fb1646..9950cf6 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 88ecf79..94fdb3a 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 a36b6dc..b3a289f 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 f0568ec..11193be 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 6d8bcd2..36b69d7 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 b849800..8c92b93 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 69b737e..33d9612 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 f5af2a7..cb1dc4f 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 4d25bb2..6b8898b 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 cd79e5c..f15dced 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 948b6f5..d9902b6 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 17516fb..7266438 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 675821b..d15f05f 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 644e54e..89bbcce 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 5180a5d..71879bf 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 a434418..1fd8be8 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 2eeb56b..2feb676 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 ef25ce9..9765b6a 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 8e7541c..f6dc11f 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 0d50796..91fafa8 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 6ce6cdb..8a40085 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 3722ff3..42538f4 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 48a76da..a0a1ad5 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 be4a16f..b919321 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 1d758a5..306df16 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 157d42b..fdc8068 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 14d3773..e643284 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 8f66ffd..0be1034 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 460c3e9..ecf0c12 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 8ae9954..d92f43f 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 0db066f..fa77d64 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 20efa01..53e11b4 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 8eaed61..aff4623e 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 1b95dd3..1674235 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 1e28d4f..381dd5e 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 1999f5d..7e67dc1 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 6d41c89..9bd31b8 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 6f9c368..806f479 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 733f964..eec880c 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 0736b5b..1e80ad1 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 e48ddda..9d09ac1 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 da1a02f..66ea196 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 aec8616..5095bf0 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 bf972e1..0a0c61e 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 a1e3309..ba5cf63 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 281447a..9ff20f3 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 a207dac..b881f7d 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 1c803d3..ecc7691 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 d1a348f..34431ff 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 5a1228d..f764640 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 5dfc564..e55a51c 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 8a8840e..d16cfde 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 bfd5563..e8163d5 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 8ecef36..361c1b7 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 69aca52..d00394e 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 58f6769..16770a3 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 9cb1317..d9a90c1 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 865efd6..c8fe5d9 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 156f5c8..da16bf1 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 d39192b..ba31d85 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 cce6ae1..00bc0e2 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 bc3d5a6..6253b20 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 9cf1913..69ddd8a 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 301e04c..da17e75 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 d8db4d1..5086d67 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 904bbeb..2815c44 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 3749993..5432aae 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 3ae4402..39ed32d 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 57fbb76..c2bffa7 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 1dd78ee..0819f5a 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 c066882..c2c012f 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 93b0a07..c6af198 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 cceb773..4a995a4 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 2e9498b..8c281e5 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 1b9882d..fe404d2 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 ba9c9af5..9a92fa83 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 4174355..916cad3 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 6399fc0..73b2e8b 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 0bc99a7..1619693 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 97d8230..24a7b79 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 89c18a1..644c0fd 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 b2b00d6..ccf1e94 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 9fb3e52..dd93fd5 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 024f2f5..9d85bd0 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 b552996..c297c80 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 60714b6..c9b2c7f 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 ae97c0d..61b2767 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 b744a81..512a8a8 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 5bf1e98..caa69a5 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 13429de..7573809 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 83c5ec2..40359db 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 de52956..5ea7f0e 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 96589fd..2aa1ac34 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 bfb5d3e..a527e70 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 f2cf294..4d8d4f4 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 8bacce9..aebece5 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 4029f0d..80c5c84 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 409798f..302e63b 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 08de623..674095e 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 898de49..c10e548 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 4106614..dcb19ff 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 7f2e850..f4573d1 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 2f6fdb4..e571ce7 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 f44b309..4e4d591 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 ec5f2e2..cbe638b 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 8d015b6..c374dd9 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 7117c69..44f23a4 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 c7fbb90..64e4111 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 0c99d2c..b9b7386 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 4f32829..3bc0f76 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 0a563d6..ca28c92 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 2aa16d0..f4367c6 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 3230fde..421f72c 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 7b2f132..dafa4f0 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 8f6c29f..c10009f 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 9400c903..5802a37 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 a989588..9e0370a 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 88a72bc..f6fefe9 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 296def4..137a008 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 c2b1629..42c68c3 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 fbf8dbf..efdb5dd 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 e0f3a60..d7f750f 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 53909e0..32641b1 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 9c4ff29..3592986 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 a3cc1eb..70808eb 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 bbfb598..683142e 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 59f93b4..75e4272 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 bc9973b..af4745e 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 d818618..df38344 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 6966118..64e1e1f 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 ecb8431..01b631d 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 44afca0..6206f2d 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 6185d12..8fa19f3 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 7494798..ef9350f 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 8d71941..8a9ccd7 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 e9920ad..ccb4e05 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 8e2e574..389ec74 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 7313ef3..c7732f5 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 3a5a486..c73c126 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 3e0cc06..4aa338a 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 64a4633..0c24522 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 a114285..438943d 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 94d87ef..2fcbd36 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 60b2da8..4affb83 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 17d663b..f174db2 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 51697fd..3cfd6b6 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 674e250..ea8a9af 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 8fe9e4a..55f12c1 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 bb60bea..56541ef 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 a7665ba..ce9ba09 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 ed85068..87e6fa9 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 faaa55e..0f0484d 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 5623e94..34c873a 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 2cf2837..7b3e08f 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 d51a7be..16e03de 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 1d3571a..8272ae3 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 639d469..2c3c045 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 ef35550..ad6f759 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 cd80bf7..508d7ea 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 05f6e9e..40fe0ac 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 c0d6024..996c313 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 201fc0c..99f0e3c 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 5d918e7..33ab366 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 2c479a3..af778aa 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 cfa41de..07324b6 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 6818bad..63182aa 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 068b645..0530ed4 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 225c8ea..7e66bbe 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 9615fa5..3bc2f96 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 263612e..2f7f063 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 c93dea0..69ddeba 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 18f7250..f656714 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 c337960..96d2155 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 e8f5198..59ae6cf 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 1230186..d9003a2 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 e079528..5cbd028 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 fc453a0..e5bc81a 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 9821594..c8fa200 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 42d2c7f..ecbff60 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 f5780be..f93f3fa 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 6d3e1f7..d8bdbb3 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 2913e52..096eac4 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 f31dc5e..e443239 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 5b2468a..fc69d1e 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 7b4e3cd..3d9f7c2 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 a4f5ac6..4892e69 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 7ce931f..897b6da 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 7b95f4c..926c6f6 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 b3d882c..01b431d 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 0588be5..b204a83 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 16a94a6..2439c46 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 4de73b2..76a9dff 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 272227d..fb9c007 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 35824f0..be4ed3e 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 54a7802..bb4f908 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 61231a2..5e40627 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 e2b6a3c..68ab1ae 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 67bcb4c..2fef2cd 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 ee78b57..4663110 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 db3a74c9..ea3a1ff 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 7cebb63..9f7c8f7 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 daeaa81..2cd2e16 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 d14a148..fb4f007 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 3ee0374..c437117 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 275f5cb..a98575a 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 cd93215..8ce2523 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 bf3bd17..4ea77e4 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 77bc22f..badf009 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 fba7bb1..2b5c39e 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 5620684..ba34a69 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 501db14..6210a26a 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 35209c5..092de11 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 e7211ad..d9d66ca 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 972356f..58ead84 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 4796cf9..62dfedf 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 64cc004..ab17885 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 e2dcaf0..6e73cde 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 c8bd287..92084f0 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 fb34523..8b4bcfa 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 c63fd2a..712f68c 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 722e945..d417da5 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 c2631ed..3ed63ac 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 920e52b..ac5bda3 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 3829323..763641e 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 42b1e84..8e90a9dc 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 4a9aab3..cd3fd57 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 b92c6af..36e60b1 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 86f6968..c1498c6 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 b262add..df132a5 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 b682e03..d5f4878 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 35ba180..94cc6ff 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 dd9c77e..1f69c2d 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 78cc50f..dcf856e 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 9e60043..6202250 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 738eab4..241fdaa 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 9529cbc..c543993 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 6215c21..7ed1033 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 ca7b14e..35b5353 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 131bb1e..529e0ef 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 6a7ddb3..20ac11b 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 4cf39f2..0bbdd2e 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 ad19a09..10b4e41 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 a196843..ba2a40d 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 4e77537..2a6b555 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 57fe18f..60c55ad 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 cd805b5..969bd1c 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 0c2de59..15a5fbd 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 53313f5..9d8b6b1 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 f570095..65124e6 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 9e49b99..8f1d445 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 1a67219..f40a224 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 77b906e..14ecb2b 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 4e35cd9..7b52220 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 5a1d46e..2403e9d 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 015c5d4..8311f52 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 94c7231..7d93472 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 c941c7b..94e4058 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 2fe1a52..837c0bc 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 ef610b5..8fd9b38 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 b204e48..dede336 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 e50f4c7..e8f9b78 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 c9a3a1f..5e75a97 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 d66a9f6..d8d0a82 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 f66eb77..65f5854 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 c9e9f17..d77ada7 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 ff3fc77..2d14467 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 c9c4f1a..7f2f08e 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 f68c080..3da16f8 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 e392974..38ca113 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 b1d750c..e0665a5 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 59987e0..f5e3929 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 a01d11c..5a325e0 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 f3a0d78..6e8d5cb 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 379948b..c58066c 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 5db55e0..c9894f7 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 4c8fcb6..053d413 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 969fdf2..d41d574 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 cf45a7d..e622866 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 2a6bda2..21e6551 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 b64e9cb..ccdb8c9 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 f19d17b..de4a711 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 b54508d..c058476 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 e4d6611..86616ce 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 146c071..a9c608c 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 1fe7144..3bcf00b 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 689213f..3579175 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 622817d..a5eaa04 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 64c016ef..ab5649a 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 74f07c5..e756b9d 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 e14cafa..9981cff 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 fefdf94..9a94259 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 7d3e2f6..9bb400f 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 942548d..b794cd5 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 06f8fcc..e8f0667 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 8c263d9..5622f7c 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 4cd6a75..7ff80e9 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 4e76603..0f69a99 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 2e7df48..e1ded87 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 ba95fd5..cc793d5 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 e98cfad..ead6441 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 4910452..70029bb 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 3060498..d6d8a54 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 0cfd7b6..5d4ca46 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 240a716..6ddeaab 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 3e9eb51..f53e073 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 0fb099b..ca6b3ea 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 06ec899..5818de6 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 0895356..f854f39 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 5fb3a1d..a1fdfc7 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 c28ace9..3360f6e 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 41f6a8d..bd3f395 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 16c3456..37d789e 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 2ad2944..1737bc1 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 428aaf4..52a6207 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 493cdd6..263b150 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 35d7e0413..e7b4f36 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 cf800b4..a39a289 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 6eb7b4f..776aeb8 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 e768d24..3eab365 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 8395ee3..cfe2e78 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 4c9067c..cc5dd1d 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 ee8472e..e57ddc7 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 3647ede..ebcd861 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 828ad40..23d17e9 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 eefe833..ed10371 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 cd7df7b..10cdec4 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 3906768..9963b31 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 c8e79b8..8968788 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 26bfc82..1db25e0 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 8cd6c21..2aa339e 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 4ef0893..040d3a3 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 1dfddf6..243bcd8 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 fd4b226..e94a229 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 9a25e0c..5c428aa 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 651445f..017b6e4 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 b1fe0dd..29b8e40 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 d486df88..6245df2 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 d9f1997..a94e59c 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 760d902..1ce18bf 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 4ff0358..f440f7d 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 7a76026..c081a1f 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 7409ac9..bde2f98 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 e7391df..98d45d8 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 1d9c78b..92bf0a1 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 e0efda3..3655316 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 54ae2d2..b0a5579 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 54b002c..fcc26b0 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 91da4a84..c0e1e12 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 f9404fe..ef49142 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 ed583c1..fb58aeb 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 71a1082..2641e2b 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 a7e867a..d8debec 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 4aaa86c..d1ec46e 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 c1390ec..6df80d2 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 a88b3a6..1205ce1 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 aab9f8a..0964f0c 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 1ca0b1f..8e6aebf 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 4c70832..8666ae7 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 2eb4cae..7590857 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 b05645e..45c02c5 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 ba1d3f1..f0f518c 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 917404a..a17a331 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 c2d7adc..a397566 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 13b6231..2e191b3 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 5994fbe..cab5c02 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 25b43f6..9c20501 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 067c285..1652e6e 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 1afb346..93e13bd 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 26fbbb5..e9af734 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 53ecd65..3105627 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 0749987..f782b3d 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 d5ea8ff..7f3fe5c 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 0b30f4a..36c80d1 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 36ee1e6..2976ad4 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 df8c01e..fa5819f 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 a973468..9297530 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 b08fbf1..d0985c4 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 c183dc3..1cc19b3 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 c8a0198..ec9659e 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 0ce61d9..1bf1af3 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 9a1a1be..4af0809 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 529de3b..0c3a8cb 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 a5a3797..4d1b4a4 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 612ad9d..273d6a8 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 c38e2c7..7b477f1 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 c20cfcb..9120769 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 2540d48..9b2bb57 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 46a15c8..ca68c25 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 cec3e36..a693569 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 97f50df..7d59b55 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 fbdbd28..1213da8 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 36a5a72..5a7a62d 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 4819cfc..08ad273 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 5bef704..f8c7d32 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 5502290..4052db7 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 e6f9d7f..101eebf 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 52c473b..b04672b 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 a16dd18..e63ad66 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 63cde50..4601e92 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 eccfdb7..6e5e4c2 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 8374f56..0f001c2 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 e9acfc2..60f185b 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 205aac3..7c78a30 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 4e1719f..2621dbf 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 4184ba5..7aff79d 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 8bc32f7..1548a41 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 c535334..ef321a1 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 75ffe4f..90e4ac4 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 4155eec..797671d 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 ca97b7f..8aba1ce 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 b143d44..81905f9 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 d0442a3..5c469bd 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 43c9038..5a16c72 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 42d1783..d0170dc 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 e0624ee..5f72c69 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 6685ba9..e77729e 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 e8d812d..4042230 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 9ef4186..0afac4b6 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 edce7a0..fb9f5c2 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 04ec4e5..69b019e 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 e2e1cc7..6573122 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 a583d82..5326b9c 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 cdb6560..c982f1b 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 48292f5..e0471ea 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 568d4a1..2439b9d 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 bcbebbd..3ffd431 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 a7f4a87..663e5e5 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 69a81ad..4c74509 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 9361ac3..21bda923 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 283a5d1..9da5bda 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 cb882b5..685fc35 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 43942b8..11ef500 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 0632be6..7a7b4d4 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 0c14ceb..f0d5771 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 1d495e6..5126d4c 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 f648678..e313721 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 f2c2792..32600ba 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 2f43edb..93be4f8 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 b012489..f15ebd7 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 f9bec6c..fcdac58 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 24c8783..dcbc590 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 891f981..011a275 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 358d348..bf14500 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 a9cff61..014d1d8 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 -- |