From c7bb56ed0f22fd9c121b31905ec089320b12fd41 Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Fri, 22 Jan 2010 22:48:09 +0000
Subject: [PATCH] Fixed TSocket size on WIN64.

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@115 7c85be65-684b-0410-a082-b2ed4fbef004
---
 sswin32.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/sswin32.pas b/sswin32.pas
index 3070fb4..d918762 100644
--- a/sswin32.pas
+++ b/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        |
 |==============================================================================|
@@ -258,7 +258,11 @@ type
   u_long = Longint;
   pu_long = ^u_long;
   pu_short = ^u_short;
+{$IFDEF FPC}
+  TSocket = ptruint;
+{$ELSE}
   TSocket = u_int;
+{$ENDIF}
   TAddrFamily = integer;
 
   TMemory = pointer;