Commit dfbc6cbe by Arnaud Charlet

[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
parent 06f6c43f
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> 2016-04-20 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch12.adb (Copy_Generic_Node): Handle the special * sem_ch12.adb (Copy_Generic_Node): Handle the special
......
...@@ -1281,7 +1281,12 @@ package body Exp_Ch4 is ...@@ -1281,7 +1281,12 @@ package body Exp_Ch4 is
Displace_Allocator_Pointer (N); Displace_Allocator_Pointer (N);
end if; 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 := Make_Temporary (Loc, 'P', N);
Temp_Decl := Temp_Decl :=
Make_Object_Declaration (Loc, Make_Object_Declaration (Loc,
......
...@@ -6506,12 +6506,6 @@ package body Make is ...@@ -6506,12 +6506,6 @@ package body Make is
Make_Failed ("-i and -D cannot be used simultaneously"); Make_Failed ("-i and -D cannot be used simultaneously");
end if; 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, -- If --subdirs= is specified, but not -P, this is equivalent to -D,
-- except that the directory is created if it does not exist. -- except that the directory is created if it does not exist.
......
...@@ -3077,6 +3077,7 @@ package body Sem_Ch9 is ...@@ -3077,6 +3077,7 @@ package body Sem_Ch9 is
if Restriction_Check_Required (No_Task_Hierarchy) if Restriction_Check_Required (No_Task_Hierarchy)
and then not Is_Library_Level_Entity (T) and then not Is_Library_Level_Entity (T)
and then Comes_From_Source (T) and then Comes_From_Source (T)
and then not CodePeer_Mode
then then
Error_Msg_Sloc := Restrictions_Loc (No_Task_Hierarchy); Error_Msg_Sloc := Restrictions_Loc (No_Task_Hierarchy);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment