diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-27 12:58:41 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-27 12:58:41 +0200 |
| commit | 2a253c5bba9ecf4f09242253bf8efd05c9cce9de (patch) | |
| tree | 2f34e307917721b814a777309cf21c4f55dddb89 /gcc/ada/exp_ch6.adb | |
| parent | 780fd3766a642683f0026ac3ac8747529f7a839f (diff) | |
| download | gcc-2a253c5bba9ecf4f09242253bf8efd05c9cce9de.zip gcc-2a253c5bba9ecf4f09242253bf8efd05c9cce9de.tar.gz gcc-2a253c5bba9ecf4f09242253bf8efd05c9cce9de.tar.bz2 | |
[multiple changes]
2016-04-27 Hristian Kirtchev <kirtchev@adacore.com>
* sem_elab.adb (Check_Internal_Call): Do not
consider a call when it appears within pragma Initial_Condition
since the pragma is part of the elaboration statements of a
package body and may only call external subprograms or subprograms
whose body is already available.
(Within_Initial_Condition): New routine.
2016-04-27 Ed Schonberg <schonberg@adacore.com>
* exp_util.adb (Build_Procedure_Form): Prevent double generation
of the procedure form when dealing with an expression function
whose return type is an array.
* sem_ch3.adb: Fix out-of order Has_Predicates setting.
* exp_ch6.adb: Proper conversion for inherited operation in C.
* sem_ch6.adb: Code cleanup.
2016-04-27 Hristian Kirtchev <kirtchev@adacore.com>
* lib-xref.ads, sem_ch10.adb: minor style fix in comment
* g-socket.adb: Minor reformatting.
* sinfo.ads: Minor comment correction.
* sem_warn.ads: minor grammar fix in comment
From-SVN: r235482
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 613f2b4..4e996a1 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -8477,7 +8477,10 @@ package body Exp_Ch6 is if not Comes_From_Source (Orig_Func) and then Etype (Orig_Func) /= Etype (Func_Id) then - Last_Actual := Unchecked_Convert_To (Etype (Func_Id), Last_Actual); + Last_Actual := + Make_Type_Conversion (Loc, + New_Occurrence_Of (Etype (Func_Id), Loc), + Last_Actual); end if; Append_To (Actuals, |