[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:
parent
4e94b2442d
commit
c9e2eeb503
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user