diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-06 11:58:45 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-06 11:58:45 +0000 |
| commit | 7d08c82915330a07b8d07be5edf5bc666d7dde3a (patch) | |
| tree | 0dfc820ae8a67f32a1e27d0e3a04e933bbd1bb8d /packages/winunits-base | |
| parent | 00eb27bb2ea572415aab148298c8c8f066c3731b (diff) | |
| download | fpc-7d08c82915330a07b8d07be5edf5bc666d7dde3a.tar.gz | |
* packrecords as per mantis 15009 + checking the packed records.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14081 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/winunits-base')
| -rw-r--r-- | packages/winunits-base/src/wininet.pp | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/packages/winunits-base/src/wininet.pp b/packages/winunits-base/src/wininet.pp index bf993485f8..f9e9ca92de 100644 --- a/packages/winunits-base/src/wininet.pp +++ b/packages/winunits-base/src/wininet.pp @@ -20,6 +20,12 @@ interface Uses Windows; +{$ifdef win64} + {$packrecords 8} +{$else} + {$packrecords 4} +{$endif} + // // Internet APIs // @@ -1389,7 +1395,7 @@ Const Type - INTERNET_ASYNC_RESULT = packed record + INTERNET_ASYNC_RESULT = record dwResult : DWORD_PTR; dwError : DWORD; end; @@ -1401,7 +1407,7 @@ Type PINTERNETASYNCRESULT = PINTERNET_ASYNC_RESULT; { INTERNET_DIAGNOSTIC_SOCKET_INFO - info about the socket in use } - INTERNET_DIAGNOSTIC_SOCKET_INFO =packed record + INTERNET_DIAGNOSTIC_SOCKET_INFO = record Socket : DWORD_PTR; SourcePort : DWORD; DestPort : DWORD; @@ -1411,7 +1417,7 @@ Type LPINTERNET_DIAGNOSTIC_SOCKET_INFO = ^INTERNET_DIAGNOSTIC_SOCKET_INFO; PINTERNET_DIAGNOSTIC_SOCKET_INFO = LPINTERNET_DIAGNOSTIC_SOCKET_INFO; - INTERNET_PREFETCH_STATUS = packed record + INTERNET_PREFETCH_STATUS = record dwStatus, dwSize : DWord; end; @@ -1422,7 +1428,7 @@ Type PINTERNETPREFETCHSTATUS= PINTERNET_PREFETCH_STATUS; LPINTERNETPREFETCHSTATUS= PINTERNET_PREFETCH_STATUS; - INTERNET_PROXY_INFO = packed record + INTERNET_PROXY_INFO = record dwAccessType : DWORD; lpszProxy : LPCTSTR; lpszProxyBypass : LPCTSTR; @@ -1904,7 +1910,7 @@ Type PFN_AUTH_NOTIFY = function (dwContext:DWORD_PTR; dwReturn:DWORD; lpreserved:LPVOID):DWORD;stdcall; InternetAuthNotifyCallback = PFN_AUTH_NOTIFY; - _INTERNET_CACHE_ENTRY_INFOA = packed record + _INTERNET_CACHE_ENTRY_INFOA = record dwStructSize : DWORD; lpszSourceUrlName : LPSTR; lpszLocalFileName : LPSTR; @@ -1930,7 +1936,7 @@ Type LPINTERNET_CACHE_ENTRY_INFOA = PINTERNET_CACHE_ENTRY_INFOA; PLPINTERNET_CACHE_ENTRY_INFOA = ^LPINTERNET_CACHE_ENTRY_INFOA; - _INTERNET_CACHE_ENTRY_INFOW = packed record + _INTERNET_CACHE_ENTRY_INFOW = record dwStructSize : DWORD; lpszSourceUrlName : LPWSTR; lpszLocalFileName : LPWSTR; @@ -2047,7 +2053,7 @@ Type PAutoProxyHelperVtbl = ^AutoProxyHelperVtbl; - AutoProxyHelperVtbl = packed record + AutoProxyHelperVtbl = record IsResolvable : TIsResolvable; GetIPAddress : TGetIPAddress; ResolveHostName : TResolveHostName; |