paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 05:08:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* add boolean that can be changed to avoid shutting down winsock. This can trouble other DLLs. Mantis #22597

Browse Source 
git-svn-id: trunk@24446 -
This commit is contained in:
marco 2013-05-05 08:42:08 +00:00
parent 7cfc737866
commit c9dce154fd
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win/sockets.pp
View File

@ -53,6 +53,10 @@ const
{$i socketsh.inc}
{$i fpwinsockh.inc}
// finalizing Winsock2 stack might upset other DLLS. Mantis #22597
var
NoWinsockCleanupCall : Boolean = false;
Implementation
{ Include filerec and textrec structures }
@ -276,5 +280,6 @@ var
initialization
WSAStartUp(WINSOCK_VERSION,wsadata);
finalization
WSACleanUp;
If Not NoWinsockCleanupCall Then
WSACleanUp;
end.