need code improvment

[grave <grave@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