diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-10-30 11:50:12 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-10-30 11:50:12 +0000 |
| commit | ec621b58c93dc8c0937740e823af1384dbeec8ec (patch) | |
| tree | c4a85e3c12ef94392561f5d5ce3fd9901be49440 /gcc/ada/par-ch6.adb | |
| parent | 7e28d8492b09447e84f92f546a013a4637b47610 (diff) | |
| download | gcc-ec621b58c93dc8c0937740e823af1384dbeec8ec.tar.gz | |
* 3vtrasym.adb:
Demangle Ada symbols returned by TBK$SYMBOLIZE. Correctly align line
numbers when symbol name is too long.
* g-signal.ads, g-signal.adb: New files
* impunit.adb: (Non_Imp_File_Names): Added "g-signal"
* Makefile.rtl: Introduce GNAT.Signals
* freeze.adb: Minor reformatting
* lib-writ.adb (Write_ALI): Never write ali file if -gnats is specified
* par.adb, par-ch12.adb, par-ch13.adb, par-ch2.adb, par-ch3.adb,
par-ch5.adb, par-ch6.adb, par-ch9.adb, par-util.adb:
New handling of Id_Check parameter to improve recognition of keywords
used as identifiers.
Update copyright notice to include 2003
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@73083 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-ch6.adb')
| -rw-r--r-- | gcc/ada/par-ch6.adb | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index e5dc9ffff68..cc0e8981740 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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- -- @@ -593,6 +593,10 @@ package body Ch6 is -- True, a real dot has been scanned and we are positioned past it, -- if the result is False, the scan position is unchanged. + -------------- + -- Real_Dot -- + -------------- + function Real_Dot return Boolean is Scan_State : Saved_Scan_State; @@ -715,7 +719,7 @@ package body Ch6 is Set_Identifier_Casing (Current_Source_File, Determine_Token_Casing); end if; - Ident_Node := P_Identifier; + Ident_Node := P_Identifier (C_Dot); Merge_Identifier (Ident_Node, Tok_Return); -- Normal case (not child library unit name) @@ -746,7 +750,7 @@ package body Ch6 is Name_Node := New_Node (N_Selected_Component, Token_Ptr); Scan; -- past period Set_Prefix (Name_Node, Prefix_Node); - Ident_Node := P_Identifier; + Ident_Node := P_Identifier (C_Dot); Set_Selector_Name (Name_Node, Ident_Node); Prefix_Node := Name_Node; end loop; @@ -870,7 +874,7 @@ package body Ch6 is Ignore (Tok_Left_Paren); Ident_Sloc := Token_Ptr; - Idents (1) := P_Defining_Identifier; + Idents (1) := P_Defining_Identifier (C_Comma_Colon); Num_Idents := 1; Ident_Loop : loop @@ -924,7 +928,7 @@ package body Ch6 is T_Comma; Num_Idents := Num_Idents + 1; - Idents (Num_Idents) := P_Defining_Identifier; + Idents (Num_Idents) := P_Defining_Identifier (C_Comma_Colon); end loop Ident_Loop; -- Fall through the loop on encountering a colon, or deciding |