diff options
| author | Bob Duff <duff@adacore.com> | 2018-05-30 08:56:35 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-30 08:56:35 +0000 |
| commit | 2a5ec8e662ad5fd0228e6feb34acd5485c47b8f2 (patch) | |
| tree | f16c532cf3d0c3432adecfb51a6105c75e86322c /gcc | |
| parent | 5d5148841e6b19d143273d5474b24f9dadc34776 (diff) | |
| download | gcc-2a5ec8e662ad5fd0228e6feb34acd5485c47b8f2.zip gcc-2a5ec8e662ad5fd0228e6feb34acd5485c47b8f2.tar.gz gcc-2a5ec8e662ad5fd0228e6feb34acd5485c47b8f2.tar.bz2 | |
[Ada] Minor comment fix
2018-05-30 Bob Duff <duff@adacore.com>
gcc/ada/
* exp_ch7.adb: Minor comment fix.
From-SVN: r260926
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 12 |
2 files changed, 10 insertions, 6 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e5b1868..84ac852 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2018-05-30 Bob Duff <duff@adacore.com> + + * exp_ch7.adb: Minor comment fix. + 2018-05-30 Ed Schonberg <schonberg@adacore.com> * exp_unst.adb (Visit_Node): Handle properly subprogram instantiations diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index e5285fa..3e7f942 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -4175,12 +4175,12 @@ package body Exp_Ch7 is -- for Obj of Container loop - -- Routine Wrap_Transient_Declaration however does not generate a - -- physical block as wrapping a declaration will kill it too ealy. - -- To handle this peculiar case, mark the related iterator loop as - -- requiring the secondary stack. This signals the finalization - -- machinery to manage the secondary stack (see routine - -- Process_Statements_For_Controlled_Objects). + -- Routine Wrap_Transient_Declaration however does not generate + -- a physical block as wrapping a declaration will kill it too + -- early. To handle this peculiar case, mark the related iterator + -- loop as requiring the secondary stack. This signals the + -- finalization machinery to manage the secondary stack (see + -- routine Process_Statements_For_Controlled_Objects). Iter_Loop := Find_Enclosing_Iterator_Loop (Trans_Scop); |