Source position: sortalgs.pp line 54
procedure HeapSort_PtrList_Context(
ItemPtrs: PPointer;
ItemCount: SizeUInt;
Comparer: TListSortComparer_Context;
Context: Pointer
);