mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-26 16:51:01 +08:00
Code Issues Packages Projects Releases Wiki Activity

par-ch3.adb (P_Defining_Identifier): Avoid repeated attempt to convert plain identifier into defining identifier.

Browse Source 
2008-08-01  Robert Dewar  <dewar@adacore.com>

	* par-ch3.adb (P_Defining_Identifier): Avoid repeated attempt to
	convert plain identifier into defining identifier.

From-SVN: r138510
This commit is contained in:
Robert Dewar 2008-08-01 12:44:17 +02:00 committed by Arnaud Charlet
parent 2eee5152fa
commit 20b40e7b44
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gcc/ada/par-ch3.adb
View File

@ -206,6 +206,18 @@ package body Ch3 is
Ident_Node := Token_Node;
Scan; -- past the reserved identifier
-- If we already have a defining identifier, clean it out and make
-- a new clean identifier. This situation arises in some error cases
-- and we need to fix it.
if Nkind (Ident_Node) = N_Defining_Identifier then
Ident_Node :=
Make_Identifier (Sloc (Ident_Node),
Chars => Chars (Ident_Node));
end if;
-- Change identifier to defining identifier if not in error
if Ident_Node /= Error then
Change_Identifier_To_Defining_Identifier (Ident_Node);
end if;
@ -290,8 +302,7 @@ package body Ch3 is
Scan; -- past TYPE
Ident_Node := P_Defining_Identifier (C_Is);
-- Otherwise this is an error case, and we may already have converted
-- the current token to a defining identifier, so don't do it again!
-- Otherwise this is an error case
else
T_Type;
@ -1349,7 +1360,6 @@ package body Ch3 is
-- If we have a comma, then scan out the list of identifiers
elsif Token = Tok_Comma then
while Comma_Present loop
Num_Idents := Num_Idents + 1;
Idents (Num_Idents) := P_Defining_Identifier (C_Comma_Colon);