Преглед изворни кода

* fix memleak in thread. Fixes issue #41567

Michaël Van Canneyt пре 1 недеља
родитељ
комит
e8ffed0b37
1 измењених фајлова са 1 додато и 0 уклоњено
  1. 1 0
      packages/fcl-web/src/websocket/fpwebsocketclient.pp

+ 1 - 0
packages/fcl-web/src/websocket/fpwebsocketclient.pp

@@ -721,6 +721,7 @@ constructor TWSThreadMessagePump.TMessageDriverThread.Create(aPump: TWSThreadMes
 begin
   FPump:=aPump;
   OnTerminate:=aTerminate;
+  FreeOnTerminate:=True;
   Inherited Create(False);
 end;