Skip to content

R
riscv-gcc-1
Commit a14ab2c3 by Piotr Trojanek Committed by Pierre-Marie de Rodat
Options

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
Showing with 1 additions and 6 deletions
gcc/ada/lib-xref-spark_specific.adb
......@@ -657,7 +657,6 @@ package body SPARK_Specific is
Prev_Loc : Source_Ptr;
Prev_Typ : Character;
Ref_Count : Nat;
Ref_Name : String_Ptr;
Scope_Id : Scope_Index;
-- Start of processing for Add_SPARK_Xrefs
......@@ -818,10 +817,6 @@ package body SPARK_Specific is
pragma Assert (Scope_Id <= SPARK_Scope_Table.Last);
end loop;
if Present (Ref.Ent) then
Ref_Name := new String'(Unique_Name (Ref.Ent));
end if;
if Ref.Ent = Heap then
Line := 0;
Col := 0;
......@@ -845,7 +840,7 @@ package body SPARK_Specific is
end if;
SPARK_Xref_Table.Append (
(Entity_Name => Ref_Name,
(Entity_Name => new String'(Unique_Name (Ref.Ent)),
Entity_Line => Line,
Etype => Get_Entity_Type (Ref.Ent),
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