Re: acceess problem

["ldries46" <bertus.dries@planet.nl>]

Thanks this was the solution to get the compiler accepting the construction.

L. Dries

"Simon Wright"  schreef in bericht news:m24o2azrwb.fsf@pushface.org... 

"ldries46" <bertus.dries@planet.nl> writes:

> I have done what you suggested and got the following error message on
> the line
> Axis1Amb : array (0 .. 3) of aliased GLfloat := (AxL, 0.0, 0.0, 1.0);
>
> non-local pointer cannot point to local object

I should have tried it, sorry.

Replace 'Access with 'Unchecked_Access or, if that doesn't work, with
the (GNAT-special) 'Unrestricted_Access.

Later:

I did try it, with these two:

   package Floats is

      type P is access all Float;

   end Floats;

   with Floats;
   package Aliased_Stuff is

      A : array (0 .. 3) of aliased Float := (42.0, 0.0, 0.0, 1.0);

      P : Floats.P := A (0)'Access;

   end Aliased_Stuff;

and the compiler (GNAT GPL 2011) was quite happy.