paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 10:10:09 +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; SetupConnectionHandler;
CreateServerSocket; CreateServerSocket;
SetupSocket; SetupSocket;
StartServerSocket; try
FreeServerSocket; StartServerSocket;
finally
FreeServerSocket;
end
end end
else else
StopServerSocket; StopServerSocket;