diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-30 14:12:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-30 16:12:00 +0200 |
| commit | 3597c0e902c51c0f9ea2ca58a0807d8f8cf54087 (patch) | |
| tree | 961cd44bd2570bce0e1a6ce098fe4e1c7c71a44b /gcc/ada/exp_ch9.adb | |
| parent | da94696d33e93be999d7f9f5ec838cdfa9627385 (diff) | |
| download | gcc-3597c0e902c51c0f9ea2ca58a0807d8f8cf54087.tar.gz | |
opt.ads, [...]: Update comment.
2011-08-30 Robert Dewar <dewar@adacore.com>
* opt.ads, s-soflin.adb, exp_ch9.adb, sem_res.adb: Update comment.
Minor code reorg/reformatting.
From-SVN: r178314
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 7620236b82f..58d6df00bf6 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -4905,6 +4905,7 @@ package body Exp_Ch9 is begin if Full_Expander_Active then + -- If we have no handled statement sequence, we may need to build -- a dummy sequence consisting of a null statement. This can be -- skipped if the trivial accept optimization is permitted. @@ -11504,6 +11505,7 @@ package body Exp_Ch9 is return; elsif Full_Expander_Active then + -- Associate discriminals with the first subprogram or entry body to -- be expanded. |