help with pointerproblem.

[Roger.Carlsson.3873@student.uu.se (Roger Carlsson)]

Hello.

I'm writing a program in ada95 with opengl on W95.

I have the following definitions in GL.ads:

type GLubyte     is new C.unsigned_char;
type GLpointer   is access all GLubyte;  -- our substitute for "void *"

and

procedure (.......; x : GLpointer);


My own types:

type VertexArray is array (NATURAL range <>) of aliased GLfloat;
type VertexArrayPtr is access VertexArray;


and in the program:
VPtr : VertexArrayPtr;
.....

VPtr := new VertexArray(0 .. n);


procedure(....., GLpointer(VPtr));

I want to give the procedure my VertexArray as argument x.
My question is: How do i convert my VertexarrayPtr to a GLpointer?
I have tried different solutions but the compiler complains like:
Target designated type not compatible with type VertexArray.

If i can not. Can i rewrite my own types so it works?
The VertexArray must hold GLfloat's.


Thank You.
Roger.