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=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,36a29c2860aff686
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!news1.google.com!npeer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!post01.iad.highwinds-media.com!newsfe02.iad.POSTED!00000000!not-for-mail
From: Brad Moore <brad.moore@shaw.ca>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US;
 rv:1.9.2.12) Gecko/20101027 Thunderbird/3.1.6
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Properties
References: <3b84c8e7-1a51-4a7c-9646-119f1fc51478@s4g2000yql.googlegroups.com>
 <id1l6f$2v8$1@munin.nbi.dk>
 <Xns9E4079BDD55B9SnarkCharmedFerSure@81.169.183.62>
 <vkz3nbgxubt1$.11vfo4rwuzegd.dlg@40tude.net>
 <Xns9E409D36561F0WarrensBlatherings@81.169.183.62>
 <4pnv7nl4cdui$.1n28i7lqk4mek$.dlg@40tude.net>
 <Xns9E4169656D757WarrensBlatherings@81.169.183.62>
 <1k7367gtebsgm$.18auo6u3nfg34.dlg@40tude.net>
 <Xns9E417369AD1F4WarrensBlatherings@81.169.183.62>
 <1u5dftkqqi68c.10079qnqyyfwb$.dlg@40tude.net>
 <eb7234af-6ac4-44cd-b354-5addf4155215@fl7g2000vbb.googlegroups.com>
 <15tv4yga36dpi$.1hc09dlbgcmqe.dlg@40tude.net>
 <18768dde-5817-40b9-aaa1-03c620ad7187@i32g2000pri.googlegroups.com>
 <18f98563-340c-4bc2-83e5-8d1187f92165@j19g2000prh.googlegroups.com>
 <idbush$1jl$1@tornado.tornevall.net>
In-Reply-To: <idbush$1jl$1@tornado.tornevall.net>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <20%Ko.322$uO2.303@newsfe02.iad>
NNTP-Posting-Host: 68.145.218.234
X-Complaints-To: internet.abuse@sjrb.ca
X-Trace: newsfe02.iad 1291615358 68.145.218.234 (Mon,
 06 Dec 2010 06:02:38 UTC)
NNTP-Posting-Date: Mon, 06 Dec 2010 06:02:38 UTC
Date: Sun, 05 Dec 2010 23:02:05 -0700
Xref: g2news1.google.com comp.lang.ada:15817
Date: 2010-12-05T23:02:05-07:00
List-Id: <comp.lang.ada>

On 03/12/2010 4:34 PM, Jeffrey Carter wrote:
> On 12/02/2010 10:00 PM, Shark8 wrote:
>>
>> Type Task_Array is Array (1..20) of Access Writer;
>> Tasks : Task_Array:= ( 1..20 => New Writer'(Make_Task) );
>
> Access is not needed here. You can (and probably should) do something like
>
> type Writer_List is array (Positive range <>) of Writer;
>
> Writers : constant Writer_List := (1 .. 20 => Make_Writer);
>

Note that for this to compile, you end up needing to make the task 
discriminant mutable, since the task type in the array type declaration 
need to be constrained.

Sonmething like;

    task type Writer (ID : Integer := 0) is
    end Writer;