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: 103376,bf6902412865b202
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news1.google.com!proxad.net!freenix!news.wanadoo.fr!news.wanadoo.fr!not-for-mail
From: Jean-Baptiste CAMPESATO <camje_lemon@nospam.a2lf.org>
Organization: a2lf - Association pour le Logiciel Libre Francophone
Subject: Re: "multithread"
Date: Sun, 03 Apr 2005 14:14:02 +0200
User-Agent: Pan/0.14.2.91 (As She Crawled Across the Table)
Message-Id: <pan.2005.04.03.12.14.01.422690@nospam.a2lf.org>
Newsgroups: comp.lang.ada
References: <pan.2005.04.02.22.37.39.88996@nospam.a2lf.org>
 <4898203.3vGOzBuHlK@linux1.krischik.com>
 <pan.2005.04.03.09.07.28.432842@nospam.a2lf.org>
 <1504092.Iq66gXWrKJ@linux1.krischik.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-15
Content-Transfer-Encoding: 8bit
NNTP-Posting-Date: 03 Apr 2005 14:12:04 CEST
NNTP-Posting-Host: 83.200.98.117
X-Trace: 1112530324 news.wanadoo.fr 25056 83.200.98.117:37497
X-Complaints-To: abuse@wanadoo.fr
Xref: g2news1.google.com comp.lang.ada:10246
Date: 2005-04-03T14:12:04+02:00
List-Id: <comp.lang.ada>

Le Sun, 03 Apr 2005 13:13:56 +0200, Martin Krischik a �crit�:

> Jean-Baptiste CAMPESATO wrote:
> 
>> Le Sun, 03 Apr 2005 10:40:10 +0200, Martin Krischik a �crit�:
>> 
>>> Jean-Baptiste CAMPESATO wrote:
>>> 
>>>> Hello,
>>>> I want to create a function wich can called "several times at the same
>>>> time", MultiThread.
>>> 
>>> Apart from the tips you allready got: If you want Go to be called more
>>> then once "at the same time" you will need a "task type" instead of a
>>> simple task.
>>> 
>>> 
>>> 
>>>> I found task and i tested :
>>>> In ADS :
>>>>         -- Tache pour le traitement du client
>>>>         task Traitement is
>>>>                 entry Go(Client:Socket_Type);
>>>>         end Traitement;
>>> 
>>>          task type Traitement is
>>>                  entry Go(Client:Socket_Type);
>>>          end Traitement;
>>> 
>>>        type Traitement_Access is access Traitement ;
>>> 
>>>> -----------------------------------------------
>>>> In ADB :
>>>>         task body Traitement is
>>>>         begin
>>>>                 accept Go(Client:Socket_Type) do
>>>>                         put_line("Tache.");
>>>>                         Close_Socket(Client);
>>>>                 end Go;
>>>>         end Traitement;
>>>> ------------------------------------------------
>>>> In the loop wich call Traitement:
>>>>                 loop
>>>>                         -- On accepte le client
>>>>                         Accept_Socket (Server, Client, Address);
>>> 
>>> Inside the loop you would need to create a new task from the task type:
>>> 
>>>      declare
>>>           New_Traitement  : Traitement_Access := new Traitement
>>>      begin
>>>           -- Et on cr�� un thread pour lui
>>>           New_Traitement.Go(Client);
>>>     end;
>>>   
>>>>                 end loop;
>>> 
>>> And now it get's tricky - because this is the one point where garbage
>>> collection is really missing. Garbage collection is only an optional
>>> feature and standart Ada compilers haven't got it.
>>> 
>>> But you never know when the task is finished so you never know when to
>>> free the memory allocated for the task.
>>> 
>>> Martin
>> 
>> Ok thanks.
>> But the answer of Jim Rogers works for me :/.
>> It's strange.
> 
> Prehaps "Go" executes so fast that you never notice the difference ;-).
> 
> Martin

hello.
I wrote a delay for 5seconds, and executed 3 tasks before 5secons without
error.
Hmm, i will retest your task type to see differences. 
Thanks.