paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 09:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

*wince : build broken

Browse Source 
git-svn-id: trunk@4948 -
This commit is contained in:
oro06 2006-10-17 08:32:12 +00:00
parent b84fc6e881
commit 442560b46d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/wince/sockets.pp
View File

@ -287,7 +287,6 @@ begin
SocketPair:=fpsocketpair(domain,sockettype,protocol,@pair); SocketPair:=fpsocketpair(domain,sockettype,protocol,@pair);
end; end;
{$ifdef unix}
{ mimic the linux fpWrite/fpRead calls for the file/text socket wrapper } { mimic the linux fpWrite/fpRead calls for the file/text socket wrapper }
function fpWrite(handle : longint;Const bufptr;size : dword) : dword; function fpWrite(handle : longint;Const bufptr;size : dword) : dword;
begin begin
@ -327,7 +326,7 @@ function fpRead(handle : longint;var bufptr;size : dword) : dword;
else else
SocketError:=0; SocketError:=0;
end; end;
{$else}
{ mimic the linux fdWrite/fdRead calls for the file/text socket wrapper } { mimic the linux fdWrite/fdRead calls for the file/text socket wrapper }
function fdWrite(handle : longint;Const bufptr;size : dword) : dword; function fdWrite(handle : longint;Const bufptr;size : dword) : dword;
begin begin
@ -367,7 +366,7 @@ function fdRead(handle : longint;var bufptr;size : dword) : dword;
else else
SocketError:=0; SocketError:=0;
end; end;
{$endif}
{$i sockets.inc} {$i sockets.inc}