diff options
Diffstat (limited to 'gcc/ada')
31 files changed, 35 insertions, 149 deletions
diff --git a/gcc/ada/a-dynpri.adb b/gcc/ada/a-dynpri.adb index a8acb2342b4..82da8155218 100644 --- a/gcc/ada/a-dynpri.adb +++ b/gcc/ada/a-dynpri.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -31,12 +31,6 @@ -- -- ------------------------------------------------------------------------------ -with Ada.Task_Identification; --- used for Task_Id --- Current_Task --- Null_Task_Id --- Is_Terminated - with System.Task_Primitives.Operations; -- used for Write_Lock -- Unlock diff --git a/gcc/ada/a-interr.adb b/gcc/ada/a-interr.adb index 126e59f49b4..d9d1dc07c88 100644 --- a/gcc/ada/a-interr.adb +++ b/gcc/ada/a-interr.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, AdaCore -- +-- Copyright (C) 1995-2006, AdaCore -- -- -- -- 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,17 +32,6 @@ -- -- ------------------------------------------------------------------------------ -with System.Interrupts; --- used for Interrupt_ID --- Parameterless_Handler --- Is_Reserved --- Is_Handler_Attached --- Current_Handler --- Attach_Handler --- Exchange_Handler --- Detach_Handler --- Reference - with Unchecked_Conversion; package body Ada.Interrupts is diff --git a/gcc/ada/a-reatim.adb b/gcc/ada/a-reatim.adb index b15a6e155bd..1049c10dd15 100644 --- a/gcc/ada/a-reatim.adb +++ b/gcc/ada/a-reatim.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, AdaCore -- +-- Copyright (C) 1995-2006, AdaCore -- -- -- -- 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,9 +32,6 @@ -- -- ------------------------------------------------------------------------------ -with System.Task_Primitives.Operations; --- used for Monotonic_Clock - package body Ada.Real_Time is --------- diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb index 21c1e471367..fca7bd2bcce 100644 --- a/gcc/ada/a-tasatt.adb +++ b/gcc/ada/a-tasatt.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, AdaCore -- +-- Copyright (C) 1995-2006, AdaCore -- -- -- -- 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- -- @@ -221,11 +221,6 @@ -- was having trouble with access discriminants, so all this work was moved -- to the package body. -with Ada.Task_Identification; --- Used for Task_Id --- Null_Task_Id --- Current_Task - with System.Error_Reporting; -- Used for Shutdown; diff --git a/gcc/ada/a-taside.adb b/gcc/ada/a-taside.adb index 8599af7fbe3..4243e25d44b 100644 --- a/gcc/ada/a-taside.adb +++ b/gcc/ada/a-taside.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -35,8 +35,6 @@ with System.Address_Image; with System.Parameters; with System.Soft_Links; with System.Task_Primitives.Operations; -with System.Tasking; - with Unchecked_Conversion; pragma Warnings (Off); diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb index 145eaf5563e..0e6dd3240c1 100644 --- a/gcc/ada/a-textio.adb +++ b/gcc/ada/a-textio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -33,9 +33,10 @@ with Ada.Streams; use Ada.Streams; with Interfaces.C_Streams; use Interfaces.C_Streams; -with System; + with System.File_IO; with System.CRTL; + with Unchecked_Conversion; with Unchecked_Deallocation; diff --git a/gcc/ada/a-witeio.adb b/gcc/ada/a-witeio.adb index 7071df138c2..7f72c1cec9d 100644 --- a/gcc/ada/a-witeio.adb +++ b/gcc/ada/a-witeio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -35,7 +35,6 @@ with Ada.Exceptions; use Ada.Exceptions; with Ada.Streams; use Ada.Streams; with Interfaces.C_Streams; use Interfaces.C_Streams; -with System; with System.CRTL; with System.File_IO; with System.WCh_Cnv; use System.WCh_Cnv; diff --git a/gcc/ada/a-ztexio.adb b/gcc/ada/a-ztexio.adb index 2742255b9ff..daadd54b4de 100644 --- a/gcc/ada/a-ztexio.adb +++ b/gcc/ada/a-ztexio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -35,7 +35,6 @@ with Ada.Exceptions; use Ada.Exceptions; with Ada.Streams; use Ada.Streams; with Interfaces.C_Streams; use Interfaces.C_Streams; -with System; with System.CRTL; with System.File_IO; with System.WCh_Cnv; use System.WCh_Cnv; diff --git a/gcc/ada/g-dynhta.adb b/gcc/ada/g-dynhta.adb index de89123a22a..e423bab380f 100644 --- a/gcc/ada/g-dynhta.adb +++ b/gcc/ada/g-dynhta.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2005, AdaCore -- +-- Copyright (C) 2002-2006, AdaCore -- -- -- -- 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- -- @@ -31,8 +31,6 @@ -- -- ------------------------------------------------------------------------------ -with Ada.Unchecked_Deallocation; - package body GNAT.Dynamic_HTables is ------------------- diff --git a/gcc/ada/prj-attr.adb b/gcc/ada/prj-attr.adb index 8234d27c8fc..f73751c8c26 100644 --- a/gcc/ada/prj-attr.adb +++ b/gcc/ada/prj-attr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -27,8 +27,6 @@ with Namet; use Namet; with Osint; with Prj.Com; use Prj.Com; -with Table; - with System.Case_Util; use System.Case_Util; package body Prj.Attr is diff --git a/gcc/ada/s-asthan-vms-alpha.adb b/gcc/ada/s-asthan-vms-alpha.adb index 13362a9600b..f108058659e 100644 --- a/gcc/ada/s-asthan-vms-alpha.adb +++ b/gcc/ada/s-asthan-vms-alpha.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1996-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2006 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -54,7 +54,6 @@ with System.Task_Primitives.Operations.DEC; -- removed, because of problem with controlled attribute ??? with Ada.Task_Attributes; -with Ada.Task_Identification; with Ada.Exceptions; use Ada.Exceptions; diff --git a/gcc/ada/s-asthan.adb b/gcc/ada/s-asthan.adb index 110009f4177..00df7f45b16 100644 --- a/gcc/ada/s-asthan.adb +++ b/gcc/ada/s-asthan.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -34,8 +34,6 @@ -- This is the dummy version used on non-VMS systems with Ada.Exceptions; -with Ada.Task_Identification; -with System.Aux_DEC; package body System.AST_Handling is @@ -47,8 +45,7 @@ package body System.AST_Handling is function Create_AST_Handler (Taskid : Ada.Task_Identification.Task_Id; - Entryno : Natural) - return System.Aux_DEC.AST_Handler + Entryno : Natural) return System.Aux_DEC.AST_Handler is begin Ada.Exceptions.Raise_Exception @@ -59,7 +56,7 @@ package body System.AST_Handling is end Create_AST_Handler; procedure Expand_AST_Packet_Pool - (Requested_Packets : in Natural; + (Requested_Packets : Natural; Actual_Number : out Natural; Total_Number : out Natural) is diff --git a/gcc/ada/s-interr-sigaction.adb b/gcc/ada/s-interr-sigaction.adb index 41937db1fac..4a1cd56aed5 100644 --- a/gcc/ada/s-interr-sigaction.adb +++ b/gcc/ada/s-interr-sigaction.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005, Free Software Fundation -- +-- Copyright (C) 1998-2006, Free Software Fundation -- -- -- -- 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- -- @@ -39,9 +39,6 @@ with Ada.Task_Identification; with Ada.Exceptions; -- used for Raise_Exception -with System.OS_Interface; --- used for intr_attach - with System.Storage_Elements; -- used for To_Address -- To_Integer diff --git a/gcc/ada/s-interr-vms.adb b/gcc/ada/s-interr-vms.adb index caa1ed6afa5..78644507b2d 100644 --- a/gcc/ada/s-interr-vms.adb +++ b/gcc/ada/s-interr-vms.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -99,13 +99,6 @@ with System.Storage_Elements; -- To_Integer -- Integer_Address -with System.Tasking; --- used for Task_Id --- Task_Entry_Index --- Null_Task --- Self --- Interrupt_Manager_ID - with System.Tasking.Utilities; -- used for Make_Independent diff --git a/gcc/ada/s-interr-vxworks.adb b/gcc/ada/s-interr-vxworks.adb index e673d0167e2..3c89ea338fd 100644 --- a/gcc/ada/s-interr-vxworks.adb +++ b/gcc/ada/s-interr-vxworks.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -93,13 +93,6 @@ with System.Storage_Elements; -- To_Integer -- Integer_Address -with System.Tasking; --- used for Task_Id --- Task_Entry_Index --- Null_Task --- Self --- Interrupt_Manager_ID - with System.Tasking.Utilities; -- used for Make_Independent diff --git a/gcc/ada/s-interr.adb b/gcc/ada/s-interr.adb index f8fe151a4cf..f4545fc96df 100644 --- a/gcc/ada/s-interr.adb +++ b/gcc/ada/s-interr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -106,13 +106,6 @@ with System.Storage_Elements; -- To_Integer -- Integer_Address -with System.Tasking; --- used for Task_Id --- Task_Entry_Index --- Null_Task --- Self --- Interrupt_Manager_ID - with System.Tasking.Utilities; -- used for Make_Independent diff --git a/gcc/ada/s-intman-irix.adb b/gcc/ada/s-intman-irix.adb index d47912d00b7..71efec9721b 100644 --- a/gcc/ada/s-intman-irix.adb +++ b/gcc/ada/s-intman-irix.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- ---- Copyright (C) 1995-2005, AdaCore -- +--- Copyright (C) 1995-2006, AdaCore -- -- -- -- 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- -- @@ -40,12 +40,6 @@ -- Be on the lookout for special signals that -- may be used by the thread library. -with Interfaces.C; --- used for int - -with System.OS_Interface; --- used for various Constants, Signal and types - package body System.Interrupt_Management is use System.OS_Interface; diff --git a/gcc/ada/s-intman-posix.adb b/gcc/ada/s-intman-posix.adb index 26ddbe5f717..410589e441a 100644 --- a/gcc/ada/s-intman-posix.adb +++ b/gcc/ada/s-intman-posix.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- 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,12 +59,6 @@ -- default -- Reserved: the OS specific set of signals that are reserved. -with Interfaces.C; --- used for int and other types - -with System.OS_Interface; --- used for various Constants, Signal and types - package body System.Interrupt_Management is use Interfaces.C; diff --git a/gcc/ada/s-intman-solaris.adb b/gcc/ada/s-intman-solaris.adb index 05f1e042429..8c4a6c17c5b 100644 --- a/gcc/ada/s-intman-solaris.adb +++ b/gcc/ada/s-intman-solaris.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006 Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -40,12 +40,6 @@ -- Be on the lookout for special signals that -- may be used by the thread library. -with Interfaces.C; --- used for int - -with System.OS_Interface; --- used for various Constants, Signal and types - package body System.Interrupt_Management is use Interfaces.C; diff --git a/gcc/ada/s-intman-vms.adb b/gcc/ada/s-intman-vms.adb index 7ad7f278d9b..d4d80089bf3 100644 --- a/gcc/ada/s-intman-vms.adb +++ b/gcc/ada/s-intman-vms.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -33,9 +33,6 @@ -- This is a OpenVMS/Alpha version of this package. -with System.OS_Interface; --- used for various Constants, Signal and types - package body System.Interrupt_Management is ---------------- diff --git a/gcc/ada/s-intman-vxworks.adb b/gcc/ada/s-intman-vxworks.adb index d31ad56d0ff..2d265ba76a9 100644 --- a/gcc/ada/s-intman-vxworks.adb +++ b/gcc/ada/s-intman-vxworks.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006 Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -39,11 +39,6 @@ -- Be on the lookout for special signals that -- may be used by the thread library. -with Interfaces.C; - -with System.OS_Interface; --- used for various Constants, Signal and types - package body System.Interrupt_Management is use System.OS_Interface; diff --git a/gcc/ada/s-osinte-aix.adb b/gcc/ada/s-osinte-aix.adb index b2274682f8e..bef7de50f99 100644 --- a/gcc/ada/s-osinte-aix.adb +++ b/gcc/ada/s-osinte-aix.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2005, Free Software Fundation, Inc. -- +-- Copyright (C) 1997-2006, Free Software Fundation, 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- -- @@ -37,8 +37,6 @@ pragma Polling (Off); -- Turn off polling, we do not want ATC polling to take place during -- tasking operations. It causes infinite loops and other problems. -with Interfaces.C; - package body System.OS_Interface is use Interfaces.C; diff --git a/gcc/ada/s-osinte-lynxos-3.adb b/gcc/ada/s-osinte-lynxos-3.adb index b828d8d81f4..a454a23e63a 100644 --- a/gcc/ada/s-osinte-lynxos-3.adb +++ b/gcc/ada/s-osinte-lynxos-3.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2006 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- -- @@ -37,8 +37,6 @@ pragma Polling (Off); -- Turn off polling, we do not want ATC polling to take place during -- tasking operations. It causes infinite loops and other problems. -with Interfaces.C; - package body System.OS_Interface is use Interfaces.C; diff --git a/gcc/ada/s-osinte-lynxos.adb b/gcc/ada/s-osinte-lynxos.adb index fac68d47c9f..ccc81a522ee 100644 --- a/gcc/ada/s-osinte-lynxos.adb +++ b/gcc/ada/s-osinte-lynxos.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005, AdaCore -- +-- Copyright (C) 2001-2006, AdaCore -- -- -- -- 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- -- @@ -37,8 +37,6 @@ pragma Polling (Off); -- Turn off polling, we do not want ATC polling to take place during -- tasking operations. It causes infinite loops and other problems. -with Interfaces.C; - package body System.OS_Interface is use Interfaces.C; diff --git a/gcc/ada/s-pooglo.adb b/gcc/ada/s-pooglo.adb index fa514f01ff4..ca661d6ed14 100644 --- a/gcc/ada/s-pooglo.adb +++ b/gcc/ada/s-pooglo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -32,7 +32,6 @@ ------------------------------------------------------------------------------ with System.Storage_Pools; use System.Storage_Pools; -with System.Storage_Elements; with System.Memory; package body System.Pool_Global is diff --git a/gcc/ada/s-pooloc.adb b/gcc/ada/s-pooloc.adb index 3a7875c580c..dca1b413f70 100644 --- a/gcc/ada/s-pooloc.adb +++ b/gcc/ada/s-pooloc.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2002, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -32,7 +32,6 @@ ------------------------------------------------------------------------------ with System.Memory; -with System.Storage_Elements; with Unchecked_Conversion; diff --git a/gcc/ada/s-poosiz.adb b/gcc/ada/s-poosiz.adb index 59f436b26dc..f08add49421 100644 --- a/gcc/ada/s-poosiz.adb +++ b/gcc/ada/s-poosiz.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -31,7 +31,6 @@ -- -- ------------------------------------------------------------------------------ -with System.Storage_Elements; with System.Soft_Links; with Unchecked_Conversion; diff --git a/gcc/ada/s-tasren.adb b/gcc/ada/s-tasren.adb index be7819b8202..6fafb39f3c3 100644 --- a/gcc/ada/s-tasren.adb +++ b/gcc/ada/s-tasren.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -31,12 +31,6 @@ -- -- ------------------------------------------------------------------------------ -with Ada.Exceptions; --- Used for Exception_ID --- Null_Id --- Transfer_Occurrence --- Raise_Exception - with System.Task_Primitives.Operations; -- used for Get_Priority -- Set_Priority diff --git a/gcc/ada/s-tasuti.adb b/gcc/ada/s-tasuti.adb index ee68ebcec7b..0d765df600e 100644 --- a/gcc/ada/s-tasuti.adb +++ b/gcc/ada/s-tasuti.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- 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 +59,6 @@ with System.Tasking.Queuing; -- used for Dequeue_Call -- Dequeue_Head -with System.Tasking.Debug; --- used for Trace - with System.Parameters; -- used for Single_Lock -- Runtime_Traces @@ -69,8 +66,6 @@ with System.Parameters; with System.Traces.Tasking; -- used for Send_Trace_Info -with Unchecked_Conversion; - package body System.Tasking.Utilities is package STPO renames System.Task_Primitives.Operations; diff --git a/gcc/ada/s-tataat.adb b/gcc/ada/s-tataat.adb index 528de085c90..c0dede8cc44 100644 --- a/gcc/ada/s-tataat.adb +++ b/gcc/ada/s-tataat.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, AdaCore -- +-- Copyright (C) 1995-2006, AdaCore -- -- -- -- 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,9 +32,6 @@ -- -- ------------------------------------------------------------------------------ -with System.Storage_Elements; --- used for To_Address - with System.Task_Primitives.Operations; -- used for Write_Lock -- Unlock diff --git a/gcc/ada/s-tpobop.adb b/gcc/ada/s-tpobop.adb index 9e46244f2ae..c65438a9789 100644 --- a/gcc/ada/s-tpobop.adb +++ b/gcc/ada/s-tpobop.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2006, 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- -- @@ -45,11 +45,6 @@ -- This package contains all primitives related to Protected_Objects. -- Note: the compiler generates direct calls to this interface, via Rtsfind. -with Ada.Exceptions; --- Used for Exception_ID --- Null_Id --- Raise_Exception - with System.Task_Primitives.Operations; -- used for Initialize_Lock -- Write_Lock |