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>
|
2008-04-13 Samuel Tardieu <sam@rfc1149.net>
|
||||||
|
|
||||||
PR ada/17985
|
PR ada/17985
|
||||||
|
|
|
@ -896,6 +896,22 @@ package body Xref_Lib is
|
||||||
Skip_To_Matching_Closing_Bracket;
|
Skip_To_Matching_Closing_Bracket;
|
||||||
end if;
|
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) = '<'
|
if Ali (Ptr) = '<'
|
||||||
or else Ali (Ptr) = '('
|
or else Ali (Ptr) = '('
|
||||||
or else Ali (Ptr) = '{'
|
or else Ali (Ptr) = '{'
|
||||||
|
@ -1036,19 +1052,6 @@ package body Xref_Lib is
|
||||||
end loop;
|
end loop;
|
||||||
Ptr := Ptr + 1;
|
Ptr := Ptr + 1;
|
||||||
end if;
|
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;
|
end if;
|
||||||
|
|
||||||
-- To find the body, we will have to parse the file too
|
-- To find the body, we will have to parse the file too
|
||||||
|
|
Loading…
Reference in New Issue