Commit 7548f2cb by Arnaud Charlet

[multiple changes]

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

	* exp_ch4.adb: Update comment.

2016-04-18  Eric Botcazou  <ebotcazou@adacore.com>

	* exp_ch6.adb (Expand_Call): Make sure instantiations are
	registered only once as pending here.

From-SVN: r235142
parent f916243b
2016-04-18 Arnaud Charlet <charlet@adacore.com>
* exp_ch4.adb: Update comment.
2016-04-18 Eric Botcazou <ebotcazou@adacore.com>
* exp_ch6.adb (Expand_Call): Make sure instantiations are
registered only once as pending here.
2016-04-18 Arnaud Charlet <charlet@adacore.com>
* exp_ch4.adb, gnat1drv.adb, opt.ads, sem_res.adb
(Minimize_Expression_With_Actions): New flag.
(Adjust_Global_Switches): Set Minimize_Expression_With_Actions
......
......@@ -5290,9 +5290,8 @@ package body Exp_Ch4 is
if Present (Actions) then
-- If we want to minimize the use of
-- Expression_With_Actions, just skip the optimization, it
-- is not critical for correctness.
-- To minimize the use of Expression_With_Actions, just skip
-- the optimization as it is not critical for correctness.
if Minimize_Expression_With_Actions then
return False;
......
......@@ -3922,7 +3922,10 @@ package body Exp_Ch6 is
Inst := Scope (Inst);
end loop;
if Present (Inst) and then Is_Generic_Instance (Inst) then
if Present (Inst)
and then Is_Generic_Instance (Inst)
and then not Is_Inlined (Inst)
then
Set_Is_Inlined (Inst);
Decl := Unit_Declaration_Node (Inst);
......
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