diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-22 10:46:16 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-22 10:46:16 +0000 |
| commit | c450f6d1121be145c7ce2a6170af26c6b4255cc9 (patch) | |
| tree | 015c688880efd556e3adfbde85cc820ab239d8b1 /gcc | |
| parent | 2f80f1db7d09ac7edc2daae61f213a41711c5d2d (diff) | |
| download | gcc-c450f6d1121be145c7ce2a6170af26c6b4255cc9.tar.gz | |
2009-04-22 Emmanuel Briot <briot@adacore.com>
* prj-proc.adb, prj.adb, prj.ads (Project_Data.First_Referred_By):
Removed, since unused.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146564 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/prj-proc.adb | 18 | ||||
| -rw-r--r-- | gcc/ada/prj.adb | 1 | ||||
| -rw-r--r-- | gcc/ada/prj.ads | 7 |
4 files changed, 7 insertions, 24 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index bae8bef47fc..faf2e2316ed 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -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 diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb index 5cd2fa222c4..47a81a821e8 100644 --- a/gcc/ada/prj-proc.adb +++ b/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 diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index d8f368d3996..5db41ff9089 100644 --- a/gcc/ada/prj.adb +++ b/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, diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index ff1393216ff..ab982ec4fcb 100644 --- a/gcc/ada/prj.ads +++ b/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 |