The node you are looking for is at gnat_rm/implementation_defined_pragmas pragma-external-name-casing.