+++ /dev/null
-------------------------------------------------------------------------------
--- --
--- GNAT RUNTIME COMPONENTS --
--- --
--- A D A . D Y N A M I C _ P R I O R I T I E S --
--- --
--- S p e c --
--- --
--- $Revision: 1.1.16.1 $
--- --
--- This specification is adapted 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. --
--- --
-------------------------------------------------------------------------------
-
-with System;
-with Ada.Task_Identification;
-
-package Ada.Dynamic_Priorities is
-
- procedure Set_Priority
- (Priority : System.Any_Priority;
- T : Ada.Task_Identification.Task_Id :=
- Ada.Task_Identification.Current_Task);
-
- function Get_Priority
- (T : Ada.Task_Identification.Task_Id :=
- Ada.Task_Identification.Current_Task)
- return System.Any_Priority;
-
-end Ada.Dynamic_Priorities;