diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-12 08:34:04 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-12 08:34:04 +0000 |
| commit | 9869fa914c178e5c208ac61de1b201fec1f3ff6d (patch) | |
| tree | f63dffbcd215a30b511e5eb49c7b95f7cdb68c21 /gcc/ada/sem_ch3.adb | |
| parent | 8598cafb93c905c5173f37d1e982ed46cf2ab3f1 (diff) | |
| download | gcc-9869fa914c178e5c208ac61de1b201fec1f3ff6d.tar.gz | |
2015-05-12 Robert Dewar <dewar@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 17 |
1 files changed, 7 insertions, 10 deletions
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; |