From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,91c58472289c1ab5
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news2.google.com!postnews.google.com!u16g2000pru.googlegroups.com!not-for-mail
From: Adam Beneschan <adam@irvine.com>
Newsgroups: comp.lang.ada
Subject: Re: Tasks reinitializing
Date: Thu, 17 Sep 2009 14:42:19 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: 
 <77eaa11a-79c8-43ff-95d5-0e707a445369@u16g2000pru.googlegroups.com>
References: 
 <0bf2270c-6998-41f1-9895-b545026f312e@o21g2000vbl.googlegroups.com>
NNTP-Posting-Host: 66.126.103.122
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1253223739 4471 127.0.0.1 (17 Sep 2009 21:42:19
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Thu, 17 Sep 2009 21:42:19 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: u16g2000pru.googlegroups.com; posting-host=66.126.103.122;
	posting-account=duW0ogkAAABjRdnxgLGXDfna0Gc6XqmQ
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; WOW64;
	SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 3.5.21022; .NET CLR
	3.5.30729; .NET CLR 3.0.30618),gzip(gfe),gzip(gfe)
Xref: g2news2.google.com comp.lang.ada:8373
Date: 2009-09-17T14:42:19-07:00
List-Id: <comp.lang.ada>

On Sep 17, 11:21=A0am, Pablo <pablit...@gmail.com> wrote:
> How can I reinitialize a task?
> Say us, I have two cases:
> A task defined as
> =A0 =A0task type Task_type is
> =A0 =A0 =A0 entry Start;
> =A0 =A0end 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 :=3D 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 :=3D new Task_Type;

at any point, and it will start a new task.  I think that's probably
what you want.

                                       -- Adam