358 end;

   358 end;

   359 {$ENDIF}

   359 {$ENDIF}

   360 

   360 

   361 function glLoadExtension(extension : shortstring) : boolean;

   361 function glLoadExtension(extension : shortstring) : boolean;

   362 begin

   362 begin

   363 //TODO: pas2c does not handle {$IF (GLunit = gles11) OR DEFINED(PAS2C)}

   364 //TODO: pas2c does not handle {$IF (GLunit = gles11) OR DEFINED(PAS2C)}

   364 {$IFNDEF PAS2C}

   365 {$IFNDEF PAS2C}

   365 {$IF GLunit = gles11}

   366 {$IF GLunit = gles11}

   366     // FreePascal doesnt come with OpenGL ES 1.1 Extension headers

   367     // FreePascal doesnt come with OpenGL ES 1.1 Extension headers

   367     extension:= extension; // avoid hint

   368     extension:= extension; // avoid hint

   376 {$ENDIF}

   377 {$ENDIF}

   377 

   378 

   378 {$ELSE} // pas2c part

   379 {$ELSE} // pas2c part

   379     glLoadExtension:= false;

   380     glLoadExtension:= false;

   380 {$ENDIF}

   381 {$ENDIF}

   381 end;

   387 end;

   382 

   388 

   383 {$IFDEF USE_S3D_RENDERING OR USE_VIDEO_RECORDING}

   389 {$IFDEF USE_S3D_RENDERING OR USE_VIDEO_RECORDING}

   384 procedure CreateFramebuffer(var frame, depth, tex: GLuint);

   390 procedure CreateFramebuffer(var frame, depth, tex: GLuint);

   385 begin

   391 begin