Re: Returning data from Ada to C

[Ludovic Brenta <ludovic.brenta@insalien.org>]

 writes:
> Ludovic Brenta wrote:
>> Ludovic Brenta writes:
>> > procedure Hello_World (I : in out Integer;
>> >                        A_Ptr : out C_IntArrs.Pointer) is
>> >    type Array_Access is access C_Integer_Arrays.C_Integer_Array;
>> >    Result : Array_Access := new C_Integer_Arrays.C_Integer_Array'
>> >           (0 => 3, 1 => 2, 2 => 1);
>> > begin
>> >    return Result (Result'First)'Access;
>>      -- the above is wrong!
>>      A_Ptr := Result (Result'First)'Access; -- correct
>> > end Hello_World;
>>
>> obviously.
>
> I had to use Unchecked_Access instead of Access (gnat complained
> "non-local pointer cannot point to local object"), but it worked!

If you move the type declaration outside of the procedure, then
'Access becomes legal.  The best would be to declare Array_Access in
C_Integer_Arrays.

-- 
Ludovic Brenta.