ada: Clean up scope depth and related code (tech debt)

[gcc.git] / gcc / ada / sem.ads

diff --git a/gcc/ada/sem.ads b/gcc/ada/sem.ads
index 19abbf16d19b1f8525e3823d7d5495fee36b1ae3..10d4bd2e964370f3ea50ecd58230d05a57ee80c0 100644 (file)
--- a/gcc/ada/sem.ads
+++ b/gcc/ada/sem.ads
@@ -201,6 +201,7 @@
 --  called Preanalyze_And_Resolve and is in Sem_Res.
 
 with Alloc;
+with Einfo.Entities; use Einfo.Entities;
 with Opt;    use Opt;
 with Table;
 with Types;  use Types;
@@ -485,7 +486,7 @@ package Sem is
    --  configuration file.
 
    type Scope_Stack_Entry is record
-      Entity : Entity_Id;
+      Entity : Scope_Kind_Id;
       --  Entity representing the scope
 
       Last_Subprogram_Name : String_Ptr;