diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 15:12:40 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 15:12:40 +0200 |
| commit | 75c907757cbfa48b37eaee5fde2769eae2fd204d (patch) | |
| tree | 7e412a06fa2cddcc5dd5e44fe7519125e085db6b /gcc/ada/sem_ch5.adb | |
| parent | ded8909b241d9fd6e60981085c0fd9246392472f (diff) | |
| download | gcc-75c907757cbfa48b37eaee5fde2769eae2fd204d.zip gcc-75c907757cbfa48b37eaee5fde2769eae2fd204d.tar.gz gcc-75c907757cbfa48b37eaee5fde2769eae2fd204d.tar.bz2 | |
[multiple changes]
2011-08-02 Ed Schonberg <schonberg@adacore.com>
* sem_ch5.adb (Analyze_Iteration_Scheme): For an Ada2012 iterator with
"of", pre-analyze expression in case it is a function call with
finalization actions that must be placed ahead of the loop.
* exp_ch5.adb (Expand_Iterator_Loop): If condition_actions are present
on an Ada2012 iterator, insert them ahead of the rewritten loop.
2011-08-02 Geert Bosch <bosch@adacore.com>
* cstand.adb (Create_Float_Types): Only consider C's long double for
Long_Long_Float, in addition to double.
From-SVN: r177146
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 1a5bdd4..bd0f918 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -1919,7 +1919,11 @@ package body Sem_Ch5 is Set_Current_Value_Condition (N); return; + -- For an iterator specification with "of", pre-analyze range to + -- capture function calls that may require finalization actions. + elsif Present (Iterator_Specification (N)) then + Pre_Analyze_Range (Name (Iterator_Specification (N))); Analyze_Iterator_Specification (Iterator_Specification (N)); -- Else we have a FOR loop @@ -1974,7 +1978,7 @@ package body Sem_Ch5 is then Process_Bounds (DS); - -- Expander not active or else domain of iteration is a subtype + -- expander not active or else range of iteration is a subtype -- indication, an entity, or a function call that yields an -- aggregate or a container. @@ -1989,7 +1993,8 @@ package body Sem_Ch5 is and then not Is_Type (Entity (D_Copy))) then -- This is an iterator specification. Rewrite as such - -- and analyze. + -- and analyze, to capture function calls that may + -- require finalization actions. declare I_Spec : constant Node_Id := @@ -1997,8 +2002,7 @@ package body Sem_Ch5 is Defining_Identifier => Relocate_Node (Id), Name => D_Copy, - Subtype_Indication => - Empty, + Subtype_Indication => Empty, Reverse_Present => Reverse_Present (LP)); begin |