diff options
Diffstat (limited to 'gcc-4.8/gcc/ada/a-etgrbu.ads')
-rw-r--r-- | gcc-4.8/gcc/ada/a-etgrbu.ads | 87 |
1 files changed, 0 insertions, 87 deletions
diff --git a/gcc-4.8/gcc/ada/a-etgrbu.ads b/gcc-4.8/gcc/ada/a-etgrbu.ads deleted file mode 100644 index 1c86cee79..000000000 --- a/gcc-4.8/gcc/ada/a-etgrbu.ads +++ /dev/null @@ -1,87 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME COMPONENTS -- --- -- --- A D A . E X E C U T I O N _ T I M E . G R O U P _ B U D G E T S -- --- -- --- S p e c -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. In accordance with the copyright of that document, you can freely -- --- copy and modify this specification, provided that if you redistribute a -- --- modified version, any changes that you have made are clearly indicated. -- --- -- ------------------------------------------------------------------------------- - --- This unit is not implemented in typical GNAT implementations that lie on --- top of operating systems, because it is infeasible to implement in such --- environments. - --- If a target environment provides appropriate support for this package, --- then the Unimplemented_Unit pragma should be removed from this spec and --- an appropriate body provided. - -with System; - -package Ada.Execution_Time.Group_Budgets is - pragma Preelaborate; - - pragma Unimplemented_Unit; - - type Group_Budget is tagged limited private; - - type Group_Budget_Handler is access - protected procedure (GB : in out Group_Budget); - - type Task_Array is - array (Positive range <>) of Ada.Task_Identification.Task_Id; - - Min_Handler_Ceiling : constant System.Any_Priority := - System.Any_Priority'First; - -- Initial value is an arbitrary choice ??? - - procedure Add_Task - (GB : in out Group_Budget; - T : Ada.Task_Identification.Task_Id); - - procedure Remove_Task - (GB : in out Group_Budget; - T : Ada.Task_Identification.Task_Id); - - function Is_Member - (GB : Group_Budget; - T : Ada.Task_Identification.Task_Id) return Boolean; - - function Is_A_Group_Member - (T : Ada.Task_Identification.Task_Id) return Boolean; - - function Members (GB : Group_Budget) return Task_Array; - - procedure Replenish - (GB : in out Group_Budget; - To : Ada.Real_Time.Time_Span); - - procedure Add - (GB : in out Group_Budget; - Interval : Ada.Real_Time.Time_Span); - - function Budget_Has_Expired (GB : Group_Budget) return Boolean; - - function Budget_Remaining - (GB : Group_Budget) return Ada.Real_Time.Time_Span; - - procedure Set_Handler - (GB : in out Group_Budget; - Handler : Group_Budget_Handler); - - function Current_Handler (GB : Group_Budget) return Group_Budget_Handler; - - procedure Cancel_Handler - (GB : in out Group_Budget; - Cancelled : out Boolean); - - Group_Budget_Error : exception; - -private - type Group_Budget is tagged limited null record; -end Ada.Execution_Time.Group_Budgets; |