diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-09-17 10:46:35 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-09-17 10:46:35 +0000 |
| commit | d5cea4e1bc9036aabe4fdb7ac359f7cd8f5a9e58 (patch) | |
| tree | 4ec65cf7739dd5e1b857f1c5ca795614aa5d0330 /gcc/ada/prj-ext.ads | |
| parent | 96204834f4f00099ba456ef0a91afa6d785b26e1 (diff) | |
| download | gcc-d5cea4e1bc9036aabe4fdb7ac359f7cd8f5a9e58.tar.gz | |
2009-09-17 Emmanuel Briot <briot@adacore.com>
* gnatcmd.adb, make.adb, prj-part.adb, prj-ext.adb, prj-ext.ads,
switch-m.adb, switch-m.ads, clean.adb, prj-tree.ads
(Project_Node_Tree_Data.Project_Path): New field.
* prj-conf.adb (Do_Autoconf): Remove "creating auto.cgpr" message
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151794 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-ext.ads')
| -rw-r--r-- | gcc/ada/prj-ext.ads | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ada/prj-ext.ads b/gcc/ada/prj-ext.ads index 156005a521c..c960e4e6f1d 100644 --- a/gcc/ada/prj-ext.ads +++ b/gcc/ada/prj-ext.ads @@ -34,18 +34,26 @@ package Prj.Ext is -- Project Path -- ------------------ - procedure Add_Search_Project_Directory (Path : String); + procedure Add_Search_Project_Directory + (Tree : Prj.Tree.Project_Node_Tree_Ref; + Path : String); -- Add a directory to the project path. Directories added with this -- procedure are added in order after the current directory and before -- the path given by the environment variable GPR_PROJECT_PATH. A value -- of "-" will remove the default project directory from the project path. + -- + -- Calls to this subprogram must be performed before the first call to + -- Project_Path below, or PATH will be added at the end of the search + -- path. - function Project_Path return String; + function Project_Path (Tree : Prj.Tree.Project_Node_Tree_Ref) return String; -- Return the current value of the project path, either the value set -- during elaboration of the package or, if procedure Set_Project_Path has -- been called, the value set by the last call to Set_Project_Path. - procedure Set_Project_Path (New_Path : String); + procedure Set_Project_Path + (Tree : Prj.Tree.Project_Node_Tree_Ref; + New_Path : String); -- Give a new value to the project path. The new value New_Path should -- always start with the current directory (".") and the path separators -- should be the correct ones for the platform. |