diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-19 14:59:27 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-19 14:59:27 +0200 |
| commit | 16e764a7f44bbc29254f041fe0f3064cce65b994 (patch) | |
| tree | a83fb2e298eb4d43738609e6f7a59356edfce6ec /gcc/ada/namet.adb | |
| parent | 4754d4e86afb974d0316a2b2793029f4407d762f (diff) | |
| download | gcc-16e764a7f44bbc29254f041fe0f3064cce65b994.zip gcc-16e764a7f44bbc29254f041fe0f3064cce65b994.tar.gz gcc-16e764a7f44bbc29254f041fe0f3064cce65b994.tar.bz2 | |
[multiple changes]
2016-04-19 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb (Resolve_Attribute, case 'Access): Freeze
overloadable entity if originally overloaded.
2016-04-19 Arnaud Charlet <charlet@adacore.com>
* exp_aggr.adb, exp_ch3.adb, exp_ch7.adb, exp_ch9.adb, exp_code.adb,
exp_fixd.adb, namet.adb, osint.adb, osint.ads, par-ch2.adb,
sem_ch10.adb, sem_ch12.adb, sem_disp.adb, sem_elab.adb, sem_elim.adb
sem_util.adb, styleg.adb, styleg.ads, stylesw.ads: Minor code
clean up.
From-SVN: r235194
Diffstat (limited to 'gcc/ada/namet.adb')
| -rw-r--r-- | gcc/ada/namet.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb index 9972aa9..520ce6a 100644 --- a/gcc/ada/namet.adb +++ b/gcc/ada/namet.adb @@ -610,13 +610,13 @@ package body Namet is -- N'th entry is the number of chains of length N, except last entry, -- which is the number of chains of length F'Last or more. - Max_Chain_Length : Int := 0; + Max_Chain_Length : Nat := 0; -- Maximum length of all chains - Probes : Int := 0; + Probes : Nat := 0; -- Used to compute average number of probes - Nsyms : Int := 0; + Nsyms : Nat := 0; -- Number of symbols in table Verbosity : constant Int range 1 .. 3 := 1; @@ -647,7 +647,7 @@ package body Namet is else declare - C : Int; + C : Nat; N : Name_Id; S : Int; |