diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-23 16:39:02 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-23 16:39:02 +0000 |
| commit | 57a2f6d43739fc1395be454ecb675bcc5ef94958 (patch) | |
| tree | 77aa76429da8c5a7410bf03b94496a9b7414a446 /gcc | |
| parent | 8f849c8a3ade7c0540b2b3a53dd51439bf6f955d (diff) | |
| download | gcc-57a2f6d43739fc1395be454ecb675bcc5ef94958.tar.gz | |
2014-01-23 Vincent Celier <celier@adacore.com>
* prj-conf.adb (Get_Or_Create_Configuration_File): Never parse
a config project file if On_Load_Config is not null.
* prj-pars.adb: Minor comment changes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@206984 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/prj-conf.adb | 9 | ||||
| -rw-r--r-- | gcc/ada/prj-pars.adb | 3 |
3 files changed, 13 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a6d83c8054b..5bf50ad1edd 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2014-01-23 Vincent Celier <celier@adacore.com> + + * prj-conf.adb (Get_Or_Create_Configuration_File): Never parse + a config project file if On_Load_Config is not null. + * prj-pars.adb: Minor comment changes. + 2014-01-23 Ed Schonberg <schonberg@adacore.com> * lib-xref.adb (Output_References): Output progenitors of diff --git a/gcc/ada/prj-conf.adb b/gcc/ada/prj-conf.adb index 225e0e87f6b..de4e980ffa7 100644 --- a/gcc/ada/prj-conf.adb +++ b/gcc/ada/prj-conf.adb @@ -1420,12 +1420,17 @@ package body Prj.Conf is -- Parse the configuration file - if Verbose_Mode and then Config_File_Path /= null then + if Verbose_Mode + and then Config_File_Path /= null + and then On_Load_Config = null + then Write_Str ("Checking configuration "); Write_Line (Config_File_Path.all); end if; - if Config_File_Path /= null then + -- Add comment for On_Load_Config test ??? + + if Config_File_Path /= null and then On_Load_Config = null then Prj.Part.Parse (In_Tree => Project_Node_Tree, Project => Config_Project_Node, diff --git a/gcc/ada/prj-pars.adb b/gcc/ada/prj-pars.adb index 3aba38dcfa1..a0d083488cf 100644 --- a/gcc/ada/prj-pars.adb +++ b/gcc/ada/prj-pars.adb @@ -83,9 +83,6 @@ package body Prj.Pars is -- However, we will simulate one that only contains the default -- GNAT naming scheme. - -- We pass an invalid config_file_name, to prevent reading a - -- default.cgpr that might happen to be in the current directory. - Process_Project_And_Apply_Config (Main_Project => The_Project, User_Project_Node => Project_Node, |