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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,3a435580b33a60dd,start
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!postnews.google.com!o13g2000cwo.googlegroups.com!not-for-mail
From: "mferracini" <maurizio.ferracini@gmail.com>
Newsgroups: comp.lang.ada
Subject: help in task, what is wrong?
Date: 24 Apr 2005 06:02:15 -0700
Organization: http://groups.google.com
Message-ID: <1114347735.376048.213420@o13g2000cwo.googlegroups.com>
NNTP-Posting-Host: 82.50.88.215
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
X-Trace: posting.google.com 1114347739 20654 127.0.0.1 (24 Apr 2005 13:02:19
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sun, 24 Apr 2005 13:02:19 +0000 (UTC)
User-Agent: G2/0.2
Complaints-To: groups-abuse@google.com
Injection-Info: o13g2000cwo.googlegroups.com; posting-host=82.50.88.215;
   posting-account=OjhBzA0AAAC7IWpsLrvIpzjmXdzmh93y
Xref: g2news1.google.com comp.lang.ada:10666
Date: 2005-04-24T06:02:15-07:00
List-Id: <comp.lang.ada>

sorry for the italian source code:

----
with Ada.Text_Io;

procedure Interazione is --processo genitore


   task type Generico is
      entry Init;
      entry Esegui;
   end Generico;

type Ptr_Generico is access Generico;

   task type Schedulatore is
      entry Addtask( my_task : in ptr_Generico);
      entry Parti;
   end Schedulatore;


   task body Generico is
      N2 : Integer;
   begin
      accept Init do
         Ada.Text_Io.Put_Line("Init del task " &Integer'Image(N2));
         end Init;
      loop
         accept Esegui do
         Ada.Text_Io.Put_Line("-Work task " &Integer'Image(N2));
         delay(0.2);
         --exit; --misteri
         end Esegui;
      end loop;
   end Generico;

   task body Schedulatore is
     begin
      accept Parti;
        accept Addtask( My_Task : in ptr_Generico) do
           My_Task.Esegui;
           end addtask;
      null;
   end;

task_x : Ptr_Generico;

  begin --corpo genitore
     Schedulatore.Parti;
   Task_X:=new Generico;
   Task_x.Init;
   schedulatore.Addtask(Task_X);
end Interazione;

---
 schedulatore.Addtask(Task_X); give me this error:
invalid use of subtype mark.

how i can pass the task pointer? thanks