Re: Task discriminants

From: "David C. Hoos" <david.c.hoos.sr@ada95.com>
To: "Dave Levy" <dlevy@mail.usyd.edu.au>
Cc: "comp.lang.ada@ada.eu.org" <comp.lang.ada@ada-france.org>
Subject: Re: Task discriminants
Date: Thu, 20 May 2004 12:17:32 -0500
Date: 2004-05-20T12:17:32-05:00	[thread overview]
Message-ID: <mailman.1.1085073466.401.comp.lang.ada@ada-france.org> (raw)
In-Reply-To: 40ACC50E.9040406@mail.usyd.edu.au

How about:

The_Tasks: array (1 .. 3) of A_Task =
 (A_Task (1),
  A_Task (2),
  A_Task (3)
 );
----- Original Message ----- 
From: "Dave Levy" <dlevy@mail.usyd.edu.au>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada-france.org>
Sent: Thursday, May 20, 2004 9:47 AM
Subject: Task discriminants

> Hi
> 
> Suppose one has a task type with a discriminant:
> 
>     task type A_Task( Id : integer);
> 
> and one wishes to declare a set of tasks with initialised discriminants:
>     t1 : A_Task(1);
>     t2 : A_Task(2);
>     t3 : A_Task(3);
> 
> How could one declare them as an array of tasks with each one getting an 
> initialised discriminant? Perhaps something like:
> 
>     The_Tasks: array (1..3) of A_Task( Id => 1,2,3 );
> 
> Except I tried this with Gnat and it won't compile.
> 
> Thanks
> 
> Dave
> 
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada-france.org
> http://www.ada-france.org/mailman/listinfo/comp.lang.ada
> 