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=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e3208961d115a89b
X-Google-Attributes: gid103376,public
From: "Keith Allan Shillington" <keith@sd.aonix.com>
Subject: Re: Simple Ada-95 Question (regarding X11Ada bindings)
Date: 1997/01/27
Message-ID: <01bc0c86$6a301be0$fc00af88@godiva>#1/1
X-Deja-AN: 212701746
sender: news@thomsoft.com (USENET News Admin @flash)
x-nntp-posting-host: leonidas
references: <32E34E8E.FDD@carmenta.se>
organization: Aonix, San Diego, CA, USA
newsgroups: comp.lang.ada
Date: 1997-01-27T00:00:00+00:00
List-Id: <comp.lang.ada>


Ralf Lundberg <rl@carmenta.se> wrote in article
<32E34E8E.FDD@carmenta.se>...
> QUESTION:
> How do I make something of type access A actually point to the
> first element in an array of A's?

type A is ....
type A_Array is array(1..10) of aliased A;
type Access_A is access all A;

My_Array : A_Array;

First_One : Access_A := My_Array(1)'Access;