hedgewars/uStore.pas
changeset 2698 90585aba87ad
parent 2697 75880595a9f1
child 2699 249adefa9c1c
--- 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}