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

* Patch from Stephano to fix wince compilation

Browse Source 
git-svn-id: trunk@30661 -
This commit is contained in:
michael 2015-04-19 12:09:51 +00:00
parent 623ea066c7
commit 75f4971084
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/libenet/src/enetplatform.pp
View File

@ -34,14 +34,14 @@ unit enetplatform;
interface interface
uses enettypes, // used only for size_t uses enettypes, // used only for size_t
{$IFDEF MSWINDOWS} WinSock2 {$ELSE} BaseUnix, Sockets {$ENDIF}; {$IFDEF WINDOWS} WinSock2 {$ELSE} BaseUnix, Sockets {$ENDIF};
const const
ENET_SOCKET_NULL = {$IFDEF MSWINDOWS} INVALID_SOCKET; {$ELSE} -1; {$ENDIF} ENET_SOCKET_NULL = {$IFDEF WINDOWS} INVALID_SOCKET; {$ELSE} -1; {$ENDIF}
// ENET_BUFFER_MAXIMUM = MSG_MAXIOVLEN; //is it forgotten in win32.h ? // ENET_BUFFER_MAXIMUM = MSG_MAXIOVLEN; //is it forgotten in win32.h ?
type type
ENetSocket = {$IFDEF MSWINDOWS} TSocket {$ELSE} enet_int {$ENDIF}; ENetSocket = {$IFDEF WINDOWS} TSocket {$ELSE} enet_int {$ENDIF};
ENetSocketSet = TFDSet; ENetSocketSet = TFDSet;
pENetSocketSet = ^ENetSocketSet; pENetSocketSet = ^ENetSocketSet;
@ -50,7 +50,7 @@ type
pENetBuffer = ^ENetBuffer; pENetBuffer = ^ENetBuffer;
ENetBuffer = record ENetBuffer = record
{$IFDEF MSWINDOWS} {$IFDEF WINDOWS}
dataLength : enet_size_t; dataLength : enet_size_t;
data : Pointer; data : Pointer;
{$ELSE} {$ELSE}
@ -90,17 +90,17 @@ function ENET_NET_TO_HOST_32( const value: LongWord ): LongWord; inline;
end; end;
procedure ENET_SOCKETSET_EMPTY( var sockset: ENetSocketSet ); inline; procedure ENET_SOCKETSET_EMPTY( var sockset: ENetSocketSet ); inline;
begin {$IFNDEF MSWINDOWS}fpFD_ZERO{$ELSE}FD_ZERO{$ENDIF}( sockset ); begin {$IFNDEF WINDOWS}fpFD_ZERO{$ELSE}FD_ZERO{$ENDIF}( sockset );
end; end;
procedure ENET_SOCKETSET_ADD( var sockset: ENetSocketSet; socket: ENetSocket ); inline; procedure ENET_SOCKETSET_ADD( var sockset: ENetSocketSet; socket: ENetSocket ); inline;
begin {$IFNDEF MSWINDOWS}fpFD_SET{$ELSE}FD_SET{$ENDIF}( socket, sockset ); begin {$IFNDEF WINDOWS}fpFD_SET{$ELSE}FD_SET{$ENDIF}( socket, sockset );
end; end;
procedure ENET_SOCKETSET_REMOVE( var sockset: ENetSocketSet; socket: ENetSocket ); inline; procedure ENET_SOCKETSET_REMOVE( var sockset: ENetSocketSet; socket: ENetSocket ); inline;
begin {$IFNDEF MSWINDOWS}fpFD_CLR{$ELSE}FD_CLR{$ENDIF}( socket, sockset ); begin {$IFNDEF WINDOWS}fpFD_CLR{$ELSE}FD_CLR{$ENDIF}( socket, sockset );
end; end;
function ENET_SOCKETSET_CHECK( var sockset: ENetSocketSet; socket: ENetSocket ): Boolean; inline; function ENET_SOCKETSET_CHECK( var sockset: ENetSocketSet; socket: ENetSocket ): Boolean; inline;
begin Result := {$IFNDEF MSWINDOWS} fpFD_ISSET( socket, sockset ) <> 0 begin Result := {$IFNDEF WINDOWS} fpFD_ISSET( socket, sockset ) <> 0
{$ELSE} FD_ISSET( socket, sockset ) {$ENDIF}; {$ELSE} FD_ISSET( socket, sockset ) {$ENDIF};
end; end;