diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-20 11:30:28 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-20 11:30:28 +0100 |
| commit | 17d302ec0331fe0d24351682da9b709b8d936504 (patch) | |
| tree | a57a9f501ae042c9600fda096b5e0a05ba176132 /gcc | |
| parent | 49779c98ffb4c5e9d8ed3d413e09119f4adeaeef (diff) | |
| download | gcc-17d302ec0331fe0d24351682da9b709b8d936504.zip gcc-17d302ec0331fe0d24351682da9b709b8d936504.tar.gz gcc-17d302ec0331fe0d24351682da9b709b8d936504.tar.bz2 | |
Revert previous change.
From-SVN: r244695
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 5 |
2 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9ad6001..75a4494 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,7 +1,3 @@ -2017-01-20 Arnaud Charlet <charlet@adacore.com> - - * exp_ch3.adb: Reenable code. - 2017-01-20 Yannick Moy <moy@adacore.com> * sinfo.ads: Document lack of Do_Division_Check flag diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index f4f4571..0acd94f 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 |