OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2008-04-08 Ed Schonberg <schonberg@adacore.com>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
ada
/
a-extiti.ads
diff --git
a/gcc/ada/a-extiti.ads
b/gcc/ada/a-extiti.ads
index
f2b62ca
..
411371d
100644
(file)
--- 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;
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;
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;
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;
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;
function Time_Remaining (TM : Timer) return Ada.Real_Time.Time_Span;