Re: Task Discriminants & Arrays

["John G. Volan" <johnvolan@sprintmail.com>]

Jeff Carter wrote:
> 
> As I understand it, task discriminants were intended to eliminate the
> "serial bottleneck" that results from having to call an initialization
> entry to provide information like this to task instances. However, as
> far as I can tell, it simply complicates matters: You have to declare an
> access type designating the task type, make your array type an array of
> these access types, then allocate the tasks at runtime:
                      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

No, not necessarily:

> 
> task type T (Id : Positive) is
>    entry E;
> end T;
> 
> type T_Ptr is access all T;
> 
> type A is array (Some_Range) of T_Ptr;
> 

  T_1 : aliased T (Id => 1);
  T_2 : aliased T (Id => 2);
  T_3 : aliased T (Id => 3);
  ...

  O : constant A :=
    (1 => T_1'Access,
     2 => T_2'Access,
     3 => T_3'Access,
     ... );
     
------------------------------------------------------------------------
Internet.Usenet.Put_Signature 
  (Name => "John G. Volan",  Home_Email => "johnvolan@sprintmail.com",
   Slogan => "Ada95: The World's *FIRST* International-Standard OOPL",
   Disclaimer => "These opinions were never defined, so using them " & 
     "would be erroneous...or is that just nondeterministic now? :-) ");
------------------------------------------------------------------------