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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.36.135.71 with SMTP id f68mr4066401ite.40.1511968916711;
        Wed, 29 Nov 2017 07:21:56 -0800 (PST)
X-Received: by 10.157.95.5 with SMTP id f5mr70851oti.9.1511968916574; Wed, 29
 Nov 2017 07:21:56 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!news.kjsl.com!usenet.stanford.edu!i6no749875itb.0!news-out.google.com!193ni1117iti.0!nntp.google.com!193no745256itr.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 29 Nov 2017 07:21:56 -0800 (PST)
In-Reply-To: <95301c38-9b3b-488a-a1c8-2728620bd386@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=2003:c7:83c9:d64b:a966:8f28:bb6b:91d0;
 posting-account=rmHyLAoAAADSQmMWJF0a_815Fdd96RDf
NNTP-Posting-Host: 2003:c7:83c9:d64b:a966:8f28:bb6b:91d0
References: <d8c0ce45-97ad-4475-b3f9-1662a875a576@googlegroups.com>
 <e3a1f97e-7cbd-4327-aef6-c18ca9e74bc2@googlegroups.com>
 <ovidu5$eip$1@franka.jacob-sparre.dk>
 <ac428886-d567-4692-b8b7-22fcb69a755f@googlegroups.com>
 <95301c38-9b3b-488a-a1c8-2728620bd386@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <c20433d6-11fd-4d04-9140-de44fa5d427d@googlegroups.com>
Subject: Re: How to access an array using two different indexing schemes
From: AdaMagica <christ-usch.grein@t-online.de>
Injection-Date: Wed, 29 Nov 2017 15:21:56 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:49247
Date: 2017-11-29T07:21:56-08:00
List-Id: <comp.lang.ada>

Am Mittwoch, 29. November 2017 16:01:35 UTC+1 schrieb AdaMagica:
> A bit clumsy, but:
> 
> X(0) := ...;
> RV1_5(X) (1) := ...;  -- didn't try, might work
> print (x(0));
> print (RV1_5(X)(1));

Y: RV1_5 renames RV1_5(X);

X(0)=Y(1)