Easy Question - Printing Out An Address

Easy Question - Printing Out An Address

[Bryan.Berns]

How can I print out (for debugging purposes) a Machine.Address to the
screen?

- Console.Write(????)

Any ideas?

Thanks,

- Bryan

Re: Easy Question - Printing Out An Address

[Pascal Obry]

Bryan.Berns@gmail.com writes:

> How can I print out (for debugging purposes) a Machine.Address to the
> screen?
> 
> - Console.Write(????)
> 
> Any ideas?

If you are using GNAT, check the System.Address_Image package designed just
for this purpose.

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|              http://www.obry.org
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595

Re: Easy Question - Printing Out An Address

[Dmitry A. Kazakov]

On 9 Mar 2005 10:03:34 -0800, Bryan.Berns@gmail.com wrote:

> How can I print out (for debugging purposes) a Machine.Address to the
> screen?
> 
> - Console.Write(????)
> 
> Any ideas?

See System.Storage_Elements ARM 13.7.1

It defines To_Integer that converts address to an integer type
Integer_Address (that can be either modular or signed depending on the
compiler). Anyway, you can then do Integer_Address'Image (X'Address).

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de

Re: Easy Question - Printing Out An Address

[Bryan.Berns]

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.

Re: Easy Question - Printing Out An Address

[Mark Lorenzen]

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