Re: "multithread"

[Jean-Baptiste CAMPESATO <camje_lemon@nospam.a2lf.org>]

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.