The node you are looking for is at gnat_rm/the_gnat_library gnat-heap-sort-a-g-hesora-ads.