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/sem_ch12.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/sem_ch12.adb')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 125b877..40433fd 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -1088,8 +1088,8 @@ package body Sem_Ch12 is -- name of the formal. Is_Named_Assoc : Boolean; - Num_Matched : Int := 0; - Num_Actuals : Int := 0; + Num_Matched : Nat := 0; + Num_Actuals : Nat := 0; Others_Present : Boolean := False; Others_Choice : Node_Id := Empty; @@ -4406,7 +4406,7 @@ package body Sem_Ch12 is -- to provide a clean environment for analysis of the inlined body will -- eliminate any previously set SPARK_Mode. - Scope_Stack_Depth : constant Int := + Scope_Stack_Depth : constant Pos := Scope_Stack.Last - Scope_Stack.First + 1; Use_Clauses : array (1 .. Scope_Stack_Depth) of Node_Id; @@ -4414,9 +4414,9 @@ package body Sem_Ch12 is Inner_Scopes : array (1 .. Scope_Stack_Depth) of Entity_Id; Curr_Scope : Entity_Id := Empty; List : Elist_Id; - Num_Inner : Int := 0; - Num_Scopes : Int := 0; - N_Instances : Int := 0; + Num_Inner : Nat := 0; + Num_Scopes : Nat := 0; + N_Instances : Nat := 0; Removed : Boolean := False; S : Entity_Id; Vis : Boolean; @@ -11606,15 +11606,15 @@ package body Sem_Ch12 is I2 : Node_Id; T2 : Entity_Id; - function Formal_Dimensions return Int; + function Formal_Dimensions return Nat; -- Count number of dimensions in array type formal ----------------------- -- Formal_Dimensions -- ----------------------- - function Formal_Dimensions return Int is - Num : Int := 0; + function Formal_Dimensions return Nat is + Num : Nat := 0; Index : Node_Id; begin @@ -13348,7 +13348,7 @@ package body Sem_Ch12 is procedure Preanalyze_Actuals (N : Node_Id; Inst : Entity_Id := Empty) is Assoc : Node_Id; Act : Node_Id; - Errs : constant Int := Serious_Errors_Detected; + Errs : constant Nat := Serious_Errors_Detected; Cur : Entity_Id := Empty; -- Current homograph of the instance name |