From 586f6dd1f62c0aec857cdb6d52993a28838fc11a Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 5 Nov 2020 11:35:26 +0100 Subject: [PATCH] [Ada] Reuse Append_New_Elmt where possible gcc/ada/ * cstand.adb: Simplify with Append_New_Elmt. * sem_util.adb: Likewise. --- gcc/ada/cstand.adb | 6 +----- gcc/ada/sem_util.adb | 12 ++---------- 2 files changed, 3 insertions(+), 15 deletions(-) diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index 36634c7..3f5389c 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 958e55a..675aeed 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; -- 2.7.4