--- a/hedgewars/uStore.pas Sat Jan 16 06:48:56 2010 +0000
+++ b/hedgewars/uStore.pas Sat Jan 16 17:30:37 2010 +0000
@@ -1074,9 +1074,7 @@
end;
procedure SetupOpenGL;
-{$IFDEF DEBUGFILE}
var vendor: shortstring;
-{$ENDIF}
begin
{$IFDEF IPHONEOS}
//these are good performance savers, perhaps we could enable them by default
@@ -1103,9 +1101,8 @@
glGetIntegerv(GL_MAX_TEXTURE_SIZE, @MaxTextureSize);
+ vendor:= LowerCase(string(pchar(glGetString(GL_VENDOR))));
{$IFDEF DEBUGFILE}
- vendor:= LowerCase(string(pchar(glGetString(GL_VENDOR))));
-
AddFileLog('OpenGL - Renderer: ' + string(pchar(glGetString(GL_RENDERER))));
AddFileLog(' |----- Vendor: ' + vendor);
AddFileLog(' |----- Version: ' + string(pchar(glGetString(GL_VERSION))));
@@ -1168,7 +1165,7 @@
end;
////////////////////////////////////////////////////////////////////////////////
-var Step: LongInt = 0;
+var Step: LongInt = 0;
squaresize : LongInt;
numsquares : LongInt;
{$IFDEF SDL13notworking}