-- Disp_Requeue
-- Disp_Timed_Select
- -- Disable the generation of these bodies if No_Dispatching_Calls,
- -- Ravenscar or ZFP is active.
+ -- Disable the generation of these bodies if Ravenscar or ZFP is active
if Ada_Version >= Ada_2005
- and then not Restriction_Active (No_Dispatching_Calls)
and then not Restriction_Active (No_Select_Statements)
and then RTE_Available (RE_Select_Specific_Data)
then
-- The interface versions will have null bodies
- -- Disable the generation of these bodies if No_Dispatching_Calls,
- -- Ravenscar or ZFP is active.
+ -- Disable the generation of these bodies if Ravenscar or ZFP is active
-- In VM targets we define these primitives in all root tagged types
-- that are not interface types. Done because in VM targets we don't
or else
(not Tagged_Type_Expansion
and then Tag_Typ = Root_Type (Tag_Typ)))
- and then not Restriction_Active (No_Dispatching_Calls)
and then not Restriction_Active (No_Select_Statements)
and then RTE_Available (RE_Select_Specific_Data)
then