comp.lang.ada
 help / color / mirror / Atom feed
From: tmoran@acm.org
Subject: Re: A copy question....
Date: Mon, 15 Oct 2001 17:00:02 GMT
Date: 2001-10-15T17:00:02+00:00	[thread overview]
Message-ID: <mCEy7.18793$gT6.11921721@news1.rdc1.sfba.home.com> (raw)
In-Reply-To: 9qedad$i1p$1@newstoo.ericsson.se

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;



  parent reply	other threads:[~2001-10-15 17:00 UTC|newest]

Thread overview: 14+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2001-10-15 10:40 A copy question Zebylon
2001-10-15 11:21 ` Dale Stanbrough
2001-10-15 11:30   ` Dale Stanbrough
2001-10-15 11:59     ` Petter Fryklund
2001-10-15 21:04       ` Dale Stanbrough
2001-10-16  2:34         ` Jeffrey Carter
2001-10-16 11:15           ` Dale Stanbrough
2001-10-15 13:38   ` Ted Dennison
2001-10-15 13:30 ` Mark Doherty
2001-10-15 17:00 ` tmoran [this message]
2001-10-16 10:09   ` Mark Doherty
2001-10-17  0:18     ` tmoran
2001-10-17  1:14       ` David Botton
2001-10-16 23:00 ` David Botton
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox