Commit 17d302ec by Arnaud Charlet

Revert previous change.

From-SVN: r244695
parent 49779c98
2017-01-20 Arnaud Charlet <charlet@adacore.com>
* exp_ch3.adb: Reenable code.
2017-01-20 Yannick Moy <moy@adacore.com> 2017-01-20 Yannick Moy <moy@adacore.com>
* sinfo.ads: Document lack of Do_Division_Check flag * sinfo.ads: Document lack of Do_Division_Check flag
......
...@@ -5901,7 +5901,10 @@ package body Exp_Ch3 is ...@@ -5901,7 +5901,10 @@ package body Exp_Ch3 is
-- would otherwise make two copies. The RM allows removing redunant -- would otherwise make two copies. The RM allows removing redunant
-- Adjust/Finalize calls, but does not allow insertion of extra ones. -- Adjust/Finalize calls, but does not allow insertion of extra ones.
return (Nkind (Expr_Q) = N_Explicit_Dereference -- This part is disabled for now, because it breaks GPS builds
return (False -- ???
and then Nkind (Expr_Q) = N_Explicit_Dereference
and then not Comes_From_Source (Expr_Q) and then not Comes_From_Source (Expr_Q)
and then Nkind (Original_Node (Expr_Q)) = N_Function_Call and then Nkind (Original_Node (Expr_Q)) = N_Function_Call
and then Nkind (Object_Definition (N)) in N_Has_Entity and then Nkind (Object_Definition (N)) in N_Has_Entity
......
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