diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-07-08 08:17:14 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-07-08 08:17:14 +0000 |
| commit | 7fce1f920890ccaf90f4981041f21d06e525e4e5 (patch) | |
| tree | 262cecab20751245724b41e9418de2b1e18d13b3 /gcc/ada/rtsfind.adb | |
| parent | ceec4f7ca854e241bd292abf31e988a8a448da9c (diff) | |
| download | gcc-7fce1f920890ccaf90f4981041f21d06e525e4e5.tar.gz | |
2013-07-08 Robert Dewar <dewar@adacore.com>
* rtsfind.adb: Minor comment fix.
2013-07-08 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch4.adb (Check_Ghost_Subprogram_Call): Do not check the placement
of a Ghost function call when the enclosing context is being
preanalyzed.
2013-07-08 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Expand_Inlined_Call, Process_Formals): If the
expression in a return statement is a numeric literal, qualify
it with the return type for proper resolution.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@200772 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/rtsfind.adb')
| -rw-r--r-- | gcc/ada/rtsfind.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index ecd1cd6b4e8..22abb9a581f 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -839,8 +839,8 @@ package body Rtsfind is return; end if; - -- Add the with_clause, if not already in the context of the current - -- compilation unit. + -- Add the with_clause, if we have not already added an implicit with + -- for this unit to the current compilation unit. declare LibUnit : constant Node_Id := Unit (Cunit (U.Unum)); |