mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Refactoring

Browse source
This commit is contained in:
Alexander Koblov 2019-09-15 16:55:52 +00:00
commit 5841a032b2
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/rpc/uservice.pas
View file

@ -136,6 +136,7 @@ var
ARequest : TMemoryStream;
begin
InterLockedIncrement(FOwner.ClientCount);
while not Terminated do
begin
try
@ -152,17 +153,19 @@ begin
on E: Exception do
begin
Terminate;
DCDebug(E.Message);
end;
end;
end;
InterLockedDecrement(FOwner.ClientCount);
end;
destructor TClientThread.Destroy;
begin
FTransport.Free;
inherited Destroy;
InterLockedDecrement(FOwner.ClientCount);
DCDebug('TClientThread.Destroy ', IntToStr(FOwner.ClientCount));
DCDebug('TClientThread.Destroy');
end;
end.