217 

   217 

   218     s->s[s->len + 1] = 0;

   218     s->s[s->len + 1] = 0;

   219     return &s->s[1];

   219     return &s->s[1];

   220 }

   220 }

   221 

   221 

   229 void fpcrtl_glShaderSource(GLuint shader, GLsizei count,/* const dropped for pas2c compat */ GLchar **string, const GLint *length) {

   222 void fpcrtl_glShaderSource(GLuint shader, GLsizei count,/* const dropped for pas2c compat */ GLchar **string, const GLint *length) {

   230     glShaderSource(shader, count, (const char * const *)string, length);

   223     glShaderSource(shader, count, (const char * const *)string, length);

   231 }

   224 }