diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-04-06 11:24:49 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-04-06 11:24:49 +0200 |
| commit | 6c929a2ea0eacad1c3c59c46bcded2fa72b2c7cd (patch) | |
| tree | 57fdc43089af249b66c36d761b0f245a8f584c8f /gcc/ada/scans.ads | |
| parent | 3726d5d99a29d89a37d50c9597cbd9771247194b (diff) | |
| download | gcc-6c929a2ea0eacad1c3c59c46bcded2fa72b2c7cd.zip gcc-6c929a2ea0eacad1c3c59c46bcded2fa72b2c7cd.tar.gz gcc-6c929a2ea0eacad1c3c59c46bcded2fa72b2c7cd.tar.bz2 | |
par-ch3.adb: (P_Type_Declaration): Set Type_Token_Location
2007-04-06 Robert Dewar <dewar@adacore.com>
Javier Miranda <miranda@adacore.com>
Bob Duff <duff@adacore.com>
* par-ch3.adb: (P_Type_Declaration): Set Type_Token_Location
(P_Interface_Type_Definition): Remove the formal Is_Synchronized because
there is no need to generate always a record_definition_node in case
of synchronized interface types.
(P_Type_Declaration): Update calls to P_Interface_Type_Definition.
(P_Null_Exclusion): For AI-447: Remove warnings about "not null" being
illegal in Ada 95, in cases where it is legal. Change the warnings to
errors in other cases. Don't give the error unless the "not null"
parses properly. Correct the source position at which the error occurs.
(P_Known_Discriminant_Part_Opt): Pass Allow_Anonymous_In_95 => True to
P_Null_Exclusion, to suppress "not null" warnings.
(P_Identifier_Declarations): Code cleanup. Removed unrequired label and
associated goto statements.
* par-endh.adb (Pop_End_Context): Allow more flexibility in placement
of END RECORD
* scans.ads (Type_Token_Location): New flag
* par-ch6.adb (P_Mode): Check specifically for case of IN ACCESS
(P_Formal_Part): Pass Allow_Anonymous_In_95 => True to
P_Null_Exclusion, to suppress "not null" warnings.
From-SVN: r123587
Diffstat (limited to 'gcc/ada/scans.ads')
| -rw-r--r-- | gcc/ada/scans.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads index 694a603..a01b957 100644 --- a/gcc/ada/scans.ads +++ b/gcc/ada/scans.ads @@ -365,6 +365,12 @@ package Scans is -- on the line containing the current token. This is used for error -- recovery circuits which depend on looking at the column line up. + Type_Token_Location : Source_Ptr; + -- Within a type declaration, gives the location of the TYPE keyword that + -- opened the type declaration. Used in checking the end column of a record + -- declaration, which can line up either with the TYPE keyword, or with the + -- start of the line containing the RECORD keyword. + Checksum : Word; -- Used to accumulate a CRC representing the tokens in the source -- file being compiled. This CRC includes only program tokens, and |