Source position: ctgl.pas line 9995
type TglProgramUniform1dEXT = procedure(
program_: GLuint;
location: GLint;
x: GLdouble
);