From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,fbb2432d0a728c1b,start
X-Google-Attributes: gid103376,public
From: Roger.Carlsson.3873@student.uu.se (Roger Carlsson)
Subject: help with pointerproblem.
Date: 1998/09/10
Message-ID: <35f7f673.0@newsfeed.uu.se>#1/1
X-Deja-AN: 389787338
Content-Type: Text/Plain; charset=US-ASCII
Organization: Your Organization
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Date: 1998-09-10T00:00:00+00:00
List-Id: <comp.lang.ada>

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.