anchor.diff:  end;
   
   function TRawSocket.RecvdCount: Integer;
  -{$IFDEF POSIX}
  -{$ELSE}
  -var
  -  Temp : u_long;
  -{$ENDIF}
  -
  -begin
  -{$IFDEF POSIX}
  -  // nonthing... reserved!
  +begin
  +  // δ
     Result := 0;
  -{$ELSE}
  -  if ioctlsocket(FSocketHandle, FIONREAD, Temp) = SOCKET_ERROR then
  -  begin
  -    Result := -1;
  -  end else
  -  begin
  -    Result := Temp;
  -  end;
  -{$ENDIF}
   end;
   
   procedure TRawSocket.SetConnectInfo(const pvAddr: string; pvPort: Integer);
  
positive.code: function TRawSocket.SetReadTimeOut(const pvTimeOut: Cardinal): Integer;
  begin
  {$IFDEF POSIX}
    // not test
    Result := setsockopt(FSocketHandle,
     SOL_SOCKET, SO_RCVTIMEO, pvTimeOut, SizeOf(Cardinal));
  {$ELSE} 
  
negative.code:   else begin
      queueSize := backlog;
    end;
    Result := Posix.SysSocket.Listen(FSocketHandle, queueSize) = 0;
  end;
  
  function TRawSocket.PeekBuf(var data; const len:Cardinal): Integer;
  