From 7948214670c90dfdb656b7c71779745776f74f41 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Tue, 1 Dec 2020 23:42:06 +0100 Subject: [PATCH] [Ada] Refine type of a multi unit index number gcc/ada/ * opt.ads (Multiple_Unit_Index): Refine type from Int to Nat. --- gcc/ada/opt.ads | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index f55e9c665e2..6b32a962e29 100644 --- a/gcc/ada/opt.ads +++ b/gcc/ada/opt.ads @@ -1135,7 +1135,7 @@ package Opt is -- make it easier to interface with back ends that implement C semantics. -- There is a section in Sinfo which describes the transformations made. - Multiple_Unit_Index : Int := 0; + Multiple_Unit_Index : Nat := 0; -- GNAT -- This is set non-zero if the current unit is being compiled in multiple -- unit per file mode, meaning that the current unit is selected from the -- 2.30.2