Re: Task Discriminants & Arrays

[Jeff Carter <carter@spam.innocon.com>]

John G. Volan wrote:
> 
> 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,
>      ... );
> 

An excellent choice when you have 1E6 of these guys ...
-- 
Jeff Carter  PGP:1024/440FBE21
Auntie-spam reply to; try ( carter @ innocon . com )
"Now go away, or I shall taunt you a second time."
Monty Python & the Holy Grail