Re: help with pointerproblem.

["Steve Doiel" <steved@pacifier.com>]

Roger Carlsson wrote in message <35f7f673.0@newsfeed.uu.se>...
>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.
>


You could give the following a shot.

with System.Address_To_Access_Conversions;
.
.
package ToGlPointerPackage is new
  System.Address_To_Access_Conversions( GLUbyte );

function ToGLpointer( vPtr : VertexArrayPtr) return GLPointer IS
begin
  return GLPointer( ToGlPointerPackage.To_Pointer( vPtr.ALL'ADDRESS ) );
end ToGLpointer;

I'm not sure about correctness, but it makes the compiler happy.

I hope this helps,
SteveD