//
function TPtrSet.GetPtrHash(APtr : Pointer) : THash;
begin

 Cardinal(Result) := {PtrUInt(APtr);{ Shr 4;//}BJ32BitFAHash(PtrUInt(APtr));

end;
//

//
procedure TPtrSet.Add(APtr : Pointer);
var

 ctx : TPtrSet.TSearchContext;

begin

 EnsureGrowth;

 if FindFirst(GetPtrHash(APtr), ctx) then
  repeat
  until not FindNext(ctx);

 RegisterItem(ctx){$IF SizeOf(Pointer) = 8}

                   .Data := PtrUInt(APtr) Shr 32;

                  {$IFEND};

end;
//

//
function TPtrSet.Remove(APtr : Pointer) : Boolean;
var

 ctx  : TPtrSet.TSearchContext;
 ictx : TPtrSet.TSearchContext;

 {$IF SizeOf(Pointer) = 8}

  data : Cardinal;

 {$IFEND}

begin

 Result := False;

 ictx.Items := nil;

 if FindFirst(GetPtrHash(APtr), ctx) then
  begin

   {$IF SizeOf(Pointer) = 4}

    ictx := ctx;

    if FindNext(ctx) then
     Result := true;

   {$ELSEIF SizeOf(Pointer) = 8}

    data := PtrUInt(APtr) Shr 32;

    if ctx.Item.Data = data then
     begin

      ictx := ctx;

      while FindNext(ctx) do
       if ctx.Item.Data = data then
        begin

         Result := true;
         break;

        end;

     end;

   {$ELSE}

    {$MESSAGE ERROR 'Unknown situation'}

   {$IFEND}

  end;

 if Assigned(ictx.Items) then
  UnregisterItem(ictx);

end;
//

//
function TPtrSet.Contains(APtr : Pointer) : Boolean;
var

 ctx : TPtrSet.TSearchContext;

begin

 result := False;

 if FindFirst(GetPtrHash(APtr), ctx) then

  {$IF SizeOf(Pointer) = 4}

   Result := True;

  {$ELSEIF SizeOf(Pointer) = 8}

   repeat

    if ctx.Item.Data = PtrUInt(APtr) Shr 32 then
     begin

      Result := True;

      Break;

     end;

   until not FindNext(ctx);

  {$ELSE}

   {$MESSAGE ERROR 'Unknown situation'}

  {$IFEND}

end;
//