diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 15:10:33 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 15:10:33 +0200 |
commit | ded8909b241d9fd6e60981085c0fd9246392472f (patch) | |
tree | 31260f5efb109439c9337953245e792f3b84b436 /gcc/ada/sem_ch5.adb | |
parent | 70c34e1c94f276d6f306ed92b892cbe7340acd65 (diff) | |
download | gcc-ded8909b241d9fd6e60981085c0fd9246392472f.zip gcc-ded8909b241d9fd6e60981085c0fd9246392472f.tar.gz gcc-ded8909b241d9fd6e60981085c0fd9246392472f.tar.bz2 |
[multiple changes]
2011-08-02 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_ch5.adb, sem_type.adb, switch-c.adb, switch-c.ads,
sem_prag.adb, sem_util.adb, sem_util.ads, sem_res.adb, warnsw.ads,
prepcomp.ads, cstand.adb, stand.ads, a-calfor.adb, s-stusta.adb:
Minor reformatting.
2011-08-02 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb: handle properly 'Result when it is a prefix of an
indexed component.
2011-08-02 Javier Miranda <miranda@adacore.com>
* einfo.ads, einfo.adb
(Original_Access_Type): Move this attribute to Node26 since there was
an undocumented use of Node21 in E_Access_Subprogram_Type entities
which causes conflicts and breaks the generation of the .NET compiler.
(Interface_Name): Add missing documentation on JGNAT only uses of
this attribute.
From-SVN: r177145
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
-rw-r--r-- | gcc/ada/sem_ch5.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 6e218d2..1a5bdd4 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -2008,11 +2008,10 @@ package body Sem_Ch5 is return; end; - else - - -- Domain of iteration is not a function call, and is - -- side-effect free. + -- Domain of iteration is not a function call, and is + -- side-effect free. + else Analyze (DS); end if; end if; @@ -2210,6 +2209,7 @@ package body Sem_Ch5 is then declare Id : constant Entity_Id := Make_Temporary (Loc, 'R', Container); + Decl : Node_Id; Assign : Node_Id; @@ -2223,8 +2223,8 @@ package body Sem_Ch5 is Assign := Make_Assignment_Statement (Loc, - Name => New_Occurrence_Of (Id, Loc), - Expression => Relocate_Node (Container)); + Name => New_Occurrence_Of (Id, Loc), + Expression => Relocate_Node (Container)); Insert_Actions (Parent (N), New_List (Decl, Assign)); end; |