diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-04-03 13:43:07 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-21 09:26:47 +0200 |
| commit | 8af95ac6c3b1ca737fdb140e54bfaf5814b0afdb (patch) | |
| tree | f58684cb6cc7e200fa7f89ed5322f25b23a404ea /gcc/ada/inline.adb | |
| parent | 0cb4e7f41b6466718715ea71fce6621c9e93ecfd (diff) | |
| download | gcc-8af95ac6c3b1ca737fdb140e54bfaf5814b0afdb.zip gcc-8af95ac6c3b1ca737fdb140e54bfaf5814b0afdb.tar.gz gcc-8af95ac6c3b1ca737fdb140e54bfaf5814b0afdb.tar.bz2 | |
ada: Simplify management of scopes while inlining
Code cleanup; semantics is unaffected.
gcc/ada/
* inline.adb (Add_Scope_To_Clean): Use Append_Unique_Elmt.
(Analyze_Inlined_Bodies): Refine type of a local counter;
remove extra whitespace.
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 19 |
1 files changed, 4 insertions, 15 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index a628a59..17b3099 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -845,19 +845,8 @@ package body Inline is ------------------------ procedure Add_Scope_To_Clean (Scop : Entity_Id) is - Elmt : Elmt_Id; - begin - Elmt := First_Elmt (To_Clean); - while Present (Elmt) loop - if Node (Elmt) = Scop then - return; - end if; - - Next_Elmt (Elmt); - end loop; - - Append_Elmt (Scop, To_Clean); + Append_Unique_Elmt (Scop, To_Clean); end Add_Scope_To_Clean; -------------- @@ -915,7 +904,7 @@ package body Inline is procedure Analyze_Inlined_Bodies is Comp_Unit : Node_Id; - J : Int; + J : Nat; Pack : Entity_Id; Subp : Subp_Index; S : Succ_Index; @@ -2569,8 +2558,8 @@ package body Inline is (Proc_Id : out Entity_Id; Decl_List : out List_Id) is - Formals : constant List_Id := New_List; - Subp_Name : constant Name_Id := New_Internal_Name ('F'); + Formals : constant List_Id := New_List; + Subp_Name : constant Name_Id := New_Internal_Name ('F'); Body_Decls : List_Id := No_List; Decl : Node_Id; |