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

[Ada] Code cleanups

Browse Source 
gcc/ada/

	* exp_ch9.adb, gen_il-types.ads, make.adb, par-ch12.adb,
	sem_ch13.adb: Use membership tests.
This commit is contained in:
Arnaud Charlet 2022-01-03 10:12:57 +00:00 committed by Pierre-Marie de Rodat
parent e306ed45b5
commit f9cdce4a71
5 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/exp_ch9.adb
View File

@ -4394,7 +4394,7 @@ package body Exp_Ch9 is
-- 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

3
gcc/ada/gen_il-types.ads
View File

@ -577,8 +577,7 @@ package Gen_IL.Types is
| 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

2
gcc/ada/make.adb
View File

@ -3765,7 +3765,7 @@ package body Make is
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

2
gcc/ada/par-ch12.adb
View File

@ -184,7 +184,7 @@ package body Ch12 is
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

5
gcc/ada/sem_ch13.adb
View File

@ -17125,9 +17125,8 @@ package body Sem_Ch13 is
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);