From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 5 Nov 2020 10:35:26 +0000 (+0100)
Subject: [Ada] Reuse Append_New_Elmt where possible
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=586f6dd1f62c0aec857cdb6d52993a28838fc11a;p=gcc.git

[Ada] Reuse Append_New_Elmt where possible

gcc/ada/

	* cstand.adb: Simplify with Append_New_Elmt.
	* sem_util.adb: Likewise.
---

diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb
index 36634c79680..3f5389c5ce0 100644
--- a/gcc/ada/cstand.adb
+++ b/gcc/ada/cstand.adb
@@ -2074,11 +2074,7 @@ package body CStand is
       Build_Float_Type
         (Ent, Pos (Digs), Float_Rep, Int (Size), Int (Alignment / 8));
 
-      if No (Back_End_Float_Types) then
-         Back_End_Float_Types := New_Elmt_List;
-      end if;
-
-      Append_Elmt (Ent, Back_End_Float_Types);
+      Append_New_Elmt (Ent, Back_End_Float_Types);
    end Register_Float_Type;
 
    ----------------------
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 958e55aa06a..675aeed6b34 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -6454,11 +6454,7 @@ package body Sem_Util is
                        and then Etype (First_Formal (Id)) =
                                 Etype (Next_Formal (First_Formal (Id)))
                      then
-                        if No (Eq_Prims_List) then
-                           Eq_Prims_List := New_Elmt_List;
-                        end if;
-
-                        Append_Elmt (Id, Eq_Prims_List);
+                        Append_New_Elmt (Id, Eq_Prims_List);
                      end if;
                   end if;
                end if;
@@ -22455,11 +22451,7 @@ package body Sem_Util is
       function Search_Decl (N : Node_Id) return Traverse_Result is
       begin
          if Nkind (N) in N_Declaration then
-            if No (Decls) then
-               Decls := New_Elmt_List;
-            end if;
-
-            Append_Elmt (N, Decls);
+            Append_New_Elmt (N, Decls);
          end if;
 
          return OK;