FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Refine type of a counter function for record delta aggregate

Browse source 
gcc/ada/

	* sem_aggr.adb (Variant_Depth): Refine type from Integer to
	Natural.
This commit is contained in:
Piotr Trojanek 2021-10-13 13:48:42 +02:00 • committed by Pierre-Marie de Rodat
parent 36e3802212
commit 2aa814cb27
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gcc/ada/sem_aggr.adb
View file

@ -3384,9 +3384,8 @@ package body Sem_Aggr is
function Nested_In (V1 : Node_Id; V2 : Node_Id) return Boolean;
-- Determine whether variant V1 is within variant V2
function Variant_Depth (N : Node_Id) return Integer;
-- Determine the distance of a variant to the enclosing type
-- declaration.
function Variant_Depth (N : Node_Id) return Natural;
-- Determine the distance of a variant to the enclosing type declaration
--------------------
-- Check_Variant --
@ -3492,8 +3491,8 @@ package body Sem_Aggr is
-- Variant_Depth --
-------------------
function Variant_Depth (N : Node_Id) return Integer is
Depth : Integer;
function Variant_Depth (N : Node_Id) return Natural is
Depth : Natural;
Par : Node_Id;
begin