diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-01 13:50:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-01 13:50:27 +0000 |
| commit | 9c0b670b6f336aeb56e5b83b34163977e2a2b79b (patch) | |
| tree | a7d2b704c6cfee31f7ae6725114600c4d9337e92 /gcc/ada/exp_ch5.adb | |
| parent | a3398ee6671bc89db4de051393a4a42fe27c1335 (diff) | |
| download | gcc-9c0b670b6f336aeb56e5b83b34163977e2a2b79b.tar.gz | |
2011-08-01 Robert Dewar <dewar@adacore.com>
* make.adb, sem_ch4.adb: Minor reformatting.
* gcc-interface/Make-lang.in: Update dependencies.
* sem_util.adb, exp_ch5.adb: Minor reformatting.
2011-08-01 Arnaud Charlet <charlet@adacore.com>
* gnat_rm.texi: Fix definition of Long_Integer.
2011-08-01 Ed Schonberg <schonberg@adacore.com>
* exp_aggr.adb: check limit size of static aggregate unconditionally,
to prevent storage exhaustion.
* exp_ch7.adb (Clean_Simple_Protected_Objects): if the scope being
finalized is a function body, insert the cleanup code before the final
return statement, to prevent spurious warnings.
* s-pooglo.ads: add overriding indicator.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177035 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch5.adb')
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index ef77ec938cb..8acbd877cc7 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -2767,10 +2767,10 @@ package body Exp_Ch5 is I_Spec : constant Node_Id := Iterator_Specification (Isc); Id : constant Entity_Id := Defining_Identifier (I_Spec); - Container : constant Node_Id := Name (I_Spec); - -- An expression whose type is an array or a predefined container. + Container : constant Node_Id := Name (I_Spec); + -- An expression whose type is an array or a predefined container - Typ : constant Entity_Id := Etype (Container); + Typ : constant Entity_Id := Etype (Container); Cursor : Entity_Id; New_Loop : Node_Id; |