[Ada] Remove extra parentheses in Expand_Inlined_Call

2018-07-17  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

	* inline.adb (Expand_Inlined_Call): Remove extra parentheses.

From-SVN: r262791

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d078d6bb05b6ee258d0497c11a725826dd886540..189605a3b035c5354d76d4cc00b94825b7f27ccf 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-07-17  Piotr Trojanek  <trojanek@adacore.com>
+
+       * inline.adb (Expand_Inlined_Call): Remove extra parentheses.
+
 2018-07-17  Eric Botcazou  <ebotcazou@adacore.com>
 
        * exp_disp.adb (Gen_Parameters_Profile): Make the _Init parameter an

diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index b425094b544afee24ee50e3e442df840cb0dd5e0..8f0b75d44a14f732182649ac47581a4684cd09e8 100644 (file)
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -3295,8 +3295,8 @@ package body Inline is
                  and then Ekind (F) /= E_Out_Parameter
                  and then not Same_Type (Etype (F), Etype (A))
                then
-                  pragma Assert (not (Is_By_Reference_Type (Etype (A))));
-                  pragma Assert (not (Is_Limited_Type (Etype (A))));
+                  pragma Assert (not Is_By_Reference_Type (Etype (A)));
+                  pragma Assert (not Is_Limited_Type (Etype (A)));
 
                   Append_To (Decls,
                     Make_Object_Declaration (Loc,