Re: Pointer

[Matthew Heaney <mheaney@on2.com>]

On May 19, 6:13 am, Sébastien <seb.mor...@gmail.com> wrote:
>
> Yes it's exaclty what I did ... and it's exaclty what I would like to
> avoid :-) Actually, I was looking for a pure Ada solution.
> I think there is a way using an unchecked type conversion, but how to be
> sure of the size of the System.Address?

If you don't want to use an address clause, you could do something
like:

procedure Op (argv_Address : System.Address) is
   type Argv_Type is array (Positive) of chars_ptr;
   pragma Convention (C, Argv_Type);

   type Argv_Pointer is access all Argv_Type;
   for Argv_Pointer'Storage_Size use 0;
   pragma Convention (C, Argv_Pointer);

   function To_Argv_Pointer is
     new Unchecked_Conversion (System.Address, Argv_Pointer);

   Argv : constant Argv_Pointer :=
     To_Argv_Pointer (argv_Address);

begin
   -- same as in my last post
end;