Skip to content

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

prj-proc.adb, [...] (Project_Data.First_Referred_By): Removed, since unused. 

2009-04-22  Emmanuel Briot  <briot@adacore.com>

	* prj-proc.adb, prj.adb, prj.ads (Project_Data.First_Referred_By):
	Removed, since unused.

From-SVN: r146564
parent c9a1acdc
Showing with 7 additions and 24 deletions
gcc/ada/ChangeLog
2009-04-22 Emmanuel Briot <briot@adacore.com>
* prj-proc.adb, prj.adb, prj.ads (Project_Data.First_Referred_By):
Removed, since unused.
2009-04-22 Vincent Celier <celier@adacore.com>
* prj-attr.adb: New single project level attribute
......
gcc/ada/prj-proc.adb
......@@ -2652,15 +2652,6 @@ package body Prj.Proc is
New_Data :=
In_Tree.Projects.Table (New_Project);
-- If we were the first project to import it,
-- set First_Referred_By to us.
if New_Data.First_Referred_By = No_Project then
New_Data.First_Referred_By := Project;
In_Tree.Projects.Table (New_Project) :=
New_Data;
end if;
-- Add this project to our list of imported projects
Project_List_Table.Increment_Last
......@@ -2863,15 +2854,6 @@ package body Prj.Proc is
New_Data :=
In_Tree.Projects.Table (New_Project);
-- If we were the first project to import it, set
-- First_Referred_By to us.
if New_Data.First_Referred_By = No_Project then
New_Data.First_Referred_By := Project;
In_Tree.Projects.Table (New_Project) :=
New_Data;
end if;
-- Add this project to our list of imported projects
Project_List_Table.Increment_Last
......
gcc/ada/prj.adb
......@@ -91,7 +91,6 @@ package body Prj is
Externally_Built => False,
Config => Default_Project_Config,
Languages => No_Name_List,
First_Referred_By => No_Project,
Name => No_Name,
Display_Name => No_Name,
Path => No_Path_Information,
......
gcc/ada/prj.ads
......@@ -701,7 +701,8 @@ package Prj is
-- Time stamp of the source file
Object_Project : Project_Id := No_Project;
-- Project where the object file is
-- Project where the object file is. This might be different from
-- Project when using extending project files.
Object_Exists : Boolean := True;
-- True if an object file exists
......@@ -1203,10 +1204,6 @@ package Prj is
-- Projects --
--------------
First_Referred_By : Project_Id := No_Project;
-- The project, if any, that was the first to be known as importing or
-- extending this project
Mains : String_List_Id := Nil_String;
-- List of mains specified by attribute Main
......
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