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:
parent
8479b1b131
commit
9ff231e23c
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue