2 with Unchecked_Conversion;
6 type Task_Priority_T is new Natural;
7 function Convert_To_System_Priority is
8 new Unchecked_Conversion (Task_Priority_T, System.Priority);
10 protected type Protected_Queue_T( PO_Priority : Task_Priority_T ) is
11 pragma Priority (Convert_To_System_Priority (PO_Priority ));
13 end Protected_Queue_T;
15 Sema1 : protected_Queue_T (5);
16 Sema2 : protected_Queue_T (10);