Routines Make_Predefined_Primitive_Specs and
Predefined_Primitive_Bodies, which create predefined primitives for
derived tagged types, are only called when restriction
No_Dispatching_Calls is inactive. There is no need to recheck this
restriction when creating individual primitive operations related to
tasking.
Code cleanup related to handling of dispatching equality in SPARK.
Tested on x86_64-pc-linux-gnu, committed on trunk
gcc/ada/
* exp_ch3.adb (Make_Predefined_Primitive_Specs,
Predefined_Primitive_Bodies): Remove guard with restriction
No_Dispatching_Calls.diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -10611,11 +10611,9 @@ package body Exp_Ch3 is
-- 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
@@ -11094,8 +11092,7 @@ package body Exp_Ch3 is
-- 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
@@ -11114,7 +11111,6 @@ package body Exp_Ch3 is
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
