Regenerate gcc/configure.

[pf3gnuchains/gcc-fork.git] / gcc / ada / prj-env.ads

diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads
index 8104e34..27259c2 100644 (file)
--- a/gcc/ada/prj-env.ads
+++ b/gcc/ada/prj-env.ads
@@ -39,6 +39,13 @@ package Prj.Env is
    --  of package Fmap), so that Osint.Find_File will find the correct path
    --  corresponding to a source.
 
+   procedure Create_Temp_File
+     (In_Tree   : Project_Tree_Ref;
+      Path_FD   : out File_Descriptor;
+      Path_Name : out Path_Name_Type;
+      File_Use  : String);
+   --  Create temporary file, and fail with an error if it could not be created
+
    procedure Create_Mapping_File
      (Project  : Project_Id;
       Language : Name_Id;
@@ -55,15 +62,9 @@ package Prj.Env is
    --
    --  See fmap for a description of the format of the mapping file
 
-   procedure Set_Mapping_File_Initial_State_To_Empty
-     (In_Tree : Project_Tree_Ref);
-   --  When creating a mapping file, create an empty map. This case occurs when
-   --  run time source files are found in the project files. This only applies
-   --  to the Ada_Only mode.
-
    procedure Create_Config_Pragmas_File
-     (For_Project          : Project_Id;
-      In_Tree              : Project_Tree_Ref);
+     (For_Project : Project_Id;
+      In_Tree     : Project_Tree_Ref);
    --  If there needs to have SFN pragmas, either for non standard naming
    --  schemes or for individual units.
 
@@ -72,19 +73,11 @@ package Prj.Env is
       Path_FD   : out File_Descriptor;
       Path_Name : out Path_Name_Type);
    --  Create a new temporary path file. Get the file name in Path_Name.
-   --  The name is normally obtained by increasing the number in
-   --  Temp_Path_File_Name by 1.
-
-   function Ada_Include_Path
-     (Project : Project_Id;
-      In_Tree : Project_Tree_Ref) return String_Access;
-   --  Get the source search path of a Project file. For the first call,
-   --  compute it and cache it.
 
    function Ada_Include_Path
      (Project   : Project_Id;
       In_Tree   : Project_Tree_Ref;
-      Recursive : Boolean) return String;
+      Recursive : Boolean := False) return String;
    --  Get the source search path of a Project file. If Recursive it True, get
    --  all the source directories of the imported and modified project files
    --  (recursively). If Recursive is False, just get the path for the source
@@ -93,7 +86,6 @@ package Prj.Env is
 
    function Ada_Objects_Path
      (Project             : Project_Id;
-      In_Tree             : Project_Tree_Ref;
       Including_Libraries : Boolean := True) return String_Access;
    --  Get the ADA_OBJECTS_PATH of a Project file. For the first call, compute
    --  it and cache it. When Including_Libraries is False, do not include the
@@ -106,9 +98,6 @@ package Prj.Env is
    --  Set the environment variables for additional project path files, after
    --  creating the path files if necessary.
 
-   procedure Delete_All_Path_Files (In_Tree : Project_Tree_Ref);
-   --  Delete all temporary path files that have been created by Set_Ada_Paths
-
    function File_Name_Of_Library_Unit_Body
      (Name              : String;
       Project           : Project_Id;