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