diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:29:17 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:29:17 +0000 |
| commit | eccb63561ff07ac55b82fb7e609e77bf306e773a (patch) | |
| tree | 3065d216f49ea5961bfec16c9821619ea5da2a91 /gcc/ada/s-asthan.adb | |
| parent | 0311af6afb62db5816bc1b2e2e7ea3d7f27cee71 (diff) | |
| download | gcc-eccb63561ff07ac55b82fb7e609e77bf306e773a.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111024 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-asthan.adb')
| -rw-r--r-- | gcc/ada/s-asthan.adb | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/gcc/ada/s-asthan.adb b/gcc/ada/s-asthan.adb index 110009f4177..00df7f45b16 100644 --- a/gcc/ada/s-asthan.adb +++ b/gcc/ada/s-asthan.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -34,8 +34,6 @@ -- This is the dummy version used on non-VMS systems with Ada.Exceptions; -with Ada.Task_Identification; -with System.Aux_DEC; package body System.AST_Handling is @@ -47,8 +45,7 @@ package body System.AST_Handling is function Create_AST_Handler (Taskid : Ada.Task_Identification.Task_Id; - Entryno : Natural) - return System.Aux_DEC.AST_Handler + Entryno : Natural) return System.Aux_DEC.AST_Handler is begin Ada.Exceptions.Raise_Exception @@ -59,7 +56,7 @@ package body System.AST_Handling is end Create_AST_Handler; procedure Expand_AST_Packet_Pool - (Requested_Packets : in Natural; + (Requested_Packets : Natural; Actual_Number : out Natural; Total_Number : out Natural) is |