diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-06-25 16:10:30 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-20 12:31:35 +0000 |
| commit | e97dd2ae763d8c1e78c3b82fc2add4c078fb2357 (patch) | |
| tree | 0eca9ef8ddf2684e430ae151ec12ab8057c95a82 /gcc | |
| parent | cf0813a9cfa8f973861d8829a07774118c61beb7 (diff) | |
| download | gcc-e97dd2ae763d8c1e78c3b82fc2add4c078fb2357.zip gcc-e97dd2ae763d8c1e78c3b82fc2add4c078fb2357.tar.gz gcc-e97dd2ae763d8c1e78c3b82fc2add4c078fb2357.tar.bz2 | |
[Ada] Cleanups related to building of dispatch tables
gcc/ada/
* exp_ch7.adb (Expand_N_Package_Declaration): Fix wording in
comment.
* exp_disp.adb (Mark_DT): Remove unnecessary initialization of
I_Depth.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/exp_disp.adb | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 3cc9b3c..33e4f3a 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -6067,7 +6067,7 @@ package body Exp_Ch7 is Pop_Scope; end if; - -- Build dispatch tables of library level tagged types + -- Build dispatch tables of library-level tagged types if Tagged_Type_Expansion and then (Is_Compilation_Unit (Id) diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 647068f..079cd44 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -4712,7 +4712,7 @@ package body Exp_Disp is Exname : Entity_Id; HT_Link : Entity_Id; ITable : Node_Id; - I_Depth : Nat := 0; + I_Depth : Nat; Iface_Table_Node : Node_Id; Name_ITable : Name_Id; Nb_Prim : Nat := 0; |