diff options
Diffstat (limited to 'gcc/ada/prj-proc.adb')
| -rw-r--r-- | gcc/ada/prj-proc.adb | 18 |
1 files changed, 0 insertions, 18 deletions
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 |