From 8d606a78a331b91295e7ce1e27bf12e419084093 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 1 Aug 2011 15:59:50 +0000 Subject: sem_ch3.adb, [...]: Minor reformatting 2011-08-01 Robert Dewar * sem_ch3.adb, sem_ch3.ads, sem_ch5.adb, prj-part.adb, par-ch4.adb, sem_util.adb, sem_ch4.adb, sem_ch6.adb, sem_ch6.ads, sem_ch8.adb, sem_ch8.ads, sem_ch13.ads, par-ch5.adb, prj-env.ads: Minor reformatting From-SVN: r177055 --- gcc/ada/sem_ch8.ads | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'gcc/ada/sem_ch8.ads') diff --git a/gcc/ada/sem_ch8.ads b/gcc/ada/sem_ch8.ads index bf5fb3d..6d02a41 100644 --- a/gcc/ada/sem_ch8.ads +++ b/gcc/ada/sem_ch8.ads @@ -102,13 +102,13 @@ package Sem_Ch8 is -- processing for 'Class attribute references. function Has_Loop_In_Inner_Open_Scopes (S : Entity_Id) return Boolean; - -- S is the entity of an open scope. This function determines if there - -- is an inner scope of S which is a loop (i.e. it appears somewhere in - -- the scope stack after S). + -- S is the entity of an open scope. This function determines if there is + -- an inner scope of S which is a loop (i.e. it appears somewhere in the + -- scope stack after S). function In_Open_Scopes (S : Entity_Id) return Boolean; - -- S is the entity of a scope. This function determines if this scope - -- is currently open (i.e. it appears somewhere in the scope stack). + -- S is the entity of a scope. This function determines if this scope is + -- currently open (i.e. it appears somewhere in the scope stack). procedure Initialize; -- Initializes data structures used for visibility analysis. Must be @@ -125,13 +125,13 @@ package Sem_Ch8 is -- analysis of the subunit, the parent's environment is again identical. procedure Push_Scope (S : Entity_Id); - -- Make new scope stack entry, pushing S, the entity for a scope - -- onto the top of the scope table. The current setting of the scope - -- suppress flags is saved for restoration on exit. + -- Make new scope stack entry, pushing S, the entity for a scope onto the + -- top of the scope table. The current setting of the scope suppress flags + -- is saved for restoration on exit. procedure Pop_Scope; - -- Remove top entry from scope stack, restoring the saved setting - -- of the scope suppress flags. + -- Remove top entry from scope stack, restoring the saved setting of the + -- scope suppress flags. function Present_System_Aux (N : Node_Id := Empty) return Boolean; -- Return True if the auxiliary system file has been successfully loaded. -- cgit v1.1