diff options
Diffstat (limited to 'gcc/ada/prj-env.ads')
| -rw-r--r-- | gcc/ada/prj-env.ads | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads index 36687b4..299f453 100644 --- a/gcc/ada/prj-env.ads +++ b/gcc/ada/prj-env.ads @@ -8,7 +8,7 @@ -- -- -- $Revision$ -- -- --- Copyright (C) 2001 Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2002 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- -- @@ -43,6 +43,10 @@ package Prj.Env is -- Create a temporary mapping file. For each unit, put the mapping of -- its spec and or body to 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. + procedure Create_Config_Pragmas_File (For_Project : Project_Id; Main_Project : Project_Id); @@ -58,6 +62,16 @@ package Prj.Env is -- Get the ADA_INCLUDE_PATH of a Project file. For the first call, compute -- it and cache it. + function Ada_Include_Path + (Project : Project_Id; + Recursive : Boolean) + return String; + -- Get the ADA_INCLUDE_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 directories of Project. Note: the resulting String may be empty + -- if there is no source directory in the project file. + function Ada_Objects_Path (Project : Project_Id; Including_Libraries : Boolean := True) |