Source position: ctgl.pas line 8196
type TglGetShaderiv = procedure(
shader: GLuint;
pname: GLenum;
params: PGLint
);