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
This commit is contained in:
parent
b37e66f6b7
commit
39620234ba
10
sswin32.inc
10
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 |
|
| Content: Socket Independent Platform Layer - Win32/64 definition include |
|
||||||
|==============================================================================|
|
|==============================================================================|
|
||||||
@ -242,6 +242,14 @@ For IPv6 support you must have new API!
|
|||||||
{$ELSE}
|
{$ELSE}
|
||||||
{$PACKRECORDS C}
|
{$PACKRECORDS C}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
{$ELSE}
|
||||||
|
{$IFDEF WIN64}
|
||||||
|
{$ALIGN ON}
|
||||||
|
{$MINENUMSIZE 4}
|
||||||
|
{$ELSE}
|
||||||
|
{$MINENUMSIZE 4}
|
||||||
|
{$ALIGN OFF}
|
||||||
|
{$ENDIF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
Loading…
x
Reference in New Issue
Block a user