Source position: contnrs.pp line 550
protected function TBucketList.BucketFor(
AItem: Pointer
):Integer; override;