hedgewars/uStore.pas
changeset 2565 54296af65fe9
parent 2452 a6edc408a376
child 2567 02ff5f9510b5
equal deleted inserted replaced
2562:0421e9f59774 2565:54296af65fe9
   986 end;
   986 end;
   987 
   987 
   988 procedure SetupOpenGL;
   988 procedure SetupOpenGL;
   989 begin
   989 begin
   990 glGetIntegerv(GL_MAX_TEXTURE_SIZE, @MaxTextureSize);
   990 glGetIntegerv(GL_MAX_TEXTURE_SIZE, @MaxTextureSize);
       
   991 
       
   992 //workaround for wan the previous call fails
       
   993 if MaxTextureSize = 0 then MaxTextureSize:= 1024;
       
   994 
   991 {$IFDEF DEBUGFILE}
   995 {$IFDEF DEBUGFILE}
   992 AddFileLog('GL_MAX_TEXTURE_SIZE: ' + inttostr(MaxTextureSize));
   996 AddFileLog('GL_MAX_TEXTURE_SIZE: ' + inttostr(MaxTextureSize));
   993 {$ENDIF}
   997 {$ENDIF}
   994 
   998 
   995 {$IFNDEF IPHONEOS}
   999 {$IFNDEF IPHONEOS}