The node you are looking for is at
gnat_rm/the_gnat_library gnat-case-util-g-casuti-ads
.