[Ada] Remove redundant guard against Any_String
authorPiotr Trojanek <trojanek@adacore.com>
Wed, 9 Feb 2022 16:40:48 +0000 (17:40 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 12 May 2022 12:38:37 +0000 (12:38 +0000)
commitf7fc84d6fff3c6cb7e6a421c8cae4de145d09dfe
treec710235c371440af47d3958db15b544d217dd2d3
parentc97014ce88150584689a2ae9a95d8a40115e0423
[Ada] Remove redundant guard against Any_String

A sequence of checks for a valid Boolean argument fails when applied to
Any_String because its component is not of a Boolean type. The explicit
guard was unnecessary; it was only needed when a First_Index applied to
Any_String would crash, but this was fixed soon after this guard was
added.

Cleanup related to recent fixes for resolution of Boolean operators.

gcc/ada/

* sem_type.adb (Valid_Boolean_Arg): Remove redundant guard.
gcc/ada/sem_type.adb