[Ada] Minor refactoring: remove extra parentheses

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

gcc/ada/

	* einfo.adb (Is_Wrapper_Package): Remove extra parentheses.

From-SVN: r262770

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 294602ee19aed562e6d83c5befa1ed2916d93753..5aff421a5b449c5828b3f3c4083d04f220d015f5 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-07-17  Piotr Trojanek  <trojanek@adacore.com>
+
+       * einfo.adb (Is_Wrapper_Package): Remove extra parentheses.
+
 2018-07-17  Ed Schonberg  <schonberg@adacore.com>
 
        * sem_util.adb (Enclosing_Subprogram): Handle properly entries, and

diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb
index 10a04a360158bda6bece50d477eaec907403cf21..cadbd321c4c23c49909f996b493b3de4ecae3578 100644 (file)
--- a/gcc/ada/einfo.adb
+++ b/gcc/ada/einfo.adb
@@ -8385,7 +8385,7 @@ package body Einfo is
 
    function Is_Wrapper_Package (Id : E) return B is
    begin
-      return (Ekind (Id) = E_Package and then Present (Related_Instance (Id)));
+      return Ekind (Id) = E_Package and then Present (Related_Instance (Id));
    end Is_Wrapper_Package;
 
    -----------------