-- It would be better to encapsulate this as a routine in Exp_Dbug ???
if Append_Char /= ' ' then
- if Append_Char = 'P' or Append_Char = 'N' then
+ if Append_Char in 'P' | 'N' then
Add_Char_To_Name_Buffer (Append_Char);
return Name_Find;
else
| N_Defining_Operator_Symbol;
subtype Opt_Abstract_Type is Opt_Type_Enum with
- Predicate => Opt_Abstract_Type = No_Type or
- Opt_Abstract_Type in Abstract_Type;
+ Predicate => Opt_Abstract_Type in No_Type | Abstract_Type;
subtype Type_Boundaries is Type_Enum with
Predicate => Type_Boundaries in
declare
Arg : constant String := Argument (J);
begin
- if Arg = "-cargs" or Arg = "-bargs" or Arg = "-largs" then
+ if Arg in "-cargs" | "-bargs" | "-largs" then
In_Gnatmake_Switches := False;
elsif Arg = "-margs" then
if Token = Tok_Package then
Append (P_Formal_Package_Declaration, Decls);
- elsif Token = Tok_Procedure or Token = Tok_Function then
+ elsif Token in Tok_Procedure | Tok_Function then
Append (P_Formal_Subprogram_Declaration, Decls);
else
procedure Validate_Literal_Aspect (Typ : Entity_Id; ASN : Node_Id) is
A_Id : constant Aspect_Id := Get_Aspect_Id (ASN);
- pragma Assert ((A_Id = Aspect_Integer_Literal) or
- (A_Id = Aspect_Real_Literal) or
- (A_Id = Aspect_String_Literal));
+ pragma Assert (A_Id in Aspect_Integer_Literal |
+ Aspect_Real_Literal | Aspect_String_Literal);
Func_Name : constant Node_Id := Expression (ASN);
Overloaded : Boolean := Is_Overloaded (Func_Name);