Skip to content

R
riscv-gcc-1
Commit 3ede876b by Hristian Kirtchev Committed by Arnaud Charlet
Options

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
parent 0ae9f22f
Showing with 35 additions and 149 deletions
gcc/ada/a-dynpri.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -31,12 +31,6 @@ ...@@ -31,12 +31,6 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Task_Identification;
-- used for Task_Id
-- Current_Task
-- Null_Task_Id
-- Is_Terminated
with System.Task_Primitives.Operations; with System.Task_Primitives.Operations;
-- used for Write_Lock -- used for Write_Lock
-- Unlock -- Unlock
......
gcc/ada/a-interr.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1991-1994, Florida State University -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -32,17 +32,6 @@ ...@@ -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; with Unchecked_Conversion;
package body Ada.Interrupts is package body Ada.Interrupts is
......
gcc/ada/a-reatim.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1991-1994, Florida State University -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -32,9 +32,6 @@ ...@@ -32,9 +32,6 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with System.Task_Primitives.Operations;
-- used for Monotonic_Clock
package body Ada.Real_Time is package body Ada.Real_Time is
--------- ---------
......
gcc/ada/a-tasatt.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1991-1994, Florida State University -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -221,11 +221,6 @@ ...@@ -221,11 +221,6 @@
-- was having trouble with access discriminants, so all this work was moved -- was having trouble with access discriminants, so all this work was moved
-- to the package body. -- to the package body.
with Ada.Task_Identification;
-- Used for Task_Id
-- Null_Task_Id
-- Current_Task
with System.Error_Reporting; with System.Error_Reporting;
-- Used for Shutdown; -- Used for Shutdown;
......
gcc/ada/a-taside.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -35,8 +35,6 @@ with System.Address_Image; ...@@ -35,8 +35,6 @@ with System.Address_Image;
with System.Parameters; with System.Parameters;
with System.Soft_Links; with System.Soft_Links;
with System.Task_Primitives.Operations; with System.Task_Primitives.Operations;
with System.Tasking;
with Unchecked_Conversion; with Unchecked_Conversion;
pragma Warnings (Off); pragma Warnings (Off);
......
gcc/ada/a-textio.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -33,9 +33,10 @@ ...@@ -33,9 +33,10 @@
with Ada.Streams; use Ada.Streams; with Ada.Streams; use Ada.Streams;
with Interfaces.C_Streams; use Interfaces.C_Streams; with Interfaces.C_Streams; use Interfaces.C_Streams;
with System;
with System.File_IO; with System.File_IO;
with System.CRTL; with System.CRTL;
with Unchecked_Conversion; with Unchecked_Conversion;
with Unchecked_Deallocation; with Unchecked_Deallocation;
......
gcc/ada/a-witeio.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -35,7 +35,6 @@ with Ada.Exceptions; use Ada.Exceptions; ...@@ -35,7 +35,6 @@ with Ada.Exceptions; use Ada.Exceptions;
with Ada.Streams; use Ada.Streams; with Ada.Streams; use Ada.Streams;
with Interfaces.C_Streams; use Interfaces.C_Streams; with Interfaces.C_Streams; use Interfaces.C_Streams;
with System;
with System.CRTL; with System.CRTL;
with System.File_IO; with System.File_IO;
with System.WCh_Cnv; use System.WCh_Cnv; with System.WCh_Cnv; use System.WCh_Cnv;
......
gcc/ada/a-ztexio.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -35,7 +35,6 @@ with Ada.Exceptions; use Ada.Exceptions; ...@@ -35,7 +35,6 @@ with Ada.Exceptions; use Ada.Exceptions;
with Ada.Streams; use Ada.Streams; with Ada.Streams; use Ada.Streams;
with Interfaces.C_Streams; use Interfaces.C_Streams; with Interfaces.C_Streams; use Interfaces.C_Streams;
with System;
with System.CRTL; with System.CRTL;
with System.File_IO; with System.File_IO;
with System.WCh_Cnv; use System.WCh_Cnv; with System.WCh_Cnv; use System.WCh_Cnv;
......
gcc/ada/g-dynhta.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -31,8 +31,6 @@ ...@@ -31,8 +31,6 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Unchecked_Deallocation;
package body GNAT.Dynamic_HTables is package body GNAT.Dynamic_HTables is
------------------- -------------------
......
gcc/ada/prj-attr.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -27,8 +27,6 @@ ...@@ -27,8 +27,6 @@
with Namet; use Namet; with Namet; use Namet;
with Osint; with Osint;
with Prj.Com; use Prj.Com; with Prj.Com; use Prj.Com;
with Table;
with System.Case_Util; use System.Case_Util; with System.Case_Util; use System.Case_Util;
package body Prj.Attr is package body Prj.Attr is
......
gcc/ada/s-asthan-vms-alpha.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -54,7 +54,6 @@ with System.Task_Primitives.Operations.DEC; ...@@ -54,7 +54,6 @@ with System.Task_Primitives.Operations.DEC;
-- removed, because of problem with controlled attribute ??? -- removed, because of problem with controlled attribute ???
with Ada.Task_Attributes; with Ada.Task_Attributes;
with Ada.Task_Identification;
with Ada.Exceptions; use Ada.Exceptions; with Ada.Exceptions; use Ada.Exceptions;
......
gcc/ada/s-asthan.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -34,8 +34,6 @@ ...@@ -34,8 +34,6 @@
-- This is the dummy version used on non-VMS systems -- This is the dummy version used on non-VMS systems
with Ada.Exceptions; with Ada.Exceptions;
with Ada.Task_Identification;
with System.Aux_DEC;
package body System.AST_Handling is package body System.AST_Handling is
...@@ -47,8 +45,7 @@ package body System.AST_Handling is ...@@ -47,8 +45,7 @@ package body System.AST_Handling is
function Create_AST_Handler function Create_AST_Handler
(Taskid : Ada.Task_Identification.Task_Id; (Taskid : Ada.Task_Identification.Task_Id;
Entryno : Natural) Entryno : Natural) return System.Aux_DEC.AST_Handler
return System.Aux_DEC.AST_Handler
is is
begin begin
Ada.Exceptions.Raise_Exception Ada.Exceptions.Raise_Exception
...@@ -59,7 +56,7 @@ package body System.AST_Handling is ...@@ -59,7 +56,7 @@ package body System.AST_Handling is
end Create_AST_Handler; end Create_AST_Handler;
procedure Expand_AST_Packet_Pool procedure Expand_AST_Packet_Pool
(Requested_Packets : in Natural; (Requested_Packets : Natural;
Actual_Number : out Natural; Actual_Number : out Natural;
Total_Number : out Natural) Total_Number : out Natural)
is is
......
gcc/ada/s-interr-sigaction.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -39,9 +39,6 @@ with Ada.Task_Identification; ...@@ -39,9 +39,6 @@ with Ada.Task_Identification;
with Ada.Exceptions; with Ada.Exceptions;
-- used for Raise_Exception -- used for Raise_Exception
with System.OS_Interface;
-- used for intr_attach
with System.Storage_Elements; with System.Storage_Elements;
-- used for To_Address -- used for To_Address
-- To_Integer -- To_Integer
......
gcc/ada/s-interr-vms.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -99,13 +99,6 @@ with System.Storage_Elements; ...@@ -99,13 +99,6 @@ with System.Storage_Elements;
-- To_Integer -- To_Integer
-- Integer_Address -- Integer_Address
with System.Tasking;
-- used for Task_Id
-- Task_Entry_Index
-- Null_Task
-- Self
-- Interrupt_Manager_ID
with System.Tasking.Utilities; with System.Tasking.Utilities;
-- used for Make_Independent -- used for Make_Independent
......
gcc/ada/s-interr-vxworks.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -93,13 +93,6 @@ with System.Storage_Elements; ...@@ -93,13 +93,6 @@ with System.Storage_Elements;
-- To_Integer -- To_Integer
-- Integer_Address -- Integer_Address
with System.Tasking;
-- used for Task_Id
-- Task_Entry_Index
-- Null_Task
-- Self
-- Interrupt_Manager_ID
with System.Tasking.Utilities; with System.Tasking.Utilities;
-- used for Make_Independent -- used for Make_Independent
......
gcc/ada/s-interr.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -106,13 +106,6 @@ with System.Storage_Elements; ...@@ -106,13 +106,6 @@ with System.Storage_Elements;
-- To_Integer -- To_Integer
-- Integer_Address -- Integer_Address
with System.Tasking;
-- used for Task_Id
-- Task_Entry_Index
-- Null_Task
-- Self
-- Interrupt_Manager_ID
with System.Tasking.Utilities; with System.Tasking.Utilities;
-- used for Make_Independent -- used for Make_Independent
......
gcc/ada/s-intman-irix.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1991-1994, Florida State University -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -40,12 +40,6 @@ ...@@ -40,12 +40,6 @@
-- Be on the lookout for special signals that -- Be on the lookout for special signals that
-- may be used by the thread library. -- 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 package body System.Interrupt_Management is
use System.OS_Interface; use System.OS_Interface;
......
gcc/ada/s-intman-posix.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -59,12 +59,6 @@ ...@@ -59,12 +59,6 @@
-- default -- default
-- Reserved: the OS specific set of signals that are reserved. -- 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 package body System.Interrupt_Management is
use Interfaces.C; use Interfaces.C;
......
gcc/ada/s-intman-solaris.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -40,12 +40,6 @@ ...@@ -40,12 +40,6 @@
-- Be on the lookout for special signals that -- Be on the lookout for special signals that
-- may be used by the thread library. -- 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 package body System.Interrupt_Management is
use Interfaces.C; use Interfaces.C;
......
gcc/ada/s-intman-vms.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -33,9 +33,6 @@ ...@@ -33,9 +33,6 @@
-- This is a OpenVMS/Alpha version of this package. -- 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 package body System.Interrupt_Management is
---------------- ----------------
......
gcc/ada/s-intman-vxworks.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -39,11 +39,6 @@ ...@@ -39,11 +39,6 @@
-- Be on the lookout for special signals that -- Be on the lookout for special signals that
-- may be used by the thread library. -- 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 package body System.Interrupt_Management is
use System.OS_Interface; use System.OS_Interface;
......
gcc/ada/s-osinte-aix.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -37,8 +37,6 @@ pragma Polling (Off); ...@@ -37,8 +37,6 @@ pragma Polling (Off);
-- Turn off polling, we do not want ATC polling to take place during -- Turn off polling, we do not want ATC polling to take place during
-- tasking operations. It causes infinite loops and other problems. -- tasking operations. It causes infinite loops and other problems.
with Interfaces.C;
package body System.OS_Interface is package body System.OS_Interface is
use Interfaces.C; use Interfaces.C;
......
gcc/ada/s-osinte-lynxos-3.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -37,8 +37,6 @@ pragma Polling (Off); ...@@ -37,8 +37,6 @@ pragma Polling (Off);
-- Turn off polling, we do not want ATC polling to take place during -- Turn off polling, we do not want ATC polling to take place during
-- tasking operations. It causes infinite loops and other problems. -- tasking operations. It causes infinite loops and other problems.
with Interfaces.C;
package body System.OS_Interface is package body System.OS_Interface is
use Interfaces.C; use Interfaces.C;
......
gcc/ada/s-osinte-lynxos.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -37,8 +37,6 @@ pragma Polling (Off); ...@@ -37,8 +37,6 @@ pragma Polling (Off);
-- Turn off polling, we do not want ATC polling to take place during -- Turn off polling, we do not want ATC polling to take place during
-- tasking operations. It causes infinite loops and other problems. -- tasking operations. It causes infinite loops and other problems.
with Interfaces.C;
package body System.OS_Interface is package body System.OS_Interface is
use Interfaces.C; use Interfaces.C;
......
gcc/ada/s-pooglo.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -32,7 +32,6 @@ ...@@ -32,7 +32,6 @@
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with System.Storage_Pools; use System.Storage_Pools; with System.Storage_Pools; use System.Storage_Pools;
with System.Storage_Elements;
with System.Memory; with System.Memory;
package body System.Pool_Global is package body System.Pool_Global is
......
gcc/ada/s-pooloc.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -32,7 +32,6 @@ ...@@ -32,7 +32,6 @@
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with System.Memory; with System.Memory;
with System.Storage_Elements;
with Unchecked_Conversion; with Unchecked_Conversion;
......
gcc/ada/s-poosiz.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -31,7 +31,6 @@ ...@@ -31,7 +31,6 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with System.Storage_Elements;
with System.Soft_Links; with System.Soft_Links;
with Unchecked_Conversion; with Unchecked_Conversion;
......
gcc/ada/s-tasren.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -31,12 +31,6 @@ ...@@ -31,12 +31,6 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Exceptions;
-- Used for Exception_ID
-- Null_Id
-- Transfer_Occurrence
-- Raise_Exception
with System.Task_Primitives.Operations; with System.Task_Primitives.Operations;
-- used for Get_Priority -- used for Get_Priority
-- Set_Priority -- Set_Priority
......
gcc/ada/s-tasuti.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -59,9 +59,6 @@ with System.Tasking.Queuing; ...@@ -59,9 +59,6 @@ with System.Tasking.Queuing;
-- used for Dequeue_Call -- used for Dequeue_Call
-- Dequeue_Head -- Dequeue_Head
with System.Tasking.Debug;
-- used for Trace
with System.Parameters; with System.Parameters;
-- used for Single_Lock -- used for Single_Lock
-- Runtime_Traces -- Runtime_Traces
...@@ -69,8 +66,6 @@ with System.Parameters; ...@@ -69,8 +66,6 @@ with System.Parameters;
with System.Traces.Tasking; with System.Traces.Tasking;
-- used for Send_Trace_Info -- used for Send_Trace_Info
with Unchecked_Conversion;
package body System.Tasking.Utilities is package body System.Tasking.Utilities is
package STPO renames System.Task_Primitives.Operations; package STPO renames System.Task_Primitives.Operations;
......
gcc/ada/s-tataat.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1991-1994, Florida State University -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -32,9 +32,6 @@ ...@@ -32,9 +32,6 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with System.Storage_Elements;
-- used for To_Address
with System.Task_Primitives.Operations; with System.Task_Primitives.Operations;
-- used for Write_Lock -- used for Write_Lock
-- Unlock -- Unlock
......
gcc/ada/s-tpobop.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -45,11 +45,6 @@ ...@@ -45,11 +45,6 @@
-- This package contains all primitives related to Protected_Objects. -- This package contains all primitives related to Protected_Objects.
-- Note: the compiler generates direct calls to this interface, via Rtsfind. -- 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; with System.Task_Primitives.Operations;
-- used for Initialize_Lock -- used for Initialize_Lock
-- Write_Lock -- Write_Lock
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment