From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 1 Dec 2020 22:42:06 +0000 (+0100)
Subject: [Ada] Refine type of a multi unit index number
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7948214670c90dfdb656b7c71779745776f74f41;p=gcc.git

[Ada] Refine type of a multi unit index number

gcc/ada/

	* opt.ads (Multiple_Unit_Index): Refine type from Int to Nat.
---

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