diff options
| author | Vincent Celier <celier@adacore.com> | 2008-07-31 14:37:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-07-31 14:37:42 +0200 |
| commit | ca311c9fa5a945158921d0c6e59d39ad7b6bbd51 (patch) | |
| tree | 111f450ff499447e2cacdf94ccfe431bde98835a /gcc/ada/prj-part.ads | |
| parent | 58fda84daa95719faf5305ad44f09816d1de280a (diff) | |
| download | gcc-ca311c9fa5a945158921d0c6e59d39ad7b6bbd51.zip gcc-ca311c9fa5a945158921d0c6e59d39ad7b6bbd51.tar.gz gcc-ca311c9fa5a945158921d0c6e59d39ad7b6bbd51.tar.bz2 | |
prj-part.adb, [...]: Move back spec of Parse_Single_Project to body...
2008-07-31 Vincent Celier <celier@adacore.com>
* prj-part.adb, prj-part.ads, prj.adb, prj.ads, prj-env.adb:
Move back spec of Parse_Single_Project to body, as it is not called
outside of package Prj.Part.
(Project_Data): Remove components Linker_Name, Linker_Path and
Minimum_Linker_Options as they are no longer set.
Remove function There_Are_Ada_Sources from package Prj and move code
in the only place it was used, in Prj.Env.Set_Ada_Paths.
From-SVN: r138394
Diffstat (limited to 'gcc/ada/prj-part.ads')
| -rw-r--r-- | gcc/ada/prj-part.ads | 26 |
1 files changed, 1 insertions, 25 deletions
diff --git a/gcc/ada/prj-part.ads b/gcc/ada/prj-part.ads index 8e366bc..e1c69c5 100644 --- a/gcc/ada/prj-part.ads +++ b/gcc/ada/prj-part.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2008, 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- -- @@ -49,28 +49,4 @@ package Prj.Part is -- Current_Directory is used for optimization purposes only, avoiding extra -- system calls. - type Extension_Origin is (None, Extending_Simple, Extending_All); - -- Type of parameter From_Extended for procedures Parse_Single_Project and - -- Post_Parse_Context_Clause. Extending_All means that we are parsing the - -- tree rooted at an extending all project. - - procedure Parse_Single_Project - (In_Tree : Project_Node_Tree_Ref; - Project : out Project_Node_Id; - Extends_All : out Boolean; - Path_Name : String; - Extended : Boolean; - From_Extended : Extension_Origin; - In_Limited : Boolean; - Packages_To_Check : String_List_Access; - Depth : Natural; - Current_Dir : String); - -- Parse a project file. - -- Recursive procedure: it calls itself for imported and extended - -- projects. When From_Extended is not None, if the project has already - -- been parsed and is an extended project A, return the ultimate - -- (not extended) project that extends A. When In_Limited is True, - -- the importing path includes at least one "limited with". - -- When parsing configuration projects, do not allow a depth > 1. - end Prj.Part; |