From 24b6676840a8e470c23ea4016f8f029f1c1979f1 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 26 May 2008 11:39:55 +0200 Subject: [PATCH] sem_cat.adb: Minor reformatting 2008-05-26 Robert Dewar * sem_cat.adb: Minor reformatting From-SVN: r135898 --- gcc/ada/sem_cat.adb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index cc96974425a..fcb0177ec2f 100644 --- a/gcc/ada/sem_cat.adb +++ b/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. -- 2.30.2