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!news4.google.com!news2.google.com!proxad.net!teaser.fr!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 11:07:29 +0200
User-Agent: Pan/0.14.2.91 (As She Crawled Across the Table)
Message-ID: <pan.2005.04.03.09.07.28.432842@nospam.a2lf.org>
Newsgroups: comp.lang.ada
References: <pan.2005.04.02.22.37.39.88996@nospam.a2lf.org>
 <4898203.3vGOzBuHlK@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 11:05:31 CEST
NNTP-Posting-Host: 83.200.98.117
X-Trace: 1112519131 news.wanadoo.fr 19349 83.200.98.117:33081
X-Complaints-To: abuse@wanadoo.fr
Xref: g2news1.google.com comp.lang.ada:10243
Date: 2005-04-03T11:05:31+02:00
List-Id: <comp.lang.ada>

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.