pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Fixed TSocket size on WIN64.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@115 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2010-01-22 22:48:09 +00:00
parent 5897e87cf7
commit c7bb56ed0f
1 changed files with 5 additions and 1 deletions

6
sswin32.pas

@ -1,5 +1,5 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 002.002.002 | | Project : Ararat Synapse | 002.002.003 |
|==============================================================================| |==============================================================================|
| Content: Socket Independent Platform Layer - Win32 definition include | | Content: Socket Independent Platform Layer - Win32 definition include |
|==============================================================================| |==============================================================================|
@ -258,7 +258,11 @@ type
u_long = Longint; u_long = Longint;
pu_long = ^u_long; pu_long = ^u_long;
pu_short = ^u_short; pu_short = ^u_short;
{$IFDEF FPC}
TSocket = ptruint;
{$ELSE}
TSocket = u_int; TSocket = u_int;
{$ENDIF}
TAddrFamily = integer; TAddrFamily = integer;
TMemory = pointer; TMemory = pointer;