From 3ede876b325742e810e011664529cc6fde6e70ed Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Wed, 15 Feb 2006 10:29:17 +0100 Subject: a-tasatt.adb, [...]: Remove redundant with clauses. 2006-02-13 Hristian Kirtchev * a-tasatt.adb, s-osinte-lynxos-3.adb, s-osinte-lynxos.adb, s-osinte-aix.adb, s-interr-sigaction.adb, s-asthan-vms-alpha.adb, s-interr-vms.adb, s-intman-vms.adb, s-interr-vxworks.adb, s-intman-vxworks.adb, s-asthan-vms-alpha.adb, a-ztexio.adb, a-reatim.adb, a-taside.adb, a-textio.adb, a-witeio.adb, prj-attr.adb, s-intman-irix.adb, s-intman-solaris.adb, s-intman-posix.adb, a-dynpri.adb, a-interr.adb, g-dynhta.adb, s-asthan.adb, s-interr.adb, s-pooglo.adb, s-pooloc.adb, s-poosiz.adb, s-tasren.adb, s-tasuti.adb, s-tataat.adb, s-tpobop.adb: Remove redundant with clauses. From-SVN: r111024 --- gcc/ada/a-dynpri.adb | 8 +------- gcc/ada/a-interr.adb | 13 +------------ gcc/ada/a-reatim.adb | 5 +---- gcc/ada/a-tasatt.adb | 7 +------ gcc/ada/a-taside.adb | 4 +--- gcc/ada/a-textio.adb | 5 +++-- gcc/ada/a-witeio.adb | 3 +-- gcc/ada/a-ztexio.adb | 3 +-- gcc/ada/g-dynhta.adb | 4 +--- gcc/ada/prj-attr.adb | 4 +--- gcc/ada/s-asthan-vms-alpha.adb | 3 +-- gcc/ada/s-asthan.adb | 9 +++------ gcc/ada/s-interr-sigaction.adb | 5 +---- gcc/ada/s-interr-vms.adb | 9 +-------- gcc/ada/s-interr-vxworks.adb | 9 +-------- gcc/ada/s-interr.adb | 9 +-------- gcc/ada/s-intman-irix.adb | 8 +------- gcc/ada/s-intman-posix.adb | 8 +------- gcc/ada/s-intman-solaris.adb | 8 +------- gcc/ada/s-intman-vms.adb | 5 +---- gcc/ada/s-intman-vxworks.adb | 7 +------ gcc/ada/s-osinte-aix.adb | 4 +--- gcc/ada/s-osinte-lynxos-3.adb | 4 +--- gcc/ada/s-osinte-lynxos.adb | 4 +--- gcc/ada/s-pooglo.adb | 3 +-- gcc/ada/s-pooloc.adb | 3 +-- gcc/ada/s-poosiz.adb | 3 +-- gcc/ada/s-tasren.adb | 8 +------- gcc/ada/s-tasuti.adb | 7 +------ gcc/ada/s-tataat.adb | 5 +---- gcc/ada/s-tpobop.adb | 7 +------ 31 files changed, 35 insertions(+), 149 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/a-dynpri.adb b/gcc/ada/a-dynpri.adb index a8acb23..82da815 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 126e59f..d9d1dc0 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 b15a6e1..1049c10 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 21c1e47..fca7bd2 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 8599af7..4243e25 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 145eaf5..0e6dd32 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 7071df1..7f72c1c 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 2742255..daadd54 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 de89123..e423bab 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 8234d27..f73751c 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 13362a9..f108058 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 110009f..00df7f4 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 41937db1..4a1cd56 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 caa1ed6..7864450 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 e673d01..3c89ea3 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 f8fe151..f4545fc 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 d47912d..71efec9 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 26ddbe5..410589e 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 05f1e04..8c4a6c1 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 7ad7f27..d4d8008 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 d31ad56..2d265ba 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 b227468..bef7de5 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 b828d8d..a454a23 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 fac68d4..ccc81a5 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 fa514f0..ca661d6 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 3a7875c..dca1b41 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 59f436b..f08add4 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 be7819b..6fafb39 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 ee68ebc..0d765df 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 528de08..c0dede8 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 9e46244..c65438a 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 -- cgit v1.1