--- 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;