diff options
Diffstat (limited to 'gcc/ada/atree.adb')
| -rw-r--r-- | gcc/ada/atree.adb | 27 |
1 files changed, 9 insertions, 18 deletions
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index 906b3af8aab..d410a33c108 100644 --- a/gcc/ada/atree.adb +++ b/gcc/ada/atree.adb @@ -1032,8 +1032,7 @@ package body Atree is (Source : Node_Id; Map : Elist_Id := No_Elist; New_Sloc : Source_Ptr := No_Location; - New_Scope : Entity_Id := Empty) - return Node_Id + New_Scope : Entity_Id := Empty) return Node_Id is Actual_Map : Elist_Id := Map; -- This is the actual map for the copy. It is initialized with the @@ -1053,8 +1052,7 @@ package body Atree is -- Builds hash tables (number of elements >= threshold value) function Copy_Elist_With_Replacement - (Old_Elist : Elist_Id) - return Elist_Id; + (Old_Elist : Elist_Id) return Elist_Id; -- Called during second phase to copy element list doing replacements. procedure Copy_Itype_With_Replacement (New_Itype : Entity_Id); @@ -1167,8 +1165,7 @@ package body Atree is --------------------------------- function Copy_Elist_With_Replacement - (Old_Elist : Elist_Id) - return Elist_Id + (Old_Elist : Elist_Id) return Elist_Id is M : Elmt_Id; New_Elist : Elist_Id; @@ -1243,8 +1240,7 @@ package body Atree is -------------------------------- function Copy_List_With_Replacement - (Old_List : List_Id) - return List_Id + (Old_List : List_Id) return List_Id is New_List : List_Id; E : Node_Id; @@ -1270,14 +1266,12 @@ package body Atree is -------------------------------- function Copy_Node_With_Replacement - (Old_Node : Node_Id) - return Node_Id + (Old_Node : Node_Id) return Node_Id is New_Node : Node_Id; function Copy_Field_With_Replacement - (Field : Union_Id) - return Union_Id; + (Field : Union_Id) return Union_Id; -- Given Field, which is a field of Old_Node, return a copy of it -- if it is a syntactic field (i.e. its parent is Node), setting -- the parent of the copy to poit to New_Node. Otherwise returns @@ -1288,8 +1282,7 @@ package body Atree is --------------------------------- function Copy_Field_With_Replacement - (Field : Union_Id) - return Union_Id + (Field : Union_Id) return Union_Id is begin if Field = Union_Id (Empty) then @@ -1829,8 +1822,7 @@ package body Atree is function New_Entity (New_Node_Kind : Node_Kind; - New_Sloc : Source_Ptr) - return Entity_Id + New_Sloc : Source_Ptr) return Entity_Id is Ent : Entity_Id; @@ -1900,8 +1892,7 @@ package body Atree is function New_Node (New_Node_Kind : Node_Kind; - New_Sloc : Source_Ptr) - return Node_Id + New_Sloc : Source_Ptr) return Node_Id is Nod : Node_Id; |