mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-24 03:14:08 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Ada] Simplify membership tests with N_Delay_Statement subtype

Browse Source 
gcc/ada/

	* exp_ch9.adb, sem_warn.adb: Simplify membership test.
This commit is contained in:
Piotr Trojanek 2020-11-29 22:30:17 +01:00 committed by Pierre-Marie de Rodat
parent 612c48b13b
commit 2c623ed86a
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/ada/exp_ch9.adb
View File

@ -7161,8 +7161,7 @@ package body Exp_Ch9 is
if Ada_Version >= Ada_2005
and then
(No (Original_Node (Ecall))
or else Nkind (Original_Node (Ecall)) not in
N_Delay_Relative_Statement | N_Delay_Until_Statement)
or else Nkind (Original_Node (Ecall)) not in N_Delay_Statement)
then
Extract_Dispatching_Call (Ecall, Call_Ent, Obj, Actuals, Formals);

4
gcc/ada/sem_warn.adb
View File

@ -750,9 +750,7 @@ package body Sem_Warn is
Fstm : constant Node_Id :=
Original_Node (First (Statements (Loop_Statement)));
begin
if Nkind (Fstm) = N_Delay_Relative_Statement
or else Nkind (Fstm) = N_Delay_Until_Statement
then
if Nkind (Fstm) in N_Delay_Statement then
return;
end if;
end;