From 9869fa914c178e5c208ac61de1b201fec1f3ff6d Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 12 May 2015 08:34:04 +0000 Subject: 2015-05-12 Robert Dewar * sem_ch3.adb, freeze.adb, sem_ch6.adb: Minor reformatting. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223042 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/sem_ch3.adb | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) (limited to 'gcc/ada/sem_ch3.adb') diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 8047b464615..3b8628065e7 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -3341,12 +3341,11 @@ package body Sem_Ch3 is -- has aspects that require delayed analysis, the resolution of the -- aggregate must be deferred to the freeze point of the objet. This -- special processing was created for address clauses, but it must - -- also apply to Alignment. - -- This must be done before the aspect specifications are analyzed - -- because we must handle the aggregate before the analysis of the - -- object declaration is complete. + -- also apply to Alignment. This must be done before the aspect + -- specifications are analyzed because we must handle the aggregate + -- before the analysis of the object declaration is complete. - -- any other relevant delayed aspects on object declarations ??? + -- Any other relevant delayed aspects on object declarations ??? ----------------- -- Count_Tasks -- @@ -3407,17 +3406,15 @@ package body Sem_Ch3 is ---------------------------- function Delayed_Aspect_Present return Boolean is - A : Node_Id; + A : Node_Id; A_Id : Aspect_Id; begin if Present (Aspect_Specifications (N)) then A := First (Aspect_Specifications (N)); - A_Id := Get_Aspect_Id (Chars (Identifier (A))); + A_Id := Get_Aspect_Id (Chars (Identifier (A))); while Present (A) loop - if - A_Id = Aspect_Alignment or else A_Id = Aspect_Address - then + if A_Id = Aspect_Alignment or else A_Id = Aspect_Address then return True; end if; -- cgit v1.2.1