From 39620234ba25a1f23373b4dc5896c018d1fc7f6e Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Fri, 5 Oct 2012 15:07:40 +0000
Subject: [PATCH] sswin32.inc - fixed record align for Delphi WIN64 platform.

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

diff --git a/sswin32.inc b/sswin32.inc
index 9ac7248..b234db8 100644
--- a/sswin32.inc
+++ b/sswin32.inc
@@ -1,5 +1,5 @@
 {==============================================================================|
-| Project : Ararat Synapse                                       | 002.003.000 |
+| Project : Ararat Synapse                                       | 002.003.001 |
 |==============================================================================|
 | Content: Socket Independent Platform Layer - Win32/64 definition include     |
 |==============================================================================|
@@ -242,6 +242,14 @@ For IPv6 support you must have new API!
   {$ELSE}
     {$PACKRECORDS C}
   {$ENDIF}
+{$ELSE}
+  {$IFDEF WIN64}
+    {$ALIGN ON}
+    {$MINENUMSIZE 4}
+  {$ELSE}
+    {$MINENUMSIZE 4}
+    {$ALIGN OFF}
+  {$ENDIF}
 {$ENDIF}
 
 interface