Re: acceess problem

[Simon Wright <simon@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.