mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-29 07:00:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

sem_cat.adb: Minor reformatting

Browse Source 
2008-05-26  Robert Dewar  <dewar@adacore.com>

	* sem_cat.adb: Minor reformatting

From-SVN: r135898
This commit is contained in:
Robert Dewar 2008-05-26 11:39:55 +02:00 committed by Arnaud Charlet
parent 9570dc5b2f
commit 24b6676840
1 changed files with 5 additions and 0 deletions

5
gcc/ada/sem_cat.adb

@ -1516,6 +1516,7 @@ package body Sem_Cat is
Profile := Parameter_Specifications (Specification (N));
else pragma Assert (K = N_Object_Declaration);
-- The above assertion is dubious, the visible declarations of an
-- RCI unit never contain an object declaration, this should be an
-- ACCESS-to-object declaration???
@ -1739,9 +1740,13 @@ package body Sem_Cat is
end if;
end Is_Valid_Remote_Object_Type;
-- Local variables
Direct_Designated_Type : Entity_Id;
Desig_Type : Entity_Id;
-- Start of processing for Validate_Remote_Access_Object_Type_Declaration
begin
-- We are called from Analyze_Type_Declaration, and the Nkind of the
-- given node is N_Access_To_Object_Definition.