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!feeder.news-service.com!94.75.214.39.MISMATCH!aioe.org!news.tornevall.net!.POSTED!not-for-mail
From: Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>
Newsgroups: comp.lang.ada
Subject: Re: Properties
Date: Fri, 03 Dec 2010 16:34:01 -0700
Organization: TornevallNET - http://news.tornevall.net
Message-ID: <idbush$1jl$1@tornado.tornevall.net>
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>
NNTP-Posting-Host: 7d0d11c120312ef42ddb357031b9e5b4
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: 93a30c4f279e682af4ebc046fbe98b39
X-Complaints-To: abuse@tornevall.net
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US;
 rv:1.9.1.15) Gecko/20101027 Thunderbird/3.0.10
X-Complaints-Language: Spoken language is english or swedish - NOT ITALIAN,
 FRENCH, GERMAN OR ANY OTHER LANGUAGE!
In-Reply-To: 
 <18f98563-340c-4bc2-83e5-8d1187f92165@j19g2000prh.googlegroups.com>
X-UserIDNumber: 1738
X-Validate-Post: 
 http://news.tornevall.net/validate.php?trace=93a30c4f279e682af4ebc046fbe98b39
X-Complaints-Italiano: Non abbiamo padronanza della lingua italiana - se
 mandate una email scrivete solo in Inglese, grazie
X-Posting-User: 0243687135df8c4b260dd4a9a93c79bd
Xref: g2news1.google.com comp.lang.ada:15791
Date: 2010-12-03T16:34:01-07:00
List-Id: <comp.lang.ada>

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);

-- 
Jeff Carter
"Gentlemen, you can't fight in here. This is the War Room!"
Dr. Strangelove
30