From: Eric Botcazou <ebotcazou@adacore.com>
Date: Fri, 21 Aug 2020 13:49:13 +0000 (+0200)
Subject: [Ada] Adjust documentation for Has_Constrained_Partial_View flag
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=67a3b519af65068c5ad8173373068929b99a3912;p=gcc.git

[Ada] Adjust documentation for Has_Constrained_Partial_View flag

gcc/ada/

	* einfo.ads (Has_Constrained_Partial_View): Add "base type" marker.
---

diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads
index 107bd10f1d0..a3aeb36e099 100644
--- a/gcc/ada/einfo.ads
+++ b/gcc/ada/einfo.ads
@@ -1576,7 +1576,7 @@ package Einfo is
 --       Defined for the given type. Note that this flag can be False even
 --       if Component_Size is non-zero (happens in the case of derived types).
 
---    Has_Constrained_Partial_View (Flag187)
+--    Has_Constrained_Partial_View (Flag187) [base type only]
 --       Defined in private type and their completions, when the private
 --       type has no discriminants and the full view has discriminants with
 --       defaults. In Ada 2005 heap-allocated objects of such types are not