[gcc r12-2124] [Ada] Simplify code by reusing Remove on list of primitive operations

[gcc r12-2124] [Ada] Simplify code by reusing Remove on list of primitive operations

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:e1eb4441733ca9b80faf4f51a29418d720014ae1

commit r12-2124-ge1eb4441733ca9b80faf4f51a29418d720014ae1
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Wed May 19 14:05:01 2021 +0200

    [Ada] Simplify code by reusing Remove on list of primitive operations
    
    gcc/ada/
    
            * sem_prag.adb (Analyze_Pragma): Simplify processing of pragma
            CPP_Constructor.

Diff:
---
 gcc/ada/sem_prag.adb | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 41e887d8f39..5705aa7bbf4 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -14738,7 +14738,6 @@ package body Sem_Prag is
          --    [, [Link_Name     =>] static_string_EXPRESSION ]);
 
          when Pragma_CPP_Constructor => CPP_Constructor : declare
-            Elmt    : Elmt_Id;
             Id      : Entity_Id;
             Def_Id  : Entity_Id;
             Tag_Typ : Entity_Id;
@@ -14805,12 +14804,7 @@ package body Sem_Prag is
                then
                   Tag_Typ := Etype (Def_Id);
 
-                  Elmt := First_Elmt (Primitive_Operations (Tag_Typ));
-                  while Present (Elmt) and then Node (Elmt) /= Def_Id loop
-                     Next_Elmt (Elmt);
-                  end loop;
-
-                  Remove_Elmt (Primitive_Operations (Tag_Typ), Elmt);
+                  Remove (Primitive_Operations (Tag_Typ), Def_Id);
                   Set_Is_Dispatching_Operation (Def_Id, False);
                end if;