Re: "multithread"

[Martin Krischik <krischik@users.sourceforge.net>]

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
-- 
mailto://krischik@users.sourceforge.net
Ada programming at: http://ada.krischik.com