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,start
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news4.google.com!news.glorb.com!news.cs.univ-paris8.fr!ciril.fr!grolier!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: "multithread"
Date: Sun, 03 Apr 2005 00:37:39 +0200
User-Agent: Pan/0.14.2.91 (As She Crawled Across the Table)
Message-ID: <pan.2005.04.02.22.37.39.88996@nospam.a2lf.org>
Newsgroups: comp.lang.ada
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-15
Content-Transfer-Encoding: 8bit
NNTP-Posting-Date: 03 Apr 2005 00:35:41 CEST
NNTP-Posting-Host: 83.112.187.183
X-Trace: 1112481341 news.wanadoo.fr 11687 83.112.187.183:33898
X-Complaints-To: abuse@wanadoo.fr
Xref: g2news1.google.com comp.lang.ada:10236
Date: 2005-04-03T00:35:41+02:00
List-Id: <comp.lang.ada>

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
                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);
                        -- 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.