hedgewars/uStore.pas
changeset 4920 bc3c077e15a2
parent 4911 5d10bd725efe
child 4925 3d90fd7f738a
--- a/hedgewars/uStore.pas	Sat Feb 05 11:32:15 2011 +0300
+++ b/hedgewars/uStore.pas	Sat Feb 05 15:45:44 2011 +0100
@@ -343,8 +343,9 @@
         tmpsurf:= TTF_RenderUTF8_Blended(Fontz[CheckCJKFont(trAmmo[NameId],fnt16)].Handle, Str2PChar(trAmmo[NameId]), cWhiteColorChannels);
         TryDo(tmpsurf <> nil,'Name-texture creation for ammo type #' + intToStr(ord(ai)) + ' failed!',true);
         tmpsurf:= doSurfaceConversion(tmpsurf);
-        if (NameTex <> nil) then
-            FreeTexture(NameTex);
+        // these two lines lines crash when run multiple times?
+        //if (NameTex <> nil) then
+        //    FreeTexture(NameTex);
         NameTex:= Surface2Tex(tmpsurf, false);
         SDL_FreeSurface(tmpsurf)
     end;
@@ -354,8 +355,9 @@
 begin
     tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(IntToStr(i) + 'x'), cWhiteColorChannels);
     tmpsurf:= doSurfaceConversion(tmpsurf);
-    if (CountTexz[i] <> nil) then
-        FreeTexture(CountTexz[i]);
+    // these two lines lines crash when run multiple times?
+    //if (CountTexz[i] <> nil) then
+    //    FreeTexture(CountTexz[i]);
     CountTexz[i]:= Surface2Tex(tmpsurf, false);
     SDL_FreeSurface(tmpsurf)
 end;