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,LOTS_OF_MONEY
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,18a1da27baade824
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-10-16 03:09:26 PST
Path: archiver1.google.com!postnews1.google.com!not-for-mail
From: Mark.Doherty@uk.thalesgroup.com (Mark Doherty)
Newsgroups: comp.lang.ada
Subject: Re: A copy question....
Date: 16 Oct 2001 03:09:25 -0700
Organization: http://groups.google.com/
Message-ID: <2d87db3f.0110160209.4c6f55c2@posting.google.com>
References: <9qedad$i1p$1@newstoo.ericsson.se>
 <mCEy7.18793$gT6.11921721@news1.rdc1.sfba.home.com>
NNTP-Posting-Host: 194.200.220.2
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: posting.google.com 1003226966 1617 127.0.0.1 (16 Oct 2001 10:09:26
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: 16 Oct 2001 10:09:26 GMT
Xref: archiver1.google.com comp.lang.ada:14645
Date: 2001-10-16T10:09:26+00:00
List-Id: <comp.lang.ada>

tmoran@acm.org wrote in message news:<mCEy7.18793$gT6.11921721@news1.rdc1.sfba.home.com>...

> with System,
>      System.Storage_Elements,
>      Interfaces;
> procedure Test is
>   Address : System.Address
>     := System.Storage_Elements.To_Address(16#0200_0000#);
>   Data_Length: Natural := 200; --bytes
>   type Dword_Arrays is array (Integer range <>) of Interfaces.Unsigned_32;
>   Source  : Dword_Arrays(0 .. 49); -- 50*32=200*8
>   for Source'Address use Address;
>   Target  : Dword_Arrays(0 .. 375);
> begin
>   Target(Source'range) := Source;
> end Test;

The use of 
>   for Source'Address use Address;
is not portable.
 
Rational would initialise Source to 0's (unless the Pragma Import is used).