Re: Tasks reinitializing

[sjw <simon.j.wright@mac.com>]

On Sep 17, 11:39 pm, Anh Vo <anhvofrc...@gmail.com> wrote:
> On Sep 17, 2:42 pm, Adam Beneschan <a...@irvine.com> wrote:

> > You may want to try using an access:
>
> >    type Task_Type_Acc is access Task_Type;
>
> >    Init : Task_Type_Acc := new Task_Type;
>
> > When you allocate a new Task_Type with "new", that will start a task
> > up.  If, after the task finishes, you want to start a new one, you can
> > assign
>
> >    Init := new Task_Type;
>
> > at any point, and it will start a new task.  I think that's probably
> > what you want.
>
> Just to make it complete, I would recommend deallocating memory,
> before starting a new task, to prevent memory leaks.

Yes, but you need to be careful here.

If you say

   abort Init.all;
   Free (Init);

then (at least with GNAT, at least on VxWorks, unless they've changed
recently) you may free the task stack but not the task control block.

   abort Init.all;
   while not Init.all'Terminated loop
      delay 0.001;
   end loop;
   Free (Init);

You might want to figure out a way to delegate the loop and the free
to a lower-priority task.