summaryrefslogtreecommitdiff
path: root/gcc/ada/exp_ch8.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2010-10-26 13:20:47 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2010-10-26 13:20:47 +0000
commit558682939b222cbaf679ca3282ca2969638abf4c (patch)
treefbb9f4947a251f0b47c2f6205c923acb6a40ad83 /gcc/ada/exp_ch8.adb
parentac8df12f3defdd51822b09182d2642baa9a86ce5 (diff)
downloadgcc-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/exp_ch8.adb')
-rw-r--r--gcc/ada/exp_ch8.adb11
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch8.adb b/gcc/ada/exp_ch8.adb
index fa63e297d14..af33868b799 100644
--- a/gcc/ada/exp_ch8.adb
+++ b/gcc/ada/exp_ch8.adb
@@ -409,15 +409,14 @@ package body Exp_Ch8 is
Statements => New_List (
Make_Simple_Return_Statement (Loc,
Expression =>
- Expand_Record_Equality (
- Id,
+ Expand_Record_Equality
+ (Id,
Typ => Typ,
Lhs =>
- Make_Identifier (Loc,
- Chars (First_Formal (Id))),
+ Make_Identifier (Loc, Chars (First_Formal (Id))),
Rhs =>
- Make_Identifier (Loc,
- Chars (Next_Formal (First_Formal (Id)))),
+ Make_Identifier
+ (Loc, Chars (Next_Formal (First_Formal (Id)))),
Bodies => Declarations (Decl))))));
Append (Decl, List_Containing (N));