diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-09 15:24:20 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-09 15:24:20 +0200 |
| commit | d27f3ff4c3165d5decf103e63336095730745f82 (patch) | |
| tree | 9eff2140d9be62222e4ed1d9c4ac35cdd16917ce /gcc/ada/exp_ch8.adb | |
| parent | d48f3dca79fe7cd124c90d33dcc88b2147e23856 (diff) | |
| download | gcc-d27f3ff4c3165d5decf103e63336095730745f82.zip gcc-d27f3ff4c3165d5decf103e63336095730745f82.tar.gz gcc-d27f3ff4c3165d5decf103e63336095730745f82.tar.bz2 | |
[multiple changes]
2012-07-09 Robert Dewar <dewar@adacore.com>
* freeze.adb: Minor code reorganization (use Ekind_In).
* exp_attr.adb, sem_ch9.adb par-ch4.adb, s-taprop-mingw.adb,
sem_attr.adb, exp_ch8.adb, snames.adb-tmpl, par-util.adb,
sem_ch13.adb, snames.ads-tmpl: Minor reformatting.
2012-07-09 Tristan Gingold <gingold@adacore.com>
* raise-gcc.c: Adjust previous patch.
2012-07-09 Vincent Celier <celier@adacore.com>
* make.adb (Compilation_Phase): Do not build libraries in
Codepeer mode (do not call Library_Phase).
From-SVN: r189379
Diffstat (limited to 'gcc/ada/exp_ch8.adb')
| -rw-r--r-- | gcc/ada/exp_ch8.adb | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch8.adb b/gcc/ada/exp_ch8.adb index b0e525e..3b5c7d3 100644 --- a/gcc/ada/exp_ch8.adb +++ b/gcc/ada/exp_ch8.adb @@ -243,8 +243,12 @@ package body Exp_Ch8 is Id : constant Entity_Id := Defining_Entity (N); function Build_Body_For_Renaming return Node_Id; - -- Build and return the body for the renaming declaration of an - -- equality or unequality operator. + -- Build and return the body for the renaming declaration of an equality + -- or inequality operator. + + ----------------------------- + -- Build_Body_For_Renaming -- + ----------------------------- function Build_Body_For_Renaming return Node_Id is Body_Id : Entity_Id; @@ -275,10 +279,12 @@ package body Exp_Ch8 is return Decl; end Build_Body_For_Renaming; - -- Local variable + -- Local variables Nam : constant Node_Id := Name (N); + -- Start of processing for Expand_N_Subprogram_Renaming_Declaration + begin -- When the prefix of the name is a function call, we must force the -- call to be made by removing side effects from the call, since we @@ -334,9 +340,9 @@ package body Exp_Ch8 is Expression => Expand_Record_Equality (Id, - Typ => Typ, - Lhs => Make_Identifier (Loc, Chars (Left)), - Rhs => Make_Identifier (Loc, Chars (Right)), + Typ => Typ, + Lhs => Make_Identifier (Loc, Chars (Left)), + Rhs => Make_Identifier (Loc, Chars (Right)), Bodies => Declarations (Decl)))))); Append (Decl, List_Containing (N)); |