Re: Easy Question - Printing Out An Address

[Mark Lorenzen <mark.lorenzen@surfpost.dk>]

Bryan.Berns@gmail.com writes:

> Thanks.  The Address_Image method worked perfectly.  Now I'm working
> with trying to do the same with a type of Address_Int.   Any input
> appreciated.

What about:

with Ada.Text_IO;
with System.Storage_Elements;

procedure Print_Int_Address is
   package SE renames System.Storage_Elements;
     
   My_Var      : Positive; -- Or some other type.
   Sys_Address : System.Address;
   Int_Address : SE.Integer_Address;
begin
   Sys_Address := My_Var'Address;
   Int_Address := SE.To_Integer (Sys_Address);
   Ada.Text_IO.Put_Line ("Address is:" &
			 SE.Integer_Address'Image (Int_Address));
end Print_Int_Address;

Regards,
- Mark Lorenzen