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

xref_lib.adb (Parse_Identifier_Info): It is possible for an entity line in the ALI file to include both an... 

2005-11-14  Emmanuel Briot  <briot@adacore.com>

	* xref_lib.adb (Parse_Identifier_Info): It is possible for an entity
	line in the ALI file to include both an instantiation reference, and a
	returned value.

From-SVN: r106966
This commit is contained in:
Emmanuel Briot 2005-11-15 14:56:03 +01:00 committed by Arnaud Charlet
parent f4d379b8df
commit f9f7e1022c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/xref_lib.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1998-2005 Free Software Foundation, Inc. --
-- Copyright (C) 1998-2005, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -372,7 +372,7 @@ package body Xref_Lib is
if Tail (Dir_Ent (1 .. Last), 4) = ".adp" then
-- The first project file found is the good one.
-- The first project file found is the good one
Close (My_Dir);
return Dir_Ent (1 .. Last);
@ -889,8 +889,9 @@ package body Xref_Lib is
if Ali (Ptr) = '[' then
Skip_To_Matching_Closing_Bracket;
end if;
elsif Ali (Ptr) = '<'
if Ali (Ptr) = '<'
or else Ali (Ptr) = '('
or else Ali (Ptr) = '{'
then
@ -1475,7 +1476,7 @@ package body Xref_Lib is
-- Go to start of new line
procedure Print80 (S : in String);
-- Print the text, respecting the 80 columns rule.
-- Print the text, respecting the 80 columns rule
procedure Print_Ref (Line, Column : String);
-- The beginning of the output is aligned on a column multiple of 9