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!news3.google.com!news.glorb.com!npeer.de.kpn-eurorings.net!news.uni-stuttgart.de!carbon.eu.sun.com!btnet-feed5!btnet!news.btopenworld.com!not-for-mail
From: Martin Dowie <martin.dowie@btopenworld.com>
Newsgroups: comp.lang.ada
Subject: Re: "multithread"
Date: Sun, 3 Apr 2005 07:12:18 +0000 (UTC)
Organization: BT Openworld
Message-ID: <d2o50h$856$1@titan.btinternet.com>
References: <pan.2005.04.02.22.37.39.88996@nospam.a2lf.org>
NNTP-Posting-Host: host81-154-188-69.range81-154.btcentralplus.com
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-15; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: titan.btinternet.com 1112512338 8358 81.154.188.69 (3 Apr 2005
 07:12:18 GMT)
X-Complaints-To: news-complaints@lists.btinternet.com
NNTP-Posting-Date: Sun, 3 Apr 2005 07:12:18 +0000 (UTC)
In-Reply-To: <pan.2005.04.02.22.37.39.88996@nospam.a2lf.org>
X-Accept-Language: en-us, en
User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206)
Xref: g2news1.google.com comp.lang.ada:10238
Date: 2005-04-03T07:12:18+00:00
List-Id: <comp.lang.ada>

Jean-Baptiste CAMPESATO wrote:
> Hello,
> I want to create a function wich can called "several times at the same 
> time", MultiThread.
> I found task and i tested :
> In ADS :
>         -- Tache pour le traitement du client
>         task Traitement is
>                 entry Go(Client:Socket_Type);
>         end Traitement;
> -----------------------------------------------
> In ADB :
>         task body Traitement is
>         begin

loop

>                 accept Go(Client:Socket_Type) do
>                         put_line("Tache.");
>                         Close_Socket(Client);
>                 end Go;

end loop;

>         end Traitement;
> ------------------------------------------------
> In the loop wich call Traitement:
>                 loop
>                         -- On accepte le client
>                         Accept_Socket (Server, Client, Address);
>                         -- Et on cr�� un thread pour lui
>                         Traitement.Go(Client);
>                 end loop;
> 
> 
> And the first time i call the task it's Ok, but at the second time i've a
> "TASKING_ERROR".
> 
> Somebody can help me ?
> 
> Thanks.

For a start.

Cheers

-- Martin