diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 12:09:08 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 12:09:08 +0200 |
| commit | 9d2a20713d87bed983029db5ffacb8dc06662ff6 (patch) | |
| tree | f57566a77072c4f68d1cbfc9fa74d269655364e6 /gcc/ada/par.adb | |
| parent | 7bfff488f808213bf183da60f89f4230271957f4 (diff) | |
| download | gcc-9d2a20713d87bed983029db5ffacb8dc06662ff6.zip gcc-9d2a20713d87bed983029db5ffacb8dc06662ff6.tar.gz gcc-9d2a20713d87bed983029db5ffacb8dc06662ff6.tar.bz2 | |
[multiple changes]
2014-07-31 Robert Dewar <dewar@adacore.com>
* frontend.adb: Minor reformatting.
* sem.adb: Minor reformatting.
* sem_ch6.adb (Analyze_Null_Procedure): Set proper sloc for
identifiers on rewrite.
* par.adb: Minor comment updates.
* a-ngelfu.adb (Cos): Minor simplification.
* par-ch13.adb (Get_Aspect_Specifications): Improve messages
and recovery for bad aspect.
* exp_ch3.adb: Code clean up.
* sem_util.ads: Minor comment correction.
* sem_ch13.adb (Check_Array_Type): Properly handle large types.
* sem_ch3.adb: Code clean up.
* binderr.ads: Minor comment correction.
2014-07-31 Ed Schonberg <schonberg@adacore.com>
* exp_disp.adb (Expand_Interface_Conversion): A call whose
prefix is a static conversion to an interface type that is not
class-wide is not dispatching.
From-SVN: r213338
Diffstat (limited to 'gcc/ada/par.adb')
| -rw-r--r-- | gcc/ada/par.adb | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 88720db..c1363ed 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -947,12 +947,6 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is -- for aspects so it does not matter whether the aspect specifications -- are terminated by semicolon or some other character. - function Get_Aspect_Specifications - (Semicolon : Boolean := True) return List_Id; - -- Parse a list of aspects but do not attach them to a declaration node. - -- Subsidiary to the following procedure. Used when parsing a subprogram - -- specification that may be a declaration or a body. - procedure P_Aspect_Specifications (Decl : Node_Id; Semicolon : Boolean := True); @@ -977,6 +971,13 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is -- are also ignored, but no error message is given (this is used when -- the caller has already taken care of the error message). + function Get_Aspect_Specifications + (Semicolon : Boolean := True) return List_Id; + -- Parse a list of aspects but do not attach them to a declaration node. + -- Subsidiary to P_Aspect_Specifications procedure. Used when parsing + -- a subprogram specification that may be a declaration or a body. + -- Semicolon has the same meaning as for P_Aspect_Specifications above. + function P_Code_Statement (Subtype_Mark : Node_Id) return Node_Id; -- Function to parse a code statement. The caller has scanned out -- the name to be used as the subtype mark (but has not checked that |