diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-09-12 11:59:17 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-09-12 11:59:17 +0000 |
| commit | a7443bd5d3f14689473213b269a2e402e3de5a6e (patch) | |
| tree | e7db31d50f4d59f06dae04e8d2af2e5babe721cc /gcc/ada/a-extiti.ads | |
| parent | cd277670e8d2c9987f3d783304432915fff243ee (diff) | |
| download | gcc-a7443bd5d3f14689473213b269a2e402e3de5a6e.tar.gz | |
* a-extiti.ads (Timer): The discriminant is a "not null access
constant" in the Reference Manual.
(Cancel_Handler): Cancelled is an out parameter in the Reference Manual.
* a-swuwha.adb: Remove junk RM header
* g-bytswa-x86.adb (Swap2, Swap4, Swap8): Remove explicit "in" mode
indicator
* g-bytswa.ads: Minor reformatting
* g-soccon-solaris-64.ads, g-soccon-hpux-ia64.ads:
Add new constant Thread_Blocking_IO, always True by default, set False
on a per-runtime basis.
(Need_Netdb_Buffer): New constant.
* s-dsaser.ads (Get_Local_Partition_Id, Get_Passive_Partition_Id):
Added renames for corresponding functions in System.Partition_Interface.
* Makefile.in: Remove VMS specific System.CRTL packages which are no
longer needed.
* s-crtl-vms64.ads: Removed.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@128430 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-extiti.ads')
| -rw-r--r-- | gcc/ada/a-extiti.ads | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/a-extiti.ads b/gcc/ada/a-extiti.ads index f2b62ca9ae6..411371dec0e 100644 --- a/gcc/ada/a-extiti.ads +++ b/gcc/ada/a-extiti.ads @@ -28,11 +28,10 @@ package Ada.Execution_Time.Timers is pragma Unimplemented_Unit; - type Timer (T : access Ada.Task_Identification.Task_Id) is + type Timer (T : not null access constant Ada.Task_Identification.Task_Id) is tagged limited private; - type Timer_Handler is - access protected procedure (TM : in out Timer); + type Timer_Handler is access protected procedure (TM : in out Timer); Min_Handler_Ceiling : constant System.Any_Priority := System.Priority'Last; @@ -50,7 +49,7 @@ package Ada.Execution_Time.Timers is procedure Cancel_Handler (TM : in out Timer; - Cancelled : in out Boolean); + Cancelled : out Boolean); function Time_Remaining (TM : Timer) return Ada.Real_Time.Time_Span; |