gcc/ada/
* sem_aggr.adb (Variant_Depth): Refine type from Integer to
Natural.
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 --
-- 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