Memory Leak When Terminate(0) a Runing Thread

[yslmyr]

The sample app_22_TerminationTest also has this problem, when debugging in the TOTPWorkItem.TerminateTask the RefCount of owiTask is 4, even fix this,release owiTask also has TOmniEnvironment is`nt release.
MemoryManager_EventLog.txt

[Uefi1]

Hail, Works as designed #200

[Uefi1]

The sample app_22_TerminationTest also has this problem, when debugging in the TOTPWorkItem.TerminateTask the RefCount of owiTask is 4, even fix this,release owiTask also has TOmniEnvironment is`nt release. MemoryManager_EventLog.txt

Hi, I managed to solve the problem by simply adding Application.ProcessMessages 1 time after all threads are executed

[TommiPrami]

Hello, Seems to me, that there should not be need to call rhe Application.ProcessMessages. Either there is a bug in OTL, or user code should have some other structure etc. Hope Primož (hope guessed acsenr right :) ) checks that out this.

…

-tee-

On Mon, 9 Feb 2026, 6.53 Uefi1, ***@***.***> wrote: *Uefi1* left a comment (gabr42/OmniThreadLibrary#197) <#197 (comment)> The sample app_22_TerminationTest also has this problem, when debugging in the *TOTPWorkItem.TerminateTask* the RefCount of *owiTask* is 4, even fix this,release owiTask also has *TOmniEnvironment* is`nt release. MemoryManager_EventLog.txt <https://github.com/gabr42/OmniThreadLibrary/files/15282846/MemoryManager_EventLog.txt> Hi, I managed to solve the problem by simply adding Application.ProcessMessages — Reply to this email directly, view it on GitHub <#197 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AA7E2H66MFLZQ2PJVWSEBKL4LAHC7AVCNFSM6AAAAACUN27DDKVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZTQNRZGI4DIMBTG4> . You are receiving this because you are subscribed to this thread.Message ID: ***@***.***>

[Uefi1]

Hello,

Seems to me, that there should not be need to call rhe
Application.ProcessMessages.

Either there is a bug in OTL, or user code should have some other structure
etc.

Hope Primož (hope guessed acsenr right :) ) checks that out this.
…

Hello, please try this code to make sure:

program Project2;

{$APPTYPE CONSOLE}

uses
  System.SysUtils, System.Classes, System.SyncObjs, Vcl.Forms, otlparallel;

var
test:integer=25000000;

var
Event : TCountdownEvent;
begin
Event := TCountdownEvent.Create(test+1);
Parallel.For(0, test).NoWait.NumTasks(TTHREAD.ProcessorCount-1).Execute(
procedure(idx: Integer)
begin
Event.Signal;
end);
Event.WaitFor(INFINITE);
Event.Free;
Writeln('Before ApplicationProcessMessages: ' + FormatFloat('0.00', GetHeapStatus.TotalAllocated / 1048576) + ' MB');
Application.ProcessMessages;
Writeln('After ApplicationProcessMessages: ' + FormatFloat('0.00', GetHeapStatus.TotalAllocated / 1048576) + ' MB');
readln;
end.

[gabr42]

http://www.omnithreadlibrary.com/book/chap05.html#introotl-messagelooprequired-console

[Uefi1]

http://www.omnithreadlibrary.com/book/chap05.html#introotl-messagelooprequired-console

It's better and easier to make Application.ProccessMessages !