Re: GNAT 3.03 and Address Clauses

[dweller@dfw.net (David Weller)]

In article <31850E0F.136C@software.org>,
Rob Pettit  <pettit@software.org> wrote:
[Indicated he was having trouble with this code:]
>        Device_Data    : Device_Data_Type;   
>        Device_Address : constant System.Address 
>           := System.Storage_Elements.To_Address(16#FFFF_0000#);
>
>        for Device_Data'Address use Device_Address;
>
>     end Address_Test;
>
>GNAT 3.03 subsequently gives the following error message:
>     address_test.ads:13:32: invalid address clause for "Device_Data"
>     address_test.ads:13:32: must be constant defined before "Device_Data" 
>        (RM 13.1(22))
>
>Can anyone provide advice for compiling this code using GNAT?
>Thanks in advance!
>


The solution is pretty easy, GNAT's giving you a pretty strong hint:

        Device_Address : constant System.Address
           := System.Storage_Elements.To_Address(16#FFFF_0000#);
        Device_Data    : Device_Data_Type;

        for Device_Data'Address use Device_Address;


Will compile just fine.


(Don't feel too silly, I made the same mistake about a year ago :-)

-- 
    Visit the Ada 95 Booch Components Homepage: www.ocsystems.com/booch
           This is not your father's Ada -- lglwww.epfl.ch/Ada