diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-13 11:38:56 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-13 11:38:56 +0100 |
| commit | 3abbc5c2409fae926307f5321debdf6191cd2152 (patch) | |
| tree | 6cacb10c92f95dd2445197b0ae052578e19dcd61 /gcc/ada/inline.adb | |
| parent | ef74daead6d1668980566524b3a49dcc8f51295c (diff) | |
| download | gcc-3abbc5c2409fae926307f5321debdf6191cd2152.zip gcc-3abbc5c2409fae926307f5321debdf6191cd2152.tar.gz gcc-3abbc5c2409fae926307f5321debdf6191cd2152.tar.bz2 | |
[multiple changes]
2017-01-13 Yannick Moy <moy@adacore.com>
* inline.adb: Code cleanup.
* sem_util.adb (Is_OK_Volatile_Context): Add
expression in delay statement as OK for volatile context.
2017-01-13 Ed Schonberg <schonberg@adacore.com>
* sem_aggr.adb (Resolve_Array_Aggregate): In normal compilation
mode a choice that is a subtype with a static predicate is
replaced by the values it covers. This transformation must not
be performed in ASIS mode, to preserve the source for analysis.
2017-01-13 Justin Squirek <squirek@adacore.com>
* nlists.ads: Correct minor typo.
From-SVN: r244411
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index 7389105..d0f8a8c 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -3200,17 +3200,12 @@ package body Inline is then pragma Assert (not (Is_By_Reference_Type (Etype (A)))); pragma Assert (not (Is_Limited_Type (Etype (A)))); - Decl := + Append_To (Decls, Make_Object_Declaration (Loc, - Defining_Identifier => Temp, + Defining_Identifier => Make_Temporary (Loc, 'C'), Constant_Present => True, Object_Definition => New_Occurrence_Of (Temp_Typ, Loc), - Expression => New_Copy_Tree (New_A)); - Append (Decl, Decls); - - -- Create another name for the renaming - - Temp := Make_Temporary (Loc, 'C'); + Expression => New_Copy_Tree (New_A))); end if; Decl := |