From ade343e6694ffeb4d587db073b19d5da5e1c3003 Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Fri, 13 Jan 2023 08:34:45 -0500 Subject: [PATCH] ada: Remove duplicated code in Proc_Next_Component_Or_Discriminant Proc_Next_Component_Or_Discriminant was duplicating the code in Next_Component_Or_Discriminant. gcc/ada/ * einfo-utils.adb: (Proc_Next_Component_Or_Discriminant): Call Next_Component_Or_Discriminant. --- gcc/ada/einfo-utils.adb | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/gcc/ada/einfo-utils.adb b/gcc/ada/einfo-utils.adb index dc379cbc8529..a8220e2d1336 100644 --- a/gcc/ada/einfo-utils.adb +++ b/gcc/ada/einfo-utils.adb @@ -3219,11 +3219,7 @@ package body Einfo.Utils is procedure Proc_Next_Component_Or_Discriminant (N : in out Node_Id) is begin - N := Next_Entity (N); - while Present (N) loop - exit when Ekind (N) in E_Component | E_Discriminant; - N := Next_Entity (N); - end loop; + N := Next_Component_Or_Discriminant (N); end Proc_Next_Component_Or_Discriminant; procedure Proc_Next_Discriminant (N : in out Node_Id) is -- 2.47.2