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=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!gandalf.srv.welterde.de!news.jacob-sparre.dk!franka.jacob-sparre.dk!pnx.dk!.POSTED.rrsoftware.com!not-for-mail
From: "Randy Brukardt" <randy@rrsoftware.com>
Newsgroups: comp.lang.ada
Subject: Re: Initializing an array of tasks with discrimants
Date: Sat, 23 Nov 2019 03:12:56 -0600
Organization: JSA Research & Innovation
Message-ID: <qrat6p$2us$1@franka.jacob-sparre.dk>
References: <358a3934-7cb2-4cff-8703-71410815f27e@googlegroups.com>
 <wcca78nzcox.fsf@shell02.theworld.com>
Injection-Date: Sat, 23 Nov 2019 09:12:57 -0000 (UTC)
Injection-Info: franka.jacob-sparre.dk;
 posting-host="rrsoftware.com:24.196.82.226";
	logging-data="3036"; mail-complaints-to="news@jacob-sparre.dk"
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5931
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.7246
Xref: reader01.eternal-september.org comp.lang.ada:57599
Date: 2019-11-23T03:12:56-06:00
List-Id: <comp.lang.ada>

"Robert A Duff" <bobduff@TheWorld.com> wrote in message 
news:wcca78nzcox.fsf@shell02.theworld.com...
> Jere <jhb.chat@gmail.com> writes:
>
>> Is there a particular aggregate that I can use to avoid
>> the superfluous wrapper record?
>
> See AI12-0212-1.TXT.  Not yet implemented in GNAT,
> as far as I know.

If you wanted the indexes in order, you could use AI12-0061-1 (but I don't 
know if that is implemented in GNAT yet, either):

     (for I in 1 .. 10 => (D => I, others => <>))

That still needs the wrapper record as I don't think you can write an 
aggregate for a task. But a lot shorter.

                                        Randy.