Source position: ctgl.pas line 9375
type TglGetNamedProgramStringEXT = procedure(
program_: GLuint;
target: GLenum;
pname: GLenum;
string_: Pvoid
);