diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-19 15:09:07 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-19 15:09:07 +0200 |
| commit | b314303784ccc313d79eadd61770225b0ec7fbfc (patch) | |
| tree | 259ca518485684926c1173c48c5455e7f043577f /gcc/ada/exp_ch7.adb | |
| parent | e90e9503dff78ba8d3c31f01ef41ea8b75d953ee (diff) | |
| download | gcc-b314303784ccc313d79eadd61770225b0ec7fbfc.zip gcc-b314303784ccc313d79eadd61770225b0ec7fbfc.tar.gz gcc-b314303784ccc313d79eadd61770225b0ec7fbfc.tar.bz2 | |
[multiple changes]
2016-04-19 Arnaud Charlet <charlet@adacore.com>
* sem_prag.adb, sem_attr.adb, par-prag.adb, exp_aggr.adb, sem_type.adb
sem_ch12.adb, sem_ch3.adb, exp_ch7.adb, exp_ch9.adb: Code cleanup.
* sem_res.adb, sem_util.ads, sem_util.adb (Is_OK_Volatile_Context):
Promoted from being a nested subprogram in Sem_Res.Resolve_Entity_Name
to publicly visible routine in Sem_Util.
2016-04-19 Ed Schonberg <schonberg@adacore.com>
* checks.adb (Apply_Parameter_Aliasing_Checks): Do not apply
the check if the type of the actual is By_Reference.
From-SVN: r235199
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 04f28a6..daa5f91 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -6227,7 +6227,7 @@ package body Exp_Ch7 is procedure Preprocess_Components (Comps : Node_Id; - Num_Comps : out Int; + Num_Comps : out Nat; Has_POC : out Boolean); -- Examine all components in component list Comps, count all controlled -- components and determine whether at least one of them is per-object @@ -6265,7 +6265,7 @@ package body Exp_Ch7 is Decl_Id : Entity_Id; Decl_Typ : Entity_Id; Has_POC : Boolean; - Num_Comps : Int; + Num_Comps : Nat; procedure Process_Component_For_Adjust (Decl : Node_Id); -- Process the declaration of a single controlled component @@ -6679,7 +6679,7 @@ package body Exp_Ch7 is Jump_Block : Node_Id; Label : Node_Id; Label_Id : Entity_Id; - Num_Comps : Int; + Num_Comps : Nat; Stmts : List_Id; procedure Process_Component_For_Finalize @@ -7236,7 +7236,7 @@ package body Exp_Ch7 is procedure Preprocess_Components (Comps : Node_Id; - Num_Comps : out Int; + Num_Comps : out Nat; Has_POC : out Boolean) is Decl : Node_Id; |