From 6c929a2ea0eacad1c3c59c46bcded2fa72b2c7cd Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 6 Apr 2007 11:24:49 +0200 Subject: par-ch3.adb: (P_Type_Declaration): Set Type_Token_Location 2007-04-06 Robert Dewar Javier Miranda Bob Duff * 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 --- gcc/ada/scans.ads | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gcc/ada/scans.ads') 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 -- cgit v1.1