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-ch5.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-ch5.adb')
| -rw-r--r-- | gcc/ada/par-ch5.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index e8c6f3d65d6..e45b0fafb59 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -1004,7 +1004,7 @@ package body Ch5 is begin Label_Node := New_Node (N_Label, Token_Ptr); Scan; -- past << - Set_Identifier (Label_Node, P_Identifier); + Set_Identifier (Label_Node, P_Identifier (C_Greater_Greater)); T_Greater_Greater; Append_Elmt (Label_Node, Label_List); return Label_Node; @@ -1621,7 +1621,7 @@ package body Ch5 is New_Node (N_Loop_Parameter_Specification, Token_Ptr); Save_Scan_State (Scan_State); - ID_Node := P_Defining_Identifier; + ID_Node := P_Defining_Identifier (C_In); Set_Defining_Identifier (Loop_Param_Specification_Node, ID_Node); if Token = Tok_Left_Paren then |