Source position: ctgl.pas line 8194
type TglGetProgramiv = procedure(
program_: GLuint;
pname: GLenum;
params: PGLint
);