diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-26 13:20:47 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-26 13:20:47 +0000 |
| commit | 558682939b222cbaf679ca3282ca2969638abf4c (patch) | |
| tree | fbb9f4947a251f0b47c2f6205c923acb6a40ad83 /gcc/ada/par-ch3.adb | |
| parent | ac8df12f3defdd51822b09182d2642baa9a86ce5 (diff) | |
| download | gcc-558682939b222cbaf679ca3282ca2969638abf4c.tar.gz | |
2010-10-26 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, exp_prag.adb, sem_ch3.adb, exp_atag.adb, layout.adb,
sem_dist.adb, exp_ch7.adb, exp_util.adb, exp_attr.adb, exp_ch9.adb,
sem_ch10.adb, checks.adb, sem_prag.adb, par-endh.adb, sem_ch12.adb,
exp_smem.adb, sem_attr.adb, exp_ch4.adb, exp_ch6.adb, exp_ch8.adb,
sem_ch6.adb, exp_disp.adb, exp_aggr.adb, exp_dist.adb, sem_ch13.adb,
par-ch3.adb, par-ch5.adb, exp_strm.adb, exp_ch3.adb: Minor reformatting
* opt.ads: Minor comment fix.
2010-10-26 Vincent Celier <celier@adacore.com>
* gnat_ugn.texi: Document option -s for gnatlink.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165963 138bc75d-0d04-0410-961f-82ee72b054a4
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 |