[Ada] Replace warning suppression with assertion

gcc/ada/

	* sem_res.adb (Resolve_Membership_Op): Replace pragma Warnings
	with pragma Assert.
This commit is contained in:
Piotr Trojanek 2020-10-20 10:15:20 +02:00 committed by Pierre-Marie de Rodat
parent 4e94b2442d
commit c9e2eeb503

View File

@ -9619,7 +9619,7 @@ package body Sem_Res is
-- universal types applies.
procedure Resolve_Membership_Op (N : Node_Id; Typ : Entity_Id) is
pragma Warnings (Off, Typ);
pragma Assert (Is_Boolean_Type (Typ));
L : constant Node_Id := Left_Opnd (N);
R : constant Node_Id := Right_Opnd (N);