hedgewars/uStore.pas
branchwebgl
changeset 8032 f8fcece14302
parent 8026 4a4f21070479
child 8096 453917e94e55
--- a/hedgewars/uStore.pas	Sun Nov 11 17:52:49 2012 +0100
+++ b/hedgewars/uStore.pas	Sun Nov 11 17:58:36 2012 +0100
@@ -689,7 +689,9 @@
 
 function glLoadExtension(extension : shortstring) : boolean;
 begin
-{$IF (GLunit = gles11) OR DEFINED(PAS2C)}
+//TODO: pas2c doesn't handle {$IF (GLunit = gles11) OR DEFINED(PAS2C)}
+{$IFNDEF PAS2C}
+{$IF GLunit = gles11}
     // FreePascal doesnt come with OpenGL ES 1.1 Extension headers
     extension:= extension; // avoid hint
     glLoadExtension:= false;
@@ -701,6 +703,7 @@
     else
         AddFileLog('OpenGL - "' + extension + '" failed to load');
 {$ENDIF}
+{$ENDIF}
 end;
 
 procedure SetupOpenGLAttributes;