a-tasatt.adb, [...]: Remove redundant with clauses.

2006-02-13  Hristian Kirtchev  <kirtchev@adacore.com>

	* 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

diff --git a/gcc/ada/a-dynpri.adb b/gcc/ada/a-dynpri.adb
index a8acb2342b4dea9170e0af18ef6ff75f3e8ad7ff..82da815521820ef4c36e5c71bb6e2973a5636f53 100644 (file)
--- 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 126e59f49b4743d18175ba837bdf3876ea7c8a3a..d9d1dc07c884cd197d7708128b58bbc57150415f 100644 (file)
--- 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 b15a6e155bd82d968245802dabedffa6cb64c6db..1049c10dd15fc92a37d83d0218b75d691dbc993a 100644 (file)
--- 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 21c1e471367f1e5051a61d2c0652ca99c527334c..fca7bd2bcceff799aa5910bf21cabe7af6d94ffa 100644 (file)
--- 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 8599af7fbe39cd89de27c9375559d0ed6731a776..4243e25d44b3af9a3eb95e9a1ba1f45a4fd131c7 100644 (file)
--- 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 145eaf5563ebe3d97b6d9ca187f87a0e313b5755..0e6dd3240c1c44ed1443b074237807b4d35e9acb 100644 (file)
--- 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 7071df138c27bbf0c89b09178ccad0634eca0335..7f72c1cec9d2bb30da6715601451a61768b66272 100644 (file)
--- 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 2742255b9ff2cc40e2a23d115c9b277ec05cb1c3..daadd54b4dece02ff340e8fcca7a0f04cd10bb64 100644 (file)
--- 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 de89123a22aaf72295d43ab5b03561a45bc436f6..e423bab380f9c27c20239cf00c5bd1bf17b08d45 100644 (file)
--- 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 8234d27c8fc8577f7a07a1f59f2986788d52fc16..f73751c8c26d5bf6a3f7e9b1389e23cf8cd954ac 100644 (file)
--- 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 13362a9600b0ed5f394f8182df8535ff119c1643..f108058659e6794a84239bedf7a5c762a6001040 100644 (file)
--- 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 110009f41772883ee7d15b6ec73d1fe108724341..00df7f45b167dabca50277778416a0fa734bdaf0 100644 (file)
--- 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 41937db1facb5dc323dc2635b195af4516ae798c..4a1cd56aed5505572a14f55a233385bae8125e30 100644 (file)
--- 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 caa1ed6afa542d1bc369dc0ef29b65fcdfa838be..78644507b2d01d5e1d90fb65ddd8a14da4372fd7 100644 (file)
--- 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 e673d0167e2eaf5ea4d9e5db88f2b1c3abf38a6e..3c89ea338fd8bb6d6f8b174de7c3991e8c367f69 100644 (file)
--- 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 f8fe151a4cf0931f5b44cf32b862125e2a43f055..f4545fc96df1d90662237b47ac13d3ef1e7c0638 100644 (file)
--- 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 d47912d00b7314e92dc7b6b52e465151e9363f39..71efec9721b565cd93c2db54d5d309d481160236 100644 (file)
--- 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 26ddbe5f7173bc8a68f95c9c3e97300a2e98e123..410589e441a066f73528788f97100e8fe28a122f 100644 (file)
--- 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 05f1e042429f98c8de2c1f4467cab2154efb1b62..8c4a6c17c5b3dd07c92fa4c3a57f52d447b3f6ef 100644 (file)
--- 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 7ad7f278d9bc870b29c9cf20ce4408ad1acb58a9..d4d80089bf3c143f663dcf1b18b78df9260600e9 100644 (file)
--- 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 d31ad56d0ff8058c8cb8312969613531590e8049..2d265ba76a9e6948b259120c0f4e39d46e09154f 100644 (file)
--- 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 b2274682f8e83a7d718d571e87093de33d92cae3..bef7de50f993a1c164c2bba06e052e82a1a8928a 100644 (file)
--- 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 b828d8d81f46817a604814fdd5f02186fd40a9c4..a454a23e63ad72c9d39e2026c25d4611301766b7 100644 (file)
--- 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 fac68d47c9f35c98dfec628a63c862d716d2b504..ccc81a522ee92bb89fafbd58883c7584d512137b 100644 (file)
--- 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 fa514f01ff40c0f037e6de1ed11c134379314c0d..ca661d6ed1423773016eab075a910bb806d4d0fb 100644 (file)
--- 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 3a7875c580c565f2b12ce85ff29f1baa164cf1e2..dca1b413f70f7c4d9a163858dd2f542a6a84a2ac 100644 (file)
--- 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 59f436b26dcef4fdc150ac1ee85bd5e26b61d138..f08add4942182991acfee340c5c509cc07391081 100644 (file)
--- 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 be7819b8202667a1e028299226ea42973cae5931..6fafb39f3c3ce719a8c57332e17eedf0f77c9cd1 100644 (file)
--- 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 ee68ebcec7ba6c94fc4dd38f74a1165d0ac6c4a2..0d765df600edf25d845daf5eae300dc6465f9d8c 100644 (file)
--- 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 528de085c9022532702b7b29688342cd7ce856b5..c0dede8cc44b72b66d950897ab8b39e282ffb05c 100644 (file)
--- 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 9e46244f2ae9faf9741f9c36b79952856a7c66c3..c65438a9789f37f6de9f2e7f6f7cb0a2b41e9f0e 100644 (file)
--- 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