[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 107bd10f1d0e760dffe00016b2a676034a39dfcf..a3aeb36e099039ada8a8837cde809d07ac962bd2 100644 (file)
--- 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