Re: Put the access value

[Robert A Duff <bobduff@TheWorld.com>]

"J-P. Rosen" <rosen@adalog.fr> writes:

> In Ada, a pointer is not an integer and has no 'Image attribute.

Sure it does.  ;-)

So do records and everything else.  See AI12-0020-1 (don't pay attention
to details; they're changing).  I implemented that recently, so the
latest development version of GNAT has it.

This program:

with Ada.Strings.Text_Output.Formatting; use Ada.Strings.Text_Output;
procedure Access_Image is
   type R is record
      This : Integer;
      That : String (1..10);
   end record;

   type A is access all R;

   X : A := new R'(This => 123, That => "helloworld");
begin
   Formatting.Put ("\1, \2\n", X'Image, X.all'Image);
end Access_Image;

prints:

(access 162b740),
(this =>  123,
 that => "helloworld")

> 1) Use Unchecked_Conversion to convert it to an appropriate integer type
>
> 2) use package Address_To_Access conversion to convert your pointer to
> an address, then System.Storage_Elements.To_Integer to convert the
> address to Integer_Address, which is an integer type.

Right, these are good workarounds if you don't have the latest
version.

- Bob