1 ------------------------------------------------------------------------------
3 -- GNAT RUNTIME COMPONENTS --
5 -- A D A . D Y N A M I C _ P R I O R I T I E S --
10 -- This specification is adapted from the Ada Reference Manual for use with --
11 -- GNAT. In accordance with the copyright of that document, you can freely --
12 -- copy and modify this specification, provided that if you redistribute a --
13 -- modified version, any changes that you have made are clearly indicated. --
15 ------------------------------------------------------------------------------
18 with Ada.Task_Identification;
20 package Ada.Dynamic_Priorities is
22 procedure Set_Priority
23 (Priority : System.Any_Priority;
24 T : Ada.Task_Identification.Task_Id :=
25 Ada.Task_Identification.Current_Task);
28 (T : Ada.Task_Identification.Task_Id :=
29 Ada.Task_Identification.Current_Task)
30 return System.Any_Priority;
32 end Ada.Dynamic_Priorities;