diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-19 12:59:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-19 12:59:27 +0000 |
| commit | 6018aae3d2356cefd4c2d529276e712fcd0eeb9d (patch) | |
| tree | a83fb2e298eb4d43738609e6f7a59356edfce6ec /gcc/ada/sem_elab.adb | |
| parent | 410a40a99b316ae3b8b612bfc6efa8568ea9b9d1 (diff) | |
| download | gcc-6018aae3d2356cefd4c2d529276e712fcd0eeb9d.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235194 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_elab.adb')
| -rw-r--r-- | gcc/ada/sem_elab.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index b2a092cbe88..bdc88c148d6 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -1233,8 +1233,8 @@ package body Sem_Elab is -- then the body of the generic will be in the earlier instance. declare - D1 : constant Int := Instantiation_Depth (Sloc (Ent)); - D2 : constant Int := Instantiation_Depth (Sloc (N)); + D1 : constant Nat := Instantiation_Depth (Sloc (Ent)); + D2 : constant Nat := Instantiation_Depth (Sloc (N)); begin if D1 > D2 then |