Re: DYNAMIC ADA TASK CREATION?

[Craig Carey <research@ijs.co.nz>]

On Wed, 18 Jun 2003 21:15:02 +0200, "avram" <avram79@tlen.pl> wrote:
> Than[s] very much. I have one more question.
>What about task memory deallocation. How to wait untill task ends?

There was a solution posted in comp.lang.ada which is replicated:


On 11 May 2003 17:35:18 +0200, in comp.lang.ada you Pascal Obry wrote:
>[...] The delay could still not be enough. What I usually do
>is loop until 'Terminated is true.
...
>    for K in 1 .. 20_000 loop
>       X := new A.Tt;    --  [Create a new task]
>       N := N + 1;
>       X.The_End;
>
>       loop
>          exit when X'Terminated;
>          delay 1.0E-30;
>       end loop;
>
>       Free (X);
>    end loop;     
>

The memory recovery can be 0% efficient, or 100% efficient depending
on how the test is done (at least, for the ObjectAda and GNAT
compilers).

Craig Carey