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,8a402d78988bdf2b
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-12-21 10:05:19 PST
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.media.kyoto-u.ac.jp!newsfeed.icl.net!newsfeed.fjserv.net!colt.net!peernews3.colt.net!newsfeed.stueberl.de!npeer.de.kpn-eurorings.net!rz.uni-karlsruhe.de!feed.news.schlund.de!schlund.de!news.online.de!not-for-mail
From: "Ekkehard Morgenstern" <ekkehard.morgenstern@onlinehome.de>
Newsgroups: comp.lang.ada
Subject: Re: [announcement] SYSAPI and SYSSVC for Windows
Date: Sun, 21 Dec 2003 19:05:08 +0100
Organization: 1&1 Internet AG
Message-ID: <bs4ncu$51v$1@online.de>
References: <mailman.132.1071688674.31149.comp.lang.ada@ada-france.org>
 <brrqfe$6l1q7$1@ID-77047.news.uni-berlin.de> <brs5mo$278$1@online.de>
 <brsddi$73fee$1@ID-77047.news.uni-berlin.de> <brumdp$lub$1@online.de>
 <brvask$7ugsq$2@ID-77047.news.uni-berlin.de> <bs09s0$617$1@online.de>
 <bs1ah1$8g5ll$1@ID-77047.news.uni-berlin.de> <bs1jh9$n8o$1@online.de>
 <bs203e$8re23$1@ID-77047.news.uni-berlin.de> <bs29a5$d6n$1@online.de>
 <bs47jo$9e9ea$1@ID-77047.news.uni-berlin.de> <bs4fbr$g8f$1@online.de>
 <bs4ma6$p7s$1@atlantis.news.tpi.pl>
NNTP-Posting-Host: p508c0240.dip0.t-ipconnect.de
Mime-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Trace: online.de 1072029918 5183 80.140.2.64 (21 Dec 2003 18:05:18 GMT)
X-Complaints-To: abuse@einsundeins.com
NNTP-Posting-Date: Sun, 21 Dec 2003 18:05:18 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Xref: archiver1.google.com comp.lang.ada:3673
Date: 2003-12-21T19:05:08+01:00
List-Id: <comp.lang.ada>


"Michal Morawski" <morawski@zsk.p.lodz.pl> wrote:
> Try:
>        O.B := O.A(1)'Unchecked_Access; -- This is OK, A(i) are aliased
> 'Access does not work because in the procedure You are getting address of
> the variable (may be) on the stack

Yup, unchecked access works (compiles).

thanks! :)