diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 14:58:01 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 14:58:01 +0100 |
| commit | 1e0e653424a1e7b9f6743ff4c81f64810b0c01e4 (patch) | |
| tree | 8365653ba4acf1a5f451aa845485ec769d8c1798 /gcc/ada/exp_ch7.adb | |
| parent | c5ff22e7b3ffc1e45b043e1bd35bb3b0bad90817 (diff) | |
| download | gcc-1e0e653424a1e7b9f6743ff4c81f64810b0c01e4.zip gcc-1e0e653424a1e7b9f6743ff4c81f64810b0c01e4.tar.gz gcc-1e0e653424a1e7b9f6743ff4c81f64810b0c01e4.tar.bz2 | |
[multiple changes]
2009-11-30 Vincent Celier <celier@adacore.com>
* gnatcmd.adb (Check_Files): Recognize documented switches that have a
separate parameter.
2009-11-30 Robert Dewar <dewar@adacore.com>
* sem_util.ads: Minor reformatting
* errout.adb: Minor reformatting
Minor code reorganization (use N_Subprogram_Specification to simplify)
* exp_ch7.adb: Add comment.
From-SVN: r154802
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 980acf6..db3cd20 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -3288,9 +3288,10 @@ package body Exp_Ch7 is begin -- Class-wide types must be treated as controlled because they may - -- contain an extension that has controlled components + -- contain an extension that has controlled components. - -- We can skip this if finalization is not available + -- We can skip this if finalization is not available. + -- or if it is a value type (because ???) return (Is_Class_Wide_Type (T) and then not In_Finalization_Root (T) |