diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 14:01:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 14:01:27 +0000 |
| commit | a876ed42483d993013a7f9a3f577ea60a2a3022e (patch) | |
| tree | b52c9193a7fdf74cabf7592b4381f2f298ff1e9d | |
| parent | 8572a37e7f2156ad77dd20adc986d1a5a88b7ff5 (diff) | |
| download | ppe42-gcc-a876ed42483d993013a7f9a3f577ea60a2a3022e.tar.gz ppe42-gcc-a876ed42483d993013a7f9a3f577ea60a2a3022e.zip | |
2005-11-14 Vincent Celier <celier@adacore.com>
* prj-part.adb (Create_Virtual_Extending_Project): Put virtual project
into Prj.Tree.Tree_Private_Part.Projects_Htable for GPS.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106995 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/prj-part.adb | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb index 1e711f813d7..f39bd486b77 100644 --- a/gcc/ada/prj-part.adb +++ b/gcc/ada/prj-part.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -129,6 +129,10 @@ package body Prj.Part is In_Tree : Project_Node_Tree_Ref); -- Create a virtual extending project of For_Project. Main_Project is -- the extending all project. + -- + -- The String_Value_Of is not set for the automatically added with + -- clause and keeps the default value of No_Name. This enables Prj.PP + -- to skip these automatically added with clauses to be processed. procedure Look_For_Virtual_Projects_For (Proj : Project_Node_Id; @@ -328,6 +332,15 @@ package body Prj.Part is -- Source_Dirs empty list: nothing to do + -- Put virtual project into Projects_Htable + + Prj.Tree.Tree_Private_Part.Projects_Htable.Set + (T => In_Tree.Projects_HT, + K => Virtual_Name_Id, + E => (Name => Virtual_Name_Id, + Node => Virtual_Project, + Canonical_Path => No_Name, + Extended => False)); end Create_Virtual_Extending_Project; ---------------------------- |
