diff options
Diffstat (limited to 'gcc/ada/prj-env.ads')
| -rw-r--r-- | gcc/ada/prj-env.ads | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads index a3a3db77c9b..74bb9fcbc75 100644 --- a/gcc/ada/prj-env.ads +++ b/gcc/ada/prj-env.ads @@ -44,6 +44,16 @@ package Prj.Env is -- in the closure of immediate sources of Project, put the mapping of -- its spec and or body to its file name and path name in this file. + procedure Create_Mapping_File + (Project : Project_Id; + Language : Name_Id; + Runtime : Project_Id; + In_Tree : Project_Tree_Ref; + Name : out Path_Name_Type); + -- Create a temporary mapping file for project Project. For each source or + -- template of Language in the of Project, put the mapping of its file + -- name and path name in this file. + procedure Set_Mapping_File_Initial_State_To_Empty; -- When creating a mapping file, create an empty map. This case occurs -- when run time source files are found in the project files. @@ -61,6 +71,14 @@ package Prj.Env is -- a temporary file that contains all configuration pragmas, and specify -- the configuration pragmas file in the project data. + procedure Create_New_Path_File + (In_Tree : Project_Tree_Ref; + 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; @@ -135,7 +153,7 @@ package Prj.Env is (Source_File_Name : String; In_Tree : Project_Tree_Ref; Project : out Project_Id; - Path : out File_Name_Type); + Path : out Path_Name_Type); -- Returns the project of a source and its path in displayable form generic |