[COMMITTED] ada: Minor fixes in description of scope depth
Checks
Commit Message
From: Eric Botcazou <ebotcazou@adacore.com>
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.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/einfo.ads | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
@@ -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, 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 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.