diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-01-25 17:24:20 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-01-25 17:24:20 +0100 |
| commit | 3d92367153068c7889944f3187462bbc590caa9d (patch) | |
| tree | 73a6d903734214bb3ccd477d21e07ab33a02e844 /gcc/ada/exp_ch6.adb | |
| parent | 03d838ba0317bf85fb6c994d0dc7cfc65c64421e (diff) | |
| download | gcc-3d92367153068c7889944f3187462bbc590caa9d.zip gcc-3d92367153068c7889944f3187462bbc590caa9d.tar.gz gcc-3d92367153068c7889944f3187462bbc590caa9d.tar.bz2 | |
[multiple changes]
2010-01-25 Bob Duff <duff@adacore.com>
* sem_aggr.adb (Resolve_Array_Aggregate): Check for the case where this
is an internally-generated positional aggregate, and the bounds are
already correctly set. We don't want to overwrite those bounds with
bounds determined by context.
2010-01-25 Robert Dewar <dewar@adacore.com>
* g-sercom.ads, gnatcmd.adb, gnatlink.adb, a-ststio.adb, exp_ch6.adb,
exp_ch9.adb, g-sechas.ads: Minor reformatting.
2010-01-25 Thomas Quinot <quinot@adacore.com>
* s-commun.adb (Last_Index): Count must be converted to SEO (a signed
integer type) before subtracting 1, otherwise the computation may wrap
(because size_t is modular) and cause the conversion to fail.
2010-01-25 Ed Falis <falis@adacore.com>
* sysdep.c, init.c: Adapt to support full run-time on VxWorks MILS.
2010-01-25 Vincent Celier <celier@adacore.com>
* prj-attr.adb: New attribute Run_Path_Origin_Required
* prj-nmsc.adb (Process_Project_Level_Simple_Attributes): Process new
attribute Run_Path_Origin_Required.
* prj.ads (Project_Configuration): New component
Run_Path_Origin_Supported.
* snames.ads-tmpl: New standard name Run_Path_Origin_Required
From-SVN: r156215
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index fa74f6c..4ab2df7 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -4506,14 +4506,12 @@ package body Exp_Ch6 is -- Create protected operation as well. Even though the operation -- is only accessible within the body, it is possible to make it -- available outside of the protected object by using 'Access to - -- provide a callback, so we build the protected version in all - -- cases. + -- provide a callback, so build protected version in all cases. Prot_Decl := - Make_Subprogram_Declaration (Loc, - Specification => - Build_Protected_Sub_Specification - (N, Scop, Protected_Mode)); + Make_Subprogram_Declaration (Loc, + Specification => + Build_Protected_Sub_Specification (N, Scop, Protected_Mode)); Insert_Before (Prot_Bod, Prot_Decl); Analyze (Prot_Decl); |