The node you are looking for is at gnat_rm/implementation_defined_pragmas pragma-unevaluated-use-of-old.