diff options
Diffstat (limited to 'gcc/ada/rtsfind.ads')
| -rw-r--r-- | gcc/ada/rtsfind.ads | 28 |
1 files changed, 19 insertions, 9 deletions
diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index ee9919a5fd4..5f9c9934ca4 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -1502,6 +1502,9 @@ package Rtsfind is RE_Unspecified_Task_Info, -- System.Task_Info RE_Task_Procedure_Access, -- System.Tasking + RE_Task_Entry_Names_Array, -- System.Tasking + RO_ST_Number_Of_Entries, -- System.Tasking + RO_ST_Set_Entry_Names, -- System.Tasking RO_ST_Task_Id, -- System.Tasking RO_ST_Null_Task, -- System.Tasking @@ -1528,6 +1531,7 @@ package Rtsfind is RE_Simple_Mode, -- System.Tasking RE_Terminate_Mode, -- System.Tasking RE_Delay_Mode, -- System.Tasking + RE_Entry_Index, -- System.Tasking RE_Task_Entry_Index, -- System.Tasking RE_Self, -- System.Tasking @@ -1687,14 +1691,16 @@ package Rtsfind is RE_Dispatching_Domain, -- Dispatching_Domains RE_Protected_Entry_Body_Array, -- Tasking.Protected_Objects.Entries + RE_Protected_Entry_Names_Array, -- Tasking.Protected_Objects.Entries RE_Protection_Entries, -- Tasking.Protected_Objects.Entries RE_Protection_Entries_Access, -- Tasking.Protected_Objects.Entries RE_Initialize_Protection_Entries, -- Tasking.Protected_Objects.Entries RE_Lock_Entries, -- Tasking.Protected_Objects.Entries + RE_Unlock_Entries, -- Tasking.Protected_Objects.Entries RO_PE_Get_Ceiling, -- Tasking.Protected_Objects.Entries + RO_PE_Number_Of_Entries, -- Tasking.Protected_Objects.Entries RO_PE_Set_Ceiling, -- Tasking.Protected_Objects.Entries - RO_PE_Set_Entry_Name, -- Tasking.Protected_Objects.Entries - RE_Unlock_Entries, -- Tasking.Protected_Objects.Entries + RO_PE_Set_Entry_Names, -- Tasking.Protected_Objects.Entries RE_Communication_Block, -- Protected_Objects.Operations RE_Protected_Entry_Call, -- Protected_Objects.Operations @@ -1756,7 +1762,6 @@ package Rtsfind is RE_Timed_Task_Entry_Call, -- System.Tasking.Rendezvous RE_Timed_Selective_Wait, -- System.Tasking.Rendezvous - RE_Activate_Restricted_Tasks, -- System.Tasking.Restricted.Stages RE_Complete_Restricted_Activation, -- System.Tasking.Restricted.Stages RE_Create_Restricted_Task, -- System.Tasking.Restricted.Stages RE_Complete_Restricted_Task, -- System.Tasking.Restricted.Stages @@ -1770,7 +1775,6 @@ package Rtsfind is RE_Free_Task, -- System.Tasking.Stages RE_Expunge_Unactivated_Tasks, -- System.Tasking.Stages RE_Move_Activation_Chain, -- System_Tasking_Stages - RO_TS_Set_Entry_Name, -- System.Tasking.Stages RE_Terminated); -- System.Tasking.Stages -- The following declarations build a table that is indexed by the RTE @@ -2750,6 +2754,9 @@ package Rtsfind is RE_Unspecified_Task_Info => System_Task_Info, RE_Task_Procedure_Access => System_Tasking, + RE_Task_Entry_Names_Array => System_Tasking, + RO_ST_Number_Of_Entries => System_Tasking, + RO_ST_Set_Entry_Names => System_Tasking, RO_ST_Task_Id => System_Tasking, RO_ST_Null_Task => System_Tasking, @@ -2776,6 +2783,7 @@ package Rtsfind is RE_Simple_Mode => System_Tasking, RE_Terminate_Mode => System_Tasking, RE_Delay_Mode => System_Tasking, + RE_Entry_Index => System_Tasking, RE_Task_Entry_Index => System_Tasking, RE_Self => System_Tasking, @@ -2938,6 +2946,8 @@ package Rtsfind is RE_Protected_Entry_Body_Array => System_Tasking_Protected_Objects_Entries, + RE_Protected_Entry_Names_Array => + System_Tasking_Protected_Objects_Entries, RE_Protection_Entries => System_Tasking_Protected_Objects_Entries, RE_Protection_Entries_Access => @@ -2946,13 +2956,15 @@ package Rtsfind is System_Tasking_Protected_Objects_Entries, RE_Lock_Entries => System_Tasking_Protected_Objects_Entries, + RE_Unlock_Entries => + System_Tasking_Protected_Objects_Entries, RO_PE_Get_Ceiling => System_Tasking_Protected_Objects_Entries, - RO_PE_Set_Ceiling => + RO_PE_Number_Of_Entries => System_Tasking_Protected_Objects_Entries, - RO_PE_Set_Entry_Name => + RO_PE_Set_Ceiling => System_Tasking_Protected_Objects_Entries, - RE_Unlock_Entries => + RO_PE_Set_Entry_Names => System_Tasking_Protected_Objects_Entries, RE_Communication_Block => @@ -3042,7 +3054,6 @@ package Rtsfind is RE_Timed_Task_Entry_Call => System_Tasking_Rendezvous, RE_Timed_Selective_Wait => System_Tasking_Rendezvous, - RE_Activate_Restricted_Tasks => System_Tasking_Restricted_Stages, RE_Complete_Restricted_Activation => System_Tasking_Restricted_Stages, RE_Create_Restricted_Task => System_Tasking_Restricted_Stages, RE_Complete_Restricted_Task => System_Tasking_Restricted_Stages, @@ -3056,7 +3067,6 @@ package Rtsfind is RE_Free_Task => System_Tasking_Stages, RE_Expunge_Unactivated_Tasks => System_Tasking_Stages, RE_Move_Activation_Chain => System_Tasking_Stages, - RO_TS_Set_Entry_Name => System_Tasking_Stages, RE_Terminated => System_Tasking_Stages); -------------------------------- |