Hello!

I have some strange memory problem with a TThread-Descendant. For debugging I created a little test-app with a button on it and the following OnClick-Handler:

procedure TForm1.Button1Click(Sender: TObject);
begin
   TThreadDummy.Create;
end;

The Thread looks like that:

type
   TThreadDummy=class(TThread)
   protected
     procedure Execute; override;
   public
     constructor Create;
   end;
constructor TThreadDummy.Create;
begin
   inherited create(true);
   FreeOnTerminate := true;
   Resume;
end;
procedure TThreadDummy.Execute;
begin
   //do nothing - just exit!
end;

The program is compiled using FPC 2.2.0, Lazarus 0.9.24-0 precompiled from Lazarus Page and Debian as OS

Every time I press the button, the program uses 8192 Bytes of memory more (according to the ps-command). I've another app with a big TThread descendant, which eats up the same 8192 on every TThreadDescendant.Create...

Anyone an idea what I might have done wrong?

regards
Lukas

OK - seems to be an fpc-bug - and the good news: Already fixed in current 2.2.1.

In fpc 2.2.0 the TThread.FreeOnTerminate doesn't work as expected

regards

Lukas