FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Remove redundant guard in expansion of dispatching calls

Browse source 
gcc/ada/

	* exp_ch3.adb (Make_Predefined_Primitive_Specs,
	Predefined_Primitive_Bodies): Remove guard with restriction
	No_Dispatching_Calls.
This commit is contained in:
Piotr Trojanek 2021-10-07 19:59:09 +02:00 • committed by Pierre-Marie de Rodat
parent 939047f542
commit a59626c8b8
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gcc/ada/exp_ch3.adb
View file

@ -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