[Ada] Minor code clean up
Arnaud Charlet
charlet@adacore.com
Wed Feb 15 10:05:00 GMT 2006
Tested on i686-linux, committed on trunk
Remove redundant with clauses now detected by GNAT
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.
-------------- next part --------------
Index: a-tasatt.adb
===================================================================
--- a-tasatt.adb (revision 110833)
+++ a-tasatt.adb (working copy)
@@ -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;
Index: s-osinte-lynxos-3.adb
===================================================================
--- s-osinte-lynxos-3.adb (revision 110833)
+++ s-osinte-lynxos-3.adb (working copy)
@@ -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 @@
-- 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;
Index: s-osinte-lynxos.adb
===================================================================
--- s-osinte-lynxos.adb (revision 110833)
+++ s-osinte-lynxos.adb (working copy)
@@ -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 @@
-- 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;
Index: s-osinte-aix.adb
===================================================================
--- s-osinte-aix.adb (revision 110833)
+++ s-osinte-aix.adb (working copy)
@@ -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 @@
-- 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;
Index: s-interr-sigaction.adb
===================================================================
--- s-interr-sigaction.adb (revision 110833)
+++ s-interr-sigaction.adb (working copy)
@@ -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.Exceptions;
-- used for Raise_Exception
-with System.OS_Interface;
--- used for intr_attach
-
with System.Storage_Elements;
-- used for To_Address
-- To_Integer
Index: s-asthan-vms-alpha.adb
===================================================================
--- s-asthan-vms-alpha.adb (revision 110833)
+++ s-asthan-vms-alpha.adb (working copy)
@@ -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 @@
-- removed, because of problem with controlled attribute ???
with Ada.Task_Attributes;
-with Ada.Task_Identification;
with Ada.Exceptions; use Ada.Exceptions;
Index: s-interr-vms.adb
===================================================================
--- s-interr-vms.adb (revision 110833)
+++ s-interr-vms.adb (working copy)
@@ -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 @@
-- 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
Index: s-intman-vms.adb
===================================================================
--- s-intman-vms.adb (revision 110833)
+++ s-intman-vms.adb (working copy)
@@ -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
----------------
Index: s-interr-vxworks.adb
===================================================================
--- s-interr-vxworks.adb (revision 110833)
+++ s-interr-vxworks.adb (working copy)
@@ -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 @@
-- 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
Index: s-intman-vxworks.adb
===================================================================
--- s-intman-vxworks.adb (revision 110833)
+++ s-intman-vxworks.adb (working copy)
@@ -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;
Index: s-asthan-vms-alpha.adb
===================================================================
--- s-asthan-vms-alpha.adb (revision 110833)
+++ s-asthan-vms-alpha.adb (working copy)
@@ -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 @@
-- removed, because of problem with controlled attribute ???
with Ada.Task_Attributes;
-with Ada.Task_Identification;
with Ada.Exceptions; use Ada.Exceptions;
Index: a-ztexio.adb
===================================================================
--- a-ztexio.adb (revision 110833)
+++ a-ztexio.adb (working copy)
@@ -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.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;
Index: a-reatim.adb
===================================================================
--- a-reatim.adb (revision 110833)
+++ a-reatim.adb (working copy)
@@ -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
---------
Index: a-taside.adb
===================================================================
--- a-taside.adb (revision 110833)
+++ a-taside.adb (working copy)
@@ -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.Parameters;
with System.Soft_Links;
with System.Task_Primitives.Operations;
-with System.Tasking;
-
with Unchecked_Conversion;
pragma Warnings (Off);
Index: a-textio.adb
===================================================================
--- a-textio.adb (revision 110833)
+++ a-textio.adb (working copy)
@@ -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;
Index: a-witeio.adb
===================================================================
--- a-witeio.adb (revision 110833)
+++ a-witeio.adb (working copy)
@@ -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.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;
Index: prj-attr.adb
===================================================================
--- prj-attr.adb (revision 110833)
+++ prj-attr.adb (working copy)
@@ -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
Index: s-intman-irix.adb
===================================================================
--- s-intman-irix.adb (revision 110833)
+++ s-intman-irix.adb (working copy)
@@ -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;
Index: s-intman-solaris.adb
===================================================================
--- s-intman-solaris.adb (revision 110833)
+++ s-intman-solaris.adb (working copy)
@@ -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;
Index: s-intman-posix.adb
===================================================================
--- s-intman-posix.adb (revision 110833)
+++ s-intman-posix.adb (working copy)
@@ -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;
Index: a-dynpri.adb
===================================================================
--- a-dynpri.adb (revision 110833)
+++ a-dynpri.adb (working copy)
@@ -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
Index: a-interr.adb
===================================================================
--- a-interr.adb (revision 110833)
+++ a-interr.adb (working copy)
@@ -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
Index: g-dynhta.adb
===================================================================
--- g-dynhta.adb (revision 110833)
+++ g-dynhta.adb (working copy)
@@ -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
-------------------
Index: s-asthan.adb
===================================================================
--- s-asthan.adb (revision 110833)
+++ s-asthan.adb (working copy)
@@ -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 @@
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 @@
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
Index: s-interr.adb
===================================================================
--- s-interr.adb (revision 110833)
+++ s-interr.adb (working copy)
@@ -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 @@
-- 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
Index: s-pooglo.adb
===================================================================
--- s-pooglo.adb (revision 110833)
+++ s-pooglo.adb (working copy)
@@ -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
Index: s-pooloc.adb
===================================================================
--- s-pooloc.adb (revision 110833)
+++ s-pooloc.adb (working copy)
@@ -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;
Index: s-poosiz.adb
===================================================================
--- s-poosiz.adb (revision 110833)
+++ s-poosiz.adb (working copy)
@@ -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;
Index: s-tasren.adb
===================================================================
--- s-tasren.adb (revision 110833)
+++ s-tasren.adb (working copy)
@@ -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
Index: s-tasuti.adb
===================================================================
--- s-tasuti.adb (revision 110833)
+++ s-tasuti.adb (working copy)
@@ -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 @@
-- 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.Traces.Tasking;
-- used for Send_Trace_Info
-with Unchecked_Conversion;
-
package body System.Tasking.Utilities is
package STPO renames System.Task_Primitives.Operations;
Index: s-tataat.adb
===================================================================
--- s-tataat.adb (revision 110833)
+++ s-tataat.adb (working copy)
@@ -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
Index: s-tpobop.adb
===================================================================
--- s-tpobop.adb (revision 110833)
+++ s-tpobop.adb (working copy)
@@ -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
More information about the Gcc-patches
mailing list