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

httpserver: make sure that socket is freed even if StartServerSocket raised an exception

Browse Source
This commit is contained in:
Ondrej Pokorny 2023-04-29 13:40:27 +02:00 committed by Michael Van Canneyt
parent e74d89ce62
commit 262904b8c1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-web/src/base/fphttpserver.pp
View File

@ -1464,8 +1464,11 @@ begin
SetupConnectionHandler;
CreateServerSocket;
SetupSocket;
StartServerSocket;
FreeServerSocket;
try
StartServerSocket;
finally
FreeServerSocket;
end
end
else
StopServerSocket;