Commit a14ab2c3 by Piotr Trojanek Committed by Pierre-Marie de Rodat

lib-xref-spark_specific.adb (Add_SPARK_Xrefs): Remove dead check for empty entities.

2017-11-08  Piotr Trojanek  <trojanek@adacore.com>

	* lib-xref-spark_specific.adb (Add_SPARK_Xrefs): Remove dead check for
	empty entities.

From-SVN: r254535
parent 6216fd90
...@@ -657,7 +657,6 @@ package body SPARK_Specific is ...@@ -657,7 +657,6 @@ package body SPARK_Specific is
Prev_Loc : Source_Ptr; Prev_Loc : Source_Ptr;
Prev_Typ : Character; Prev_Typ : Character;
Ref_Count : Nat; Ref_Count : Nat;
Ref_Name : String_Ptr;
Scope_Id : Scope_Index; Scope_Id : Scope_Index;
-- Start of processing for Add_SPARK_Xrefs -- Start of processing for Add_SPARK_Xrefs
...@@ -818,10 +817,6 @@ package body SPARK_Specific is ...@@ -818,10 +817,6 @@ package body SPARK_Specific is
pragma Assert (Scope_Id <= SPARK_Scope_Table.Last); pragma Assert (Scope_Id <= SPARK_Scope_Table.Last);
end loop; end loop;
if Present (Ref.Ent) then
Ref_Name := new String'(Unique_Name (Ref.Ent));
end if;
if Ref.Ent = Heap then if Ref.Ent = Heap then
Line := 0; Line := 0;
Col := 0; Col := 0;
...@@ -845,7 +840,7 @@ package body SPARK_Specific is ...@@ -845,7 +840,7 @@ package body SPARK_Specific is
end if; end if;
SPARK_Xref_Table.Append ( SPARK_Xref_Table.Append (
(Entity_Name => Ref_Name, (Entity_Name => new String'(Unique_Name (Ref.Ent)),
Entity_Line => Line, Entity_Line => Line,
Etype => Get_Entity_Type (Ref.Ent), Etype => Get_Entity_Type (Ref.Ent),
Entity_Col => Col, Entity_Col => Col,
......
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