The node you are looking for is at gnat_rm/implementation_advice rm-c-5-8-pragma-discard-names.