diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 14:37:10 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 14:37:10 +0200 |
| commit | e7d897b851a301c69124a1c94a13d3d766649757 (patch) | |
| tree | 10b80c95922155a511235ebfec7c842f9c6b184e /gcc/ada/exp_ch4.adb | |
| parent | 460b171de54de807c8d139da4803bd0fae500622 (diff) | |
| download | gcc-e7d897b851a301c69124a1c94a13d3d766649757.zip gcc-e7d897b851a301c69124a1c94a13d3d766649757.tar.gz gcc-e7d897b851a301c69124a1c94a13d3d766649757.tar.bz2 | |
[multiple changes]
2011-08-01 Robert Dewar <dewar@adacore.com>
* exp_ch4.adb, sem_cat.adb: Minor reformatting.
2011-08-01 Geert Bosch <bosch@adacore.com>
* atree.ads: Fix comment.
From-SVN: r177023
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 3256cc4..2213ec5 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -7693,7 +7693,7 @@ package body Exp_Ch4 is -- copy. We don't want to copy complex expressions, and -- indeed to do so can cause trouble (before we put in -- this guard, a discriminant expression containing an - -- AND THEN was copied, causing problems to coverage + -- AND THEN was copied, causing problems for coverage -- analysis tools). if Disc = Entity (Selector_Name (N)) @@ -7723,8 +7723,8 @@ package body Exp_Ch4 is -- fact incorrect. elsif Is_Entity_Name (Dval) - and then Nkind (Parent (Entity (Dval))) - = N_Object_Declaration + and then Nkind (Parent (Entity (Dval))) = + N_Object_Declaration and then Present (Expression (Parent (Entity (Dval)))) and then not Is_Static_Expression |