diff options
Diffstat (limited to 'gcc/ada/par-ch3.adb')
| -rw-r--r-- | gcc/ada/par-ch3.adb | 25 |
1 files changed, 7 insertions, 18 deletions
diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index 76355b1bcea..753c5a57a71 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -250,9 +250,7 @@ package body Ch3 is -- and we need to fix it. if Nkind (Ident_Node) = N_Defining_Identifier then - Ident_Node := - Make_Identifier (Sloc (Ident_Node), - Chars => Chars (Ident_Node)); + Ident_Node := Make_Identifier (Sloc (Ident_Node), Chars (Ident_Node)); end if; -- Change identifier to defining identifier if not in error @@ -505,9 +503,7 @@ package body Ch3 is when Tok_Left_Paren => Typedef_Node := P_Enumeration_Type_Definition; - End_Labl := - Make_Identifier (Token_Ptr, - Chars => Chars (Ident_Node)); + End_Labl := Make_Identifier (Token_Ptr, Chars (Ident_Node)); Set_Comes_From_Source (End_Labl, False); Set_End_Label (Typedef_Node, End_Labl); @@ -523,9 +519,7 @@ package body Ch3 is if Nkind (Typedef_Node) = N_Derived_Type_Definition and then Present (Record_Extension_Part (Typedef_Node)) then - End_Labl := - Make_Identifier (Token_Ptr, - Chars => Chars (Ident_Node)); + End_Labl := Make_Identifier (Token_Ptr, Chars (Ident_Node)); Set_Comes_From_Source (End_Labl, False); Set_End_Label @@ -541,9 +535,7 @@ package body Ch3 is when Tok_Record => Typedef_Node := P_Record_Definition; - End_Labl := - Make_Identifier (Token_Ptr, - Chars => Chars (Ident_Node)); + End_Labl := Make_Identifier (Token_Ptr, Chars (Ident_Node)); Set_Comes_From_Source (End_Labl, False); Set_End_Label (Typedef_Node, End_Labl); @@ -598,8 +590,7 @@ package body Ch3 is Set_Limited_Present (Typedef_Node, True); End_Labl := - Make_Identifier (Token_Ptr, - Chars => Chars (Ident_Node)); + Make_Identifier (Token_Ptr, Chars (Ident_Node)); Set_Comes_From_Source (End_Labl, False); Set_End_Label (Typedef_Node, End_Labl); @@ -621,8 +612,7 @@ package body Ch3 is Set_Tagged_Present (Typedef_Node, True); End_Labl := - Make_Identifier (Token_Ptr, - Chars => Chars (Ident_Node)); + Make_Identifier (Token_Ptr, Chars (Ident_Node)); Set_Comes_From_Source (End_Labl, False); Set_End_Label (Typedef_Node, End_Labl); @@ -705,8 +695,7 @@ package body Ch3 is and then Present (Record_Extension_Part (Typedef_Node)) then End_Labl := - Make_Identifier (Token_Ptr, - Chars => Chars (Ident_Node)); + Make_Identifier (Token_Ptr, Chars (Ident_Node)); Set_Comes_From_Source (End_Labl, False); Set_End_Label |