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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f46b81d0598320d
X-Google-Attributes: gid103376,public
From: "Steve Doiel" <nospam_steved@pacifier.com>
Subject: Re: need code improvment
Date: 1998/05/18
Message-ID: <3560fb9e.0@news.pacifier.com>#1/1
X-Deja-AN: 354506658
References: <35607DFE.59B@ipnsun5.in2p3.fr>
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Newsgroups: comp.lang.ada
Date: 1998-05-18T00:00:00+00:00
List-Id: <comp.lang.ada>


While I haven't used it myself, in Barnes' "Programming in Ada" he gives an
example:

S : Status;
for Status use at 8#100#;

More to the point an example in the reference manual gives:

  Device_Register : Medium;
  for Device_Register'Size use Medium'Size;
  for Device_Register'Address use
    System.Storage_Elements.To_Address(16#FFFF_0020#);

Which is more like your example.

I hope this helps,
SteveD

grave wrote in message <35607DFE.59B@ipnsun5.in2p3.fr>...
>Hi all,
>
>I'm working on a powerpc vme board and one of the solution I've found to
>work with a vme address is the following :
>
>with Ada.Unchecked_Conversion;
>with System;
>package try_vme is
>type Vecteur1 is array(1..10) of Integer;
>
>function Adresse_Tableau is new Ada.Unchecked_Conversion
>(Integer,System.Address);
>
>Tableau1 : Vecteur1;
>for Tableau1'Address use Adresse_Tableau(16#12_2a8_000#);
>
>-- some procedures
>
>end try_vme;
>
>Did someone can advice me for a better code ?
>(i.e avoiding unchecked conversion)
>
>Thanks in advance,
>
>Xavier Grave