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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,9bc0262607f781e9
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-06-07 06:44:20 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.stueberl.de!news.csl-gmbh.net!news-fra.pop.de!schlund.de!news.online.de!not-for-mail
From: "Dr. Michael Paus" <paus@ib-paus.com>
Newsgroups: comp.lang.ada
Subject: Re: Making a package safe for use by multiple tasks (Correction)
Date: Fri, 07 Jun 2002 15:44:18 +0200
Organization: 1&1 Internet AG
Message-ID: <3D00B8B2.5000205@ib-paus.com>
References: <adq0le$2np$1@nets3.rz.RWTH-Aachen.DE>
 <3D00B5B3.9090409@ib-paus.com>
NNTP-Posting-Host: p50830174.dip0.t-ipconnect.de
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: news.online.de 1023457458 1694 80.131.1.116 (7 Jun 2002 13:44:18 GMT)
X-Complaints-To: abuse@online.de
NNTP-Posting-Date: 7 Jun 2002 13:44:18 GMT
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US;
 rv:1.0rc1) Gecko/20020417
X-Accept-Language: en-us, en
Xref: archiver1.google.com comp.lang.ada:25453
Date: 2002-06-07T13:44:18+00:00
List-Id: <comp.lang.ada>

One little correction to my above posting. I forgot to mention that
you have to substitude

    type values is array (<>) or real;
    type vector is access values;

by

    type vector is array (<>) or real;

in the case of my modified example code.