From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 25 Jun 2021 14:10:30 +0000 (+0200)
Subject: [Ada] Cleanups related to building of dispatch tables
X-Git-Tag: basepoints/gcc-13~4606
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e97dd2ae763d8c1e78c3b82fc2add4c078fb2357;p=thirdparty%2Fgcc.git

[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.
---

diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb
index 3cc9b3c4127e..33e4f3a4ab36 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 647068f38206..079cd441ebba 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;