From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 2 Mar 2023 10:51:22 +0000 (+0100)
Subject: ada: Minor fixes in description of scope depth
X-Git-Tag: basepoints/gcc-15~8939
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5ca595d97bb99839604ea9a60dce0abc336ed1e5;p=thirdparty%2Fgcc.git

ada: Minor fixes in description of scope depth

In particular, the scope depth of library units is 1 instead of 0.

gcc/ada/

	* einfo.ads (Scope_Depth): Fix circular definition.
	(Scope_Depth_Value): Fix value for library units.
---

diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads
index 78a1534c7495..b39cffd172c6 100644
--- a/gcc/ada/einfo.ads
+++ b/gcc/ada/einfo.ads
@@ -4324,14 +4324,14 @@ package Einfo is
 --       concurrent types, private types and entries, and also to record types,
 --       i.e. to any entity that can appear on the scope stack. Yields the
 --       scope depth value, which for those entities other than records is
---       simply the scope depth value, for record entities, it is the
---       Scope_Depth of the record scope.
+--       simply the Scope_Depth_Value, and for record entities, is the
+--       Scope_Depth of the record's scope.
 
 --    Scope_Depth_Value
 --       Defined in program units, blocks, loops, return statements,
 --       concurrent types, private types and entries.
 --       Indicates the number of scopes that statically enclose the declaration
---       of the unit or type. Library units have a depth of zero. Note that
+--       of the unit or type. Library units have a depth of one. Note that
 --       record types can act as scopes but do NOT have this field set (see
 --       Scope_Depth above). Queries should normally be via Scope_Depth,
 --       and not call Scope_Depth_Value directly.