diff options
| author | Thomas Quinot <quinot@adacore.com> | 2008-08-20 16:28:26 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 16:28:26 +0200 |
| commit | 3f92549e4720cf55858daffd992e52669d4db8b9 (patch) | |
| tree | 3f3b7c61d30cd860eaff74c1551287dac431fd08 | |
| parent | 5b3a33c3ed2d296804bb1f2f5069c78fe6d60dd3 (diff) | |
| download | gcc-3f92549e4720cf55858daffd992e52669d4db8b9.zip gcc-3f92549e4720cf55858daffd992e52669d4db8b9.tar.gz gcc-3f92549e4720cf55858daffd992e52669d4db8b9.tar.bz2 | |
freeze.adb: Minor reformatting
2008-08-20 Thomas Quinot <quinot@adacore.com>
* freeze.adb: Minor reformatting
From-SVN: r139308
| -rw-r--r-- | gcc/ada/freeze.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index dee40df..0abbb03 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -2608,10 +2608,9 @@ package body Freeze is -- type T is tagged; -- function F (X : Boolean) return T; -- ERROR - -- The type must be declared in the current scope - -- for the use to be legal, and the full view - -- must be available when the construct that mentions - -- it is frozen. + -- The type must be declared in the current scope for the + -- use to be legal, and the full view must be available + -- when the construct that mentions it is frozen. elsif Ekind (Etype (E)) = E_Incomplete_Type and then Is_Tagged_Type (Etype (E)) |