The node you are looking for is at gnat_rm/gnat_language_extensions dynamic-semantics.