diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-23 09:57:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-23 09:57:45 +0000 |
| commit | 7527b812ce9dd981de48513070f69c51814d87ff (patch) | |
| tree | 63b071b08e39559bcd93745051792552ce1c32a4 /gcc/ada/prj-conf.ads | |
| parent | b277625712249e7b51bf006e7269f3b303d4ce8a (diff) | |
| download | gcc-7527b812ce9dd981de48513070f69c51814d87ff.tar.gz | |
2009-06-23 Emmanuel Briot <briot@adacore.com>
* prj-proc.adb, prj-proc.ads, prj-nmsc.adb, prj-nmsc.ads, prj-conf.adb,
prj-conf.ads (Check_Configuration): New parameter
Compiler_Driver_Mandatory.
2009-06-23 Ed Schonberg <schonberg@adacore.com>
* sem_ch10.adb (Analyze_With_Clause): If a subprogram instance in the
context of the current unit has an inline pragma, the instance is not
rewritten as the declaration of the package wrapper. Handle both
possibilities when retrieving the visible subprogram that renames the
instantiation itself.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148839 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-conf.ads')
| -rw-r--r-- | gcc/ada/prj-conf.ads | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/prj-conf.ads b/gcc/ada/prj-conf.ads index 51cb8b37340..a3a499f09bb 100644 --- a/gcc/ada/prj-conf.ads +++ b/gcc/ada/prj-conf.ads @@ -31,12 +31,15 @@ with Prj.Tree; package Prj.Conf is type Config_File_Hook is access procedure - (Config_File : Prj.Tree.Project_Node_Id; + (Config_File : in out Prj.Tree.Project_Node_Id; Project_Node_Tree : Prj.Tree.Project_Node_Tree_Ref); -- Hook called after the config file has been parsed. This lets the -- application do last minute changes to it (GPS uses this to add the -- default naming schemes for instance). -- At that point, the config file has not been applied to the project yet. + -- When no config file was found, and automatic generation is disabled, it + -- is possible that Config_File is set to Empty_Node when this procedure is + -- called. You can then decide to create a new config file if you need. procedure Parse_Project_And_Apply_Config (Main_Project : out Prj.Project_Id; @@ -94,7 +97,8 @@ package Prj.Conf is Target_Name : String := ""; Normalized_Hostname : String; Report_Error : Put_Line_Access := null; - On_Load_Config : Config_File_Hook := null); + On_Load_Config : Config_File_Hook := null; + Compiler_Driver_Mandatory : Boolean := True); -- Same as above, except the project must already have been parsed through -- Prj.Part.Parse, and only the processing of the project and the -- configuration is done at this level. |