OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Refine type for checking number of pragma arguments

Browse Source 
Code cleanup.

gcc/ada/

	* par-prag.adb (Check_Arg_Count): Change parameter type from Int
	to Nat, because this parameter is compared to Arg_Count variable
	which is of type Nat. Also, it wouldn't make sense to check for
	negative number of pragma arguments.
This commit is contained in:
Piotr Trojanek 2022-06-29 22:30:39 +02:00 committed by Pierre-Marie de Rodat
parent e9cad1e582
commit 1d73dfb5e6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/par-prag.adb
View File

@ -65,7 +65,7 @@ function Prag (Pragma_Node : Node_Id; Semi : Source_Ptr) return Node_Id is
-- the routine for the argument one past the last present argument, but
-- that is the only case in which a non-present argument can be referenced.
procedure Check_Arg_Count (Required : Int);
procedure Check_Arg_Count (Required : Nat);
-- Check argument count for pragma = Required. If not give error and raise
-- Error_Resync.
@ -155,7 +155,7 @@ function Prag (Pragma_Node : Node_Id; Semi : Source_Ptr) return Node_Id is
-- Check_Arg_Count --
---------------------
procedure Check_Arg_Count (Required : Int) is
procedure Check_Arg_Count (Required : Nat) is
begin
if Arg_Count /= Required then
Error_Msg_N ("wrong number of arguments for pragma%", Pragma_Node);