Attachment 105513 Details for Bug 146001 – net-p2p-transmisson-remote-gui-ssfpc.patch

[patch] net-p2p-transmisson-remote-gui-ssfpc.patch

net-p2p-transmisson-remote-gui-ssfpc.patch (text/plain), 3.86 KB, created by Christopher Key on 2010-04-23 20:20:02 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Christopher Key

Created: 2010-04-23 20:20:02 UTC

Size: 3.86 KB

patch

obsolete

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

Actions: View | Diff

Attachments on bug 146001: 105500 | 105501 | 105502 | 105503 | 105504 | 105505 | 105506 | 105507 | 105508 | 105509 | 105510 | 105511 | 105512 | 105513