paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 10:26:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Applied patch by Markus Kaemmerer: Fixes fdRead and fdWrite

Browse Source
This commit is contained in:
sg 2000-07-28 08:43:46 +00:00
parent ba86afd3b0
commit 9c88b8f0cb
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
rtl/win32/sockets.pp
View File

@ -172,25 +172,23 @@ end;
{ mimic the linux fdWrite/fdRead calls for the file/text socket wrapper }
function fdWrite(handle : longint;var bufptr;size : dword) : dword;
var
d : dword;
begin
fdWrite := WinSock.send(handle, bufptr, size, 0);
if fdWrite = SOCKET_ERROR then
begin
if not(Windows.WriteFile(handle,bufptr,size,d,nil)) then
SocketError:=Windows.GetLastError
else
SocketError:=0;
fdWrite:=d;
end;
SocketError := WSAGetLastError;
fdWrite := 0;
end
else
SocketError := 0;
end;
function fdRead(handle : longint;var bufptr;size : dword) : dword;
var
d : dword;
begin
if ioctlsocket(handle,FIONREAD,@d)<>0 then
if ioctlsocket(handle,FIONREAD,@d) = SOCKET_ERROR then
begin
SocketError:=WSAGetLastError;
fdRead:=0;
@ -200,14 +198,16 @@ function fdRead(handle : longint;var bufptr;size : dword) : dword;
begin
if size>d then
size:=d;
if not(Windows.ReadFile(handle,bufptr,size,d,nil)) then
SocketError:=Windows.GetLastError
else
fdRead := WinSock.recv(handle, bufptr, size, 0);
if fdRead = SOCKET_ERROR then
begin
SocketError:= WSAGetLastError;
fdRead := 0;
end else
SocketError:=0;
end
else
SocketError:=0;
fdRead:=d;
end;
@ -224,7 +224,10 @@ finalization
end.
{
$Log$
Revision 1.3 2000-07-28 06:34:53 sg
Revision 1.4 2000-07-28 08:43:46 sg
* Applied patch by Markus Kaemmerer: Fixes fdRead and fdWrite
Revision 1.3 2000/07/28 06:34:53 sg
* Applied patch to "Connect" by Markus Kaemmerer: WinSock.Connect returns
zero when it succeeded, and not vice versa.