Source position: ctgles3.pas line 7917
type TglActiveShaderProgram = procedure(
pipeline: GLuint;
program_: GLuint
);