diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2025-01-10 22:08:36 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-01-13 11:53:00 +0100 |
| commit | 492aae16856e10cc44606953287192e345ec3294 (patch) | |
| tree | a642d11183f65f4d012fa94e17401ac1bff30381 /gcc | |
| parent | 5fd925bf732c889d020f2a575591648f990adb4f (diff) | |
| download | gcc-492aae16856e10cc44606953287192e345ec3294.zip gcc-492aae16856e10cc44606953287192e345ec3294.tar.gz gcc-492aae16856e10cc44606953287192e345ec3294.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnat/a-strunb.ads | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/libgnat/a-strunb.ads b/gcc/ada/libgnat/a-strunb.ads index 5a1427c..60d5795 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 |