Commit 3f92549e by Thomas Quinot Committed by Arnaud Charlet

freeze.adb: Minor reformatting

2008-08-20  Thomas Quinot  <quinot@adacore.com>

	* freeze.adb: Minor reformatting

From-SVN: r139308
parent 5b3a33c3
...@@ -2608,10 +2608,9 @@ package body Freeze is ...@@ -2608,10 +2608,9 @@ package body Freeze is
-- type T is tagged; -- type T is tagged;
-- function F (X : Boolean) return T; -- ERROR -- function F (X : Boolean) return T; -- ERROR
-- The type must be declared in the current scope -- The type must be declared in the current scope for the
-- for the use to be legal, and the full view -- use to be legal, and the full view must be available
-- must be available when the construct that mentions -- when the construct that mentions it is frozen.
-- it is frozen.
elsif Ekind (Etype (E)) = E_Incomplete_Type elsif Ekind (Etype (E)) = E_Incomplete_Type
and then Is_Tagged_Type (Etype (E)) and then Is_Tagged_Type (Etype (E))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment