The node you are looking for is at gnat_rm/gnat_language_extensions mutably-tagged-types-with-size-class-aspect.