mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 00:31:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Remove redundant guard against Any_String

Browse Source 
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.
This commit is contained in:
Piotr Trojanek 2022-02-09 17:40:48 +01:00 committed by Pierre-Marie de Rodat
parent c97014ce88
commit f7fc84d6ff
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/ada/sem_type.adb
View File

@ -3512,7 +3512,6 @@ package body Sem_Type is
return True;
elsif Is_Array_Type (T)
and then T /= Any_String
and then Number_Dimensions (T) = 1
and then Is_Boolean_Type (Component_Type (T))
and then