mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-17 18:50:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Emmanuel Briot 2009-04-22 10:46:16 +00:00 committed by Arnaud Charlet
parent c9a1acdcc6
commit 95c05c6264
4 changed files with 7 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
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

18
gcc/ada/prj-proc.adb
View File

@ -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

1
gcc/ada/prj.adb
View File

@ -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,

7
gcc/ada/prj.ads
View File

@ -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