paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 11:52:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* GetAcceptExSockaddrs corrected. Double indirection.

Browse Source
This commit is contained in:
marco 2004-09-18 16:19:18 +00:00
parent d3b5672fea
commit 8305a99541
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win32/winsock.pp
View File

@ -807,8 +807,8 @@ IOW, there _must_ be 3 versions then: var/const, pchar and pointer}
procedure GetAcceptExSockaddrs(lpOutputBuffer:Pointer; procedure GetAcceptExSockaddrs(lpOutputBuffer:Pointer;
dwReceiveDataLength,dwLocalAddressLength,dwRemoteAddressLength:dword; dwReceiveDataLength,dwLocalAddressLength,dwRemoteAddressLength:dword;
var LocalSockaddr:TSockAddr; var LocalSockaddrLength:tOS_INT; var LocalSockaddr:PSockAddr; var LocalSockaddrLength:tOS_INT;
var RemoteSockaddr:TSockAddr; var RemoteSockaddrLength:tOS_INT);stdcall; var RemoteSockaddr:PSockAddr; var RemoteSockaddrLength:tOS_INT);stdcall;
external winsockdll name 'GetAcceptExSockaddrs'; external winsockdll name 'GetAcceptExSockaddrs';
function WSAMakeSyncReply(Buflen,Error:Word):dword; function WSAMakeSyncReply(Buflen,Error:Word):dword;
@ -911,7 +911,10 @@ IOW, there _must_ be 3 versions then: var/const, pchar and pointer}
end. end.
{ {
$Log$ $Log$
Revision 1.14 2004-06-14 08:27:06 michael Revision 1.15 2004-09-18 16:19:18 marco
* GetAcceptExSockaddrs corrected. Double indirection.
Revision 1.14 2004/06/14 08:27:06 michael
+ Fix for bug 3166 by Michalis Kamburelis + Fix for bug 3166 by Michalis Kamburelis
Revision 1.13 2004/06/06 04:01:45 marco Revision 1.13 2004/06/06 04:01:45 marco