Index: einfo.adb
===================================================================
--- einfo.adb	(revision 163054)
+++ einfo.adb	(working copy)
@@ -7475,6 +7475,7 @@ package body Einfo is
             Write_Str ("Storage_Size_Variable");
 
          when Class_Wide_Kind                              |
+              Incomplete_Kind                              |
               E_Record_Type                                |
               E_Record_Subtype                             |
               Private_Kind                                 =>
Index: einfo.ads
===================================================================
--- einfo.ads	(revision 163054)
+++ einfo.ads	(working copy)
@@ -3188,7 +3188,8 @@ package Einfo is
 --       is an error to reference the primitive operations field of a type
 --       that is not tagged). In order to fulfill the C++ ABI, entities of
 --       primitives that come from source must be stored in this list following
---       their order of occurrence in the sources.
+--       their order of occurrence in the sources. Also present in incomplete
+--       types, but in this case the list is always empty.
 
 --    Prival (Node17)
 --       Present in private components of protected types. Refers to the entity