[multiple changes]

2016-04-20  Arnaud Charlet  <charlet@adacore.com>

	* sem_ch9.adb (Analyze_Task_Type_Declaration): Shut down warning
	in codepeer mode.

2016-04-20  Vincent Celier  <celier@adacore.com>

	* make.adb: Code cleanup.

2016-04-20  Arnaud Charlet  <charlet@adacore.com>

	* exp_ch4.adb (Expand_Allocator_Expression): Help C code
	generation.

From-SVN: r235257
This commit is contained in:
Arnaud Charlet 2016-04-20 12:31:59 +02:00
parent 06f6c43f5c
commit dfbc6cbe30
4 changed files with 21 additions and 7 deletions

View file

@ -1,3 +1,17 @@
2016-04-20 Arnaud Charlet <charlet@adacore.com>
* sem_ch9.adb (Analyze_Task_Type_Declaration): Shut down warning
in codepeer mode.
2016-04-20 Vincent Celier <celier@adacore.com>
* make.adb: Code cleanup.
2016-04-20 Arnaud Charlet <charlet@adacore.com>
* exp_ch4.adb (Expand_Allocator_Expression): Help C code
generation.
2016-04-20 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch12.adb (Copy_Generic_Node): Handle the special

View file

@ -1281,7 +1281,12 @@ package body Exp_Ch4 is
Displace_Allocator_Pointer (N);
end if;
elsif Aggr_In_Place then
-- Always force the generation of a temporary for aggregates when
-- generating C code, to simplify the work in the code generator.
elsif Aggr_In_Place
or else (Generate_C_Code and then Nkind (Exp) = N_Aggregate)
then
Temp := Make_Temporary (Loc, 'P', N);
Temp_Decl :=
Make_Object_Declaration (Loc,

View file

@ -6506,12 +6506,6 @@ package body Make is
Make_Failed ("-i and -D cannot be used simultaneously");
end if;
-- Warn about 'gnatmake -P'
if Project_File_Name /= null then
Make_Failed ("project file name missing after -P");
end if;
-- If --subdirs= is specified, but not -P, this is equivalent to -D,
-- except that the directory is created if it does not exist.

View file

@ -3077,6 +3077,7 @@ package body Sem_Ch9 is
if Restriction_Check_Required (No_Task_Hierarchy)
and then not Is_Library_Level_Entity (T)
and then Comes_From_Source (T)
and then not CodePeer_Mode
then
Error_Msg_Sloc := Restrictions_Loc (No_Task_Hierarchy);