--- net-p2p/transmisson-remote-gui/files/patch-ssfpc.pas	1970-01-01 01:00:00.000000000 +0100
+++ net-p2p/transmisson-remote-gui/files/patch-ssfpc.pas	2010-04-23 18:38:10.000000000 +0100
@@ -0,0 +1,121 @@ 
+--- synapse/source/lib/ssfpc.pas	2010-04-23 18:23:27.000000000 +0100
++++ synapse/source/lib/ssfpc.pas	2010-04-23 18:33:20.000000000 +0100
+@@ -514,7 +514,7 @@
+ 
+ function Bind(s: TSocket; const addr: TVarSin): Integer;
+ begin
+-  if sockets.Bind(s, addr, SizeOfVarSin(addr)) then
++  if sockets.fpbind(s, @addr, SizeOfVarSin(addr))=0 then
+     Result := 0
+   else
+     Result := SOCKET_ERROR;
+@@ -522,7 +522,7 @@
+ 
+ function Connect(s: TSocket; const name: TVarSin): Integer;
+ begin
+-  if sockets.Connect(s, name, SizeOfVarSin(name)) then
++  if sockets.fpconnect(s, @name, SizeOfVarSin(name))=0 then
+     Result := 0
+   else
+     Result := SOCKET_ERROR;
+@@ -534,7 +534,7 @@
+ begin
+   len := SizeOf(name);
+   FillChar(name, len, 0);
+-  Result := sockets.GetSocketName(s, name, Len);
++  Result := sockets.fpgetsockname(s, @name, @Len);
+ end;
+ 
+ function GetPeerName(s: TSocket; var name: TVarSin): Integer;
+@@ -543,7 +543,7 @@
+ begin
+   len := SizeOf(name);
+   FillChar(name, len, 0);
+-  Result := sockets.GetPeerName(s, name, Len);
++  Result := sockets.fpgetpeername(s, @name, @Len);
+ end;
+ 
+ function GetHostName: string;
+@@ -553,17 +553,17 @@
+ 
+ function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+ begin
+-  Result := sockets.Send(s, Buf^, len, flags);
++  Result := sockets.fpsend(s, Buf, len, flags);
+ end;
+ 
+ function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+ begin
+-  Result := sockets.Recv(s, Buf^, len, flags);
++  Result := sockets.fprecv(s, Buf, len, flags);
+ end;
+ 
+ function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
+ begin
+-  Result := sockets.SendTo(s, Buf^, len, flags, addrto, SizeOfVarSin(addrto));
++  Result := sockets.fpsendto(s, Buf, len, flags, @addrto, SizeOfVarSin(addrto));
+ end;
+ 
+ function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
+@@ -571,7 +571,7 @@
+   x: integer;
+ begin
+   x := SizeOf(from);
+-  Result := sockets.RecvFrom(s, Buf^, len, flags, from, x);
++  Result := sockets.fprecvfrom(s, Buf, len, flags, @from, @x);
+ end;
+ 
+ function Accept(s: TSocket; var addr: TVarSin): TSocket;
+@@ -579,24 +579,24 @@
+   x: integer;
+ begin
+   x := SizeOf(addr);
+-  Result := sockets.Accept(s, addr, x);
++  Result := sockets.fpaccept(s, @addr, @x);
+ end;
+ 
+ function Shutdown(s: TSocket; how: Integer): Integer;
+ begin
+-  Result := sockets.Shutdown(s, how);
++  Result := sockets.fpshutdown(s, how);
+ end;
+ 
+ function SetSockOpt(s: TSocket; level, optname: Integer; optval: Tmemory;
+   optlen: Integer): Integer;
+ begin
+-  Result := sockets.SetSocketOptions(s, level, optname, optval^, optlen);
++  Result := sockets.fpsetsockopt(s, level, optname, optval, optlen);
+ end;
+ 
+ function GetSockOpt(s: TSocket; level, optname: Integer; optval: Tmemory;
+   var optlen: Integer): Integer;
+ begin
+-  Result := sockets.GetSocketOptions(s, level, optname, optval^, optlen);
++  Result := sockets.fpgetsockopt(s, level, optname, optval, @optlen);
+ end;
+ 
+ function  ntohs(netshort: word): word;
+@@ -611,7 +611,7 @@
+ 
+ function  Listen(s: TSocket; backlog: Integer): Integer;
+ begin
+-  if sockets.Listen(s, backlog) then
++  if sockets.fplisten(s, backlog)=0 then
+     Result := 0
+   else
+     Result := SOCKET_ERROR;
+@@ -634,12 +634,12 @@
+ 
+ function CloseSocket(s: TSocket): Integer;
+ begin
+-  Result := sockets.CloseSocket(s);
++  Result := 0; { NOP? }
+ end;
+ 
+ function Socket(af, Struc, Protocol: Integer): TSocket;
+ begin
+-  Result := sockets.Socket(af, struc, protocol);
++  Result := sockets.fpsocket(af, struc, protocol);
+ end;
+ 
+ function Select(nfds: Integer; readfds, writefds, exceptfds: PFDSet;