hedgewars/uStore.pas
changeset 7027 f264ad9d8965
parent 7026 8d1724e1337e
child 7028 0f60591f3a16
--- a/hedgewars/uStore.pas	Sat May 05 17:29:04 2012 +0100
+++ b/hedgewars/uStore.pas	Sat May 05 18:10:41 2012 +0100
@@ -47,6 +47,8 @@
 //type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple);
 
 var MaxTextureSize: LongInt;
+{$IFDEF SDL13}SDLGLcontext: PSDL_GLContext;{$ENDIF}
+
 //    cGPUVendor: TGPUVendor;
 
 function WriteInRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: ansistring): TSDL_Rect;
@@ -1137,6 +1139,9 @@
     // init all count texture pointers
     for i:= Low(CountTexz) to High(CountTexz) do
         CountTexz[i] := nil;
+{$IFDEF SDL13}
+    SDLGLcontext    := nil;
+{$ENDIF}
 end;
 
 procedure freeModule;