From: Arnaud Charlet Date: Fri, 20 Jan 2017 10:30:28 +0000 (+0100) Subject: Revert previous change. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=17d302ec0331fe0d24351682da9b709b8d936504;p=gcc.git Revert previous change. From-SVN: r244695 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9ad60015b0e..75a44945fe9 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,7 +1,3 @@ -2017-01-20 Arnaud Charlet - - * exp_ch3.adb: Reenable code. - 2017-01-20 Yannick Moy * sinfo.ads: Document lack of Do_Division_Check flag diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index f4f457178bb..0acd94f1ab9 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -5901,7 +5901,10 @@ package body Exp_Ch3 is -- would otherwise make two copies. The RM allows removing redunant -- 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 Nkind (Original_Node (Expr_Q)) = N_Function_Call and then Nkind (Object_Definition (N)) in N_Has_Entity