paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 03:29:18 +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 Pierre Muller
parent 1ac8d5d221
commit eaf4cffad8
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;