1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
5--          A D A . D I S P A T C H I N G . R O U N D _ R O B I N           --
6--                                                                          --
7--                                 S p e c                                  --
8--                                                                          --
9-- This specification is derived from the Ada Reference Manual for use with --
10-- GNAT.  In accordance with the copyright of that document, you can freely --
11-- copy and modify this specification,  provided that if you redistribute a --
12-- modified version,  any changes that you have made are clearly indicated. --
13--                                                                          --
14------------------------------------------------------------------------------
15
16with System;
17with Ada.Real_Time;
18
19package Ada.Dispatching.Round_Robin is
20
21   pragma Unimplemented_Unit;
22
23   Default_Quantum : constant Ada.Real_Time.Time_Span :=
24                       Ada.Real_Time.Milliseconds (10);
25
26   procedure Set_Quantum
27     (Pri     : System.Priority;
28      Quantum : Ada.Real_Time.Time_Span);
29
30   procedure Set_Quantum
31     (Low, High : System.Priority;
32      Quantum   : Ada.Real_Time.Time_Span);
33
34   function Actual_Quantum
35     (Pri : System.Priority) return Ada.Real_Time.Time_Span;
36
37   function Is_Round_Robin (Pri : System.Priority) return Boolean;
38
39end Ada.Dispatching.Round_Robin;
40