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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,4e2dfdc3b0f2775d
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-08-22 07:30:33 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!canoe.uoregon.edu!logbridge.uoregon.edu!titan03.ksc.nasa.gov!niven.ksc.nasa.gov!usenet
From: "Samuel T. Harris" <u61783@gsde.hou.us.ray.com>
Newsgroups: comp.lang.ada
Subject: Re: Stream_Element_Array and an empty array
Date: Wed, 22 Aug 2001 09:22:55 -0500
Organization: Raytheon Aerospace Engineering Services
Message-ID: <3B83C03F.8F1A6357@gsde.hou.us.ray.com>
References: <pan.2001.08.22.15.34.27.59.13195@zamek.gda.pl>
Reply-To: samuel_t_harris@raytheon.com
NNTP-Posting-Host: sstf-fw.jsc.nasa.gov
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
X-Mailer: Mozilla 4.7 [en] (X11; U; IRIX64 6.2 IP19)
X-Accept-Language: en
Xref: archiver1.google.com comp.lang.ada:12233
Date: 2001-08-22T09:22:55-05:00
List-Id: <comp.lang.ada>

""Micha=B3owikowski\" \"" wrote:
> =

> Hello
> =

> I would like to sth like this:
> =

> A : Stream_Elemet_Array;
> A :=3D <empty array>;
> =

> I dont know how to write empty array that A'Length =3D 0.
> Does anybody know?
> =

> Godfryd
> =


As others have shown, ...

a : stream_element_array (1..0);

=2E.. is the appropriate declaration.
However, you have included an assignment
to A and appear to want to know what
expression will yield such an array.

Given that in the above text A is a variable,
no assignment is necesary. If you must have
an assignment, or an initial expression
because it is constant, then you can
do the following ...

nil : constant stream_element_array (1..0) :=3D (others =3D> 0);
=2E..
a :=3D nil;

-- =

Samuel T. Harris, Senior Software Engineer II
Raytheon, Aerospace Engineering Services
"If you can make it, We can fake it!"