diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-20 14:28:26 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-20 14:28:26 +0000 |
| commit | 0b172de413e24ba41082967f79a97850cc88a580 (patch) | |
| tree | 3f3b7c61d30cd860eaff74c1551287dac431fd08 /gcc | |
| parent | 2f85171d38f1ed954a37c9e308d1adb008e2ddd6 (diff) | |
| download | ppe42-gcc-0b172de413e24ba41082967f79a97850cc88a580.tar.gz ppe42-gcc-0b172de413e24ba41082967f79a97850cc88a580.zip | |
2008-08-20 Thomas Quinot <quinot@adacore.com>
* freeze.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139308 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -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 dee40df6f9c..0abbb034750 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)) |
