Re: Tasks reinitializing

[Anh Vo <anhvofrcaus@gmail.com>]

On Sep 17, 2:42 pm, Adam Beneschan <a...@irvine.com> wrote:
> On Sep 17, 11:21 am, Pablo <pablit...@gmail.com> wrote:
>
> > How can I reinitialize a task?
> > Say us, I have two cases:
> > A task defined as
> >    task type Task_type is
> >       entry Start;
> >    end Task_type;
> > so the object defined as
> > Init : Init_type;
>
> You mean Init : Task_Type, I presume??
>
> > and inside a procedure, the task is initialized with
> > accept Start;
>
> > and now:
> > 1) In run time, the task is terminated by aborting process (abort
> > Init) before its end, and in the same session, I need to turn it on
> > again, but now from the beginning.
> > 2) In run time, the task is finished by very end, and in the same
> > session, I need to start it again from beginning.
>
> > Please help me!
>
> You'll need to create a new task object.  If you declare an object
>
>    Init : Task_Type;
>
> and it's declared as a local variable inside a procedure Proc1, the
> only way it's going to get reinitialized is if Proc1 exits and starts
> up again.  If Init is declared in a library package, then it's never
> going to happen.
>
> 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.

Anh Vo