[fpc-pascal] Use sleep in thread

Luca Olivetti luca at ventoso.org
Mon Mar 2 07:13:07 CET 2015

El 01/03/15 a les 22:34, fredvs ha escrit:
> Ooops, in previous mail you should read (sorry)=>
>>> there are dire warnings that  TThread.Create()  shouldn't be overridden.
>>> Should this be in the documentation if it's a significant issue?
>> It's the first time I hear it, I've been doing it forever, just like in
>> the example in the same wiki page.
> Hum... same for me here... ;-(
> Do you think it could explain memory leak that i cannot solve even using
> this ? =>
>   constructor TMyThread.Create(CreateSuspended: boolean;
>   const StackSize: SizeUInt);
>  begin
>   inherited Create(CreateSuspended, StackSize);
>   FreeOnTerminate := TRUE ;  => (changed) this not working ?
> ...
> end;  

I think it could create a memory leak if the thread terminates before
the assignment of FreeOnTerminate.
Unlikely (so I'd look somewhere else) but possible, so reverse the
sequence, i.e.

  inherited Create

or create the thread suspended then start it as the last instruction in
the constructor.
Oh, and be careful if in the section you marked as "..." you do
something that the thread needs: it is possible that the thread runs
*before* the "..." section. Again, create the thread last or create it
suspended and start it at the end of the creator.


More information about the fpc-pascal mailing list