diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-29 17:02:05 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-29 17:02:05 +0200 |
| commit | 5f6fb720bb65b6954b2ecf0ceecc8f212b08e988 (patch) | |
| tree | 99975ce04ccdb2cf387b17ba7c150f907dd6b0a6 /gcc/ada/frontend.adb | |
| parent | fc27e20e722d17c847d82062e70787388b6d6997 (diff) | |
| download | gcc-5f6fb720bb65b6954b2ecf0ceecc8f212b08e988.zip gcc-5f6fb720bb65b6954b2ecf0ceecc8f212b08e988.tar.gz gcc-5f6fb720bb65b6954b2ecf0ceecc8f212b08e988.tar.bz2 | |
[multiple changes]
2014-07-29 Vincent Celier <celier@adacore.com>
* gnat_ugn.texi: Document that configuration pragmas files are
added to the dependencies, unless they contain only pragmas
Source_File_Name_Project.
2014-07-29 Robert Dewar <dewar@adacore.com>
* frontend.adb: Minor reformatting.
2014-07-29 Robert Dewar <dewar@adacore.com>
* exp_ch6.adb (Add_Call_By_Copy_Code): Minor reformatting
(Expand_Actuals): Make sure predicate checks are properly applied
for the case of OUT or IN OUT parameters.
* sem_res.adb: Minor reformatting (Resolve_Actuals): Skip
predicate tests on arguments for Finalize
* sem_util.adb (No_Predicate_Test_On_Arguments): Returns True
if predicate tests on subprogram arguments should be skipped.
* sem_util.ads (No_Predicate_Test_On_Arguments): New function
2014-07-29 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Analyze_Object_Declaration): If there is an address
clause for the object and the expression is an aggregate, defer
resolution and expansion of the aggregate until the freeze point
of the entity.
* sem_aggr.adb (Resolve_Aggregate): An others_clause is legal if
the parent node is an N_Reference generated during expansion.
2014-07-29 Vincent Celier <celier@adacore.com>
* prj.adb (Add_To_Buffer): Effectively double the size of the buffer.
From-SVN: r213209
Diffstat (limited to 'gcc/ada/frontend.adb')
| -rw-r--r-- | gcc/ada/frontend.adb | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index 292cab1..020fab4 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -71,8 +71,8 @@ procedure Frontend is Config_Pragmas : List_Id; -- Gather configuration pragmas - function Need_To_Be_In_The_Dependencies (Pragma_List : List_Id) - return Boolean; + function Need_To_Be_In_The_Dependencies + (Pragma_List : List_Id) return Boolean; -- Check if a configuration pragmas file that contains the Pragma_List -- should be a dependency for the source being compiled. Returns -- False if Pragma_List is Error_List or contains only pragmas @@ -82,11 +82,12 @@ procedure Frontend is -- Need_To_Be_In_The_Dependencies -- ------------------------------------ - function Need_To_Be_In_The_Dependencies (Pragma_List : List_Id) - return Boolean + function Need_To_Be_In_The_Dependencies + (Pragma_List : List_Id) return Boolean is Prag : Node_Id; Pname : Name_Id; + begin if Pragma_List /= Error_List then Prag := First (Pragma_List); @@ -104,6 +105,8 @@ procedure Frontend is return False; end Need_To_Be_In_The_Dependencies; +-- Start of processing for Frontend + begin -- Carry out package initializations. These are initializations which might -- logically be performed at elaboration time, were it not for the fact @@ -272,7 +275,8 @@ begin declare Pragma_List : constant List_Id := - Par (Configuration_Pragmas => True); + Par (Configuration_Pragmas => True); + begin if Need_To_Be_In_The_Dependencies (Pragma_List) then Prepcomp.Add_Dependency (Source_Config_File); |