OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR ada/35050 (renames entities not in symbol table) 

gcc/ada/
	PR ada/35050
	* xref_lib.adb (Parse_Identifier_Info): Correctly parse and ignore the
	renaming information.

From-SVN: r134256
This commit is contained in:
Samuel Tardieu 2008-04-14 09:38:34 +00:00 committed by Samuel Tardieu
parent 8479b1b131
commit 9ff231e23c
2 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2008-04-14 Samuel Tardieu <sam@rfc1149.net>
PR ada/35050
* xref_lib.adb (Parse_Identifier_Info): Correctly parse and ignore the
renaming information.
2008-04-13 Samuel Tardieu <sam@rfc1149.net>
PR ada/17985

29
gcc/ada/xref_lib.adb
View File

@ -896,6 +896,22 @@ package body Xref_Lib is
Skip_To_Matching_Closing_Bracket;
end if;
-- Skip any renaming indication
if Ali (Ptr) = '=' then
declare
P_Line, P_Column : Natural;
pragma Warnings (Off, P_Line);
pragma Warnings (Off, P_Column);
begin
Ptr := Ptr + 1;
Parse_Number (Ali, Ptr, P_Line);
Ptr := Ptr + 1;
Parse_Number (Ali, Ptr, P_Column);
end;
end if;
if Ali (Ptr) = '<'
or else Ali (Ptr) = '('
or else Ali (Ptr) = '{'
@ -1036,19 +1052,6 @@ package body Xref_Lib is
end loop;
Ptr := Ptr + 1;
end if;
elsif Ali (Ptr) = '=' then
declare
P_Line, P_Column : Natural;
pragma Warnings (Off, P_Line);
pragma Warnings (Off, P_Column);
begin
Ptr := Ptr + 1;
Parse_Number (Ali, Ptr, P_Line);
Ptr := Ptr + 1;
Parse_Number (Ali, Ptr, P_Column);
end;
end if;
-- To find the body, we will have to parse the file too