diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-12-01 23:42:06 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-17 05:49:24 -0500 |
| commit | 7948214670c90dfdb656b7c71779745776f74f41 (patch) | |
| tree | e5babe651275b75de1d6c31e7e7e193d7700ce5a | |
| parent | 2f29ceb054a350abb6d377472304ac9768eed11f (diff) | |
| download | gcc-7948214670c90dfdb656b7c71779745776f74f41.zip gcc-7948214670c90dfdb656b7c71779745776f74f41.tar.gz gcc-7948214670c90dfdb656b7c71779745776f74f41.tar.bz2 | |
[Ada] Refine type of a multi unit index number
gcc/ada/
* opt.ads (Multiple_Unit_Index): Refine type from Int to Nat.
| -rw-r--r-- | gcc/ada/opt.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index f55e9c6..6b32a96 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 |