Skip to content
Snippets Groups Projects
Commit 492aae16 authored by Piotr Trojanek's avatar Piotr Trojanek Committed by Marc Poulhiès
Browse files

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.
parent 5fd925bf
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment