Source position: ctgl.pas line 8475
type TglUniform4dv = procedure(
location: GLint;
count: GLsizei;
value: PGLdouble
);