From 17d302ec0331fe0d24351682da9b709b8d936504 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 20 Jan 2017 11:30:28 +0100 Subject: [PATCH] Revert previous change. From-SVN: r244695 --- gcc/ada/ChangeLog | 4 ---- gcc/ada/exp_ch3.adb | 5 ++++- 2 files changed, 4 insertions(+), 5 deletions(-) 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 -- 2.30.2