diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2016-04-19 13:06:01 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-19 15:06:01 +0200 |
| commit | e90e9503dff78ba8d3c31f01ef41ea8b75d953ee (patch) | |
| tree | 444ab39e0c86868ee041112f28077983a34e4dd0 /gcc/ada/inline.adb | |
| parent | db7e372172d0753acae272572f852eb6cd8135f4 (diff) | |
| download | gcc-e90e9503dff78ba8d3c31f01ef41ea8b75d953ee.zip gcc-e90e9503dff78ba8d3c31f01ef41ea8b75d953ee.tar.gz gcc-e90e9503dff78ba8d3c31f01ef41ea8b75d953ee.tar.bz2 | |
sem_res.adb (Within_Subprogram_Call): Detect also nodes that appear in entry calls.
2016-04-19 Arnaud Charlet <charlet@adacore.com>
* sem_res.adb (Within_Subprogram_Call): Detect
also nodes that appear in entry calls.
(Resolve_Actuals, Insert_Default): Propagate
dimension information if any, from default expression to the
copy that appears in the list of actuals.
* uintp.ads: minor whitespace fix in comment.
* sem_prag.adb, stringt.adb, inline.adb, lib-xref-spark_specific.adb:
Minor code cleanup.
* set_targ.adb (Set_Targ): convert directly from
Natural to Pos, without intermediate conversion to Int.
From-SVN: r235197
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index b3b5aba..7944604 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -2242,7 +2242,7 @@ package body Inline is Lab_Decl : Node_Id; Lab_Id : Node_Id; New_A : Node_Id; - Num_Ret : Int := 0; + Num_Ret : Nat := 0; Ret_Type : Entity_Id; Targ : Node_Id; |