[gcc r11-5485] [Ada] Reuse Append_New_Elmt where possible
Pierre-Marie de Rodat
pmderodat@gcc.gnu.org
Fri Nov 27 09:20:09 GMT 2020
https://gcc.gnu.org/g:586f6dd1f62c0aec857cdb6d52993a28838fc11a
commit r11-5485-g586f6dd1f62c0aec857cdb6d52993a28838fc11a
Author: Piotr Trojanek <trojanek@adacore.com>
Date: Thu Nov 5 11:35:26 2020 +0100
[Ada] Reuse Append_New_Elmt where possible
gcc/ada/
* cstand.adb: Simplify with Append_New_Elmt.
* sem_util.adb: Likewise.
Diff:
---
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 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;
More information about the Gcc-cvs
mailing list