Re: my program

["Martin Dowie" <martin.dowie@btopenworld.com>]

"Kasia Krysiak" <kasiool@o2.pl> wrote in message
news:bspfvv$mpo$1@atlantis.news.tpi.pl...
> I'm start to lern ada , and i have some problems...
>  this is my new program, and i have a question how to inicialize
> Task1:Male(Id=>1); Task2:Male(Id=>2); task3:male(id=>3); (last 3 lines of
> code in loop? becouse i should to have the number od male dymaic. I
tryided
> to do this in arry but i couldnt inlicjalize this id's  sorry 4 my english
> it isnt good I KNOW!!! - but I'm trying :)
> task type Male(Id: integer);
[snip]
> Task1:Male(Id=>1);
>
> Task2:Male(Id=>2);
>
> task3:male(id=>3);

You can do this at elaboration:

package body Foo is
   Task_Id : Natural := 0;
   function Get_Id return Positive is
   begin
      Task_Id := Task_Id + 1;
      return Task_Id;
   end Get_Id;
   task type Bar (Id : Natural := Get_Id);
   task body Bar is ... end Bar;
   Tasks : array (1 .. 3) of Bar;
end Foo;

The Lawyers can correct me if I'm wrong but elaboration is
performed sequentially and therefore the Id's are guaranteed
to be unique.