https://gcc.gnu.org/g:492aae16856e10cc44606953287192e345ec3294
commit r15-6860-g492aae16856e10cc44606953287192e345ec3294
Author: Piotr Trojanek <troja...@adacore.com>
Date: Fri Jan 10 22:08:36 2025 +0100
ada: Remove redundant parentheses inside unary operators (cont.)
GNAT already emits a style warning when redundant parentheses appear inside
logical and short-circuit operators. A similar warning will be soon emitted
for
unary operators as well. This patch removes the redundant parentheses to
avoid
build errors.
gcc/ada/ChangeLog:
* libgnat/a-strunb.ads: Remove redundant parentheses inside NOT
operators.
Diff:
---
gcc/ada/libgnat/a-strunb.ads | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/gcc/ada/libgnat/a-strunb.ads b/gcc/ada/libgnat/a-strunb.ads
index 5a1427c31a23..60d57954e5c9 100644
--- a/gcc/ada/libgnat/a-strunb.ads
+++ b/gcc/ada/libgnat/a-strunb.ads
@@ -432,8 +432,8 @@ is
then J <= Index'Result - 1
else J - 1 in Index'Result
.. Length (Source) - Pattern'Length)
- then not (Search.Match
- (To_String (Source), Pattern, Mapping, J)))),
+ then not Search.Match
+ (To_String (Source), Pattern, Mapping, J))),
-- Otherwise, 0 is returned
@@ -485,8 +485,8 @@ is
then J <= Index'Result - 1
else J - 1 in Index'Result
.. Length (Source) - Pattern'Length)
- then not (Search.Match
- (To_String (Source), Pattern, Mapping, J)))),
+ then not Search.Match
+ (To_String (Source), Pattern, Mapping, J))),
-- Otherwise, 0 is returned
@@ -591,8 +591,8 @@ is
then J in From .. Index'Result - 1
else J - 1 in Index'Result
.. From - Pattern'Length)
- then not (Search.Match
- (To_String (Source), Pattern, Mapping, J)))),
+ then not Search.Match
+ (To_String (Source), Pattern, Mapping, J))),
-- Otherwise, 0 is returned
@@ -655,8 +655,8 @@ is
then J in From .. Index'Result - 1
else J - 1 in Index'Result
.. From - Pattern'Length)
- then not (Search.Match
- (To_String (Source), Pattern, Mapping, J)))),
+ then not Search.Match
+ (To_String (Source), Pattern, Mapping, J))),
-- Otherwise, 0 is returned
