Source position: ctgl.pas line 8801
type TglActiveShaderProgramEXT = procedure(
pipeline: GLuint;
program_: GLuint
);