Skip to content

R
riscv-gcc-1
Commit f9f7e102 by Emmanuel Briot Committed by Arnaud Charlet
Options

xref_lib.adb (Parse_Identifier_Info): It is possible for an entity line in the… 

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
parent f4d379b8
Showing with 5 additions and 4 deletions
gcc/ada/xref_lib.adb
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment