hedgewars/uMisc.pas
changeset 2000 f9f47e681aad
parent 1916 9c3d0e3df6bb
child 2008 fc2fb5c938c3
--- a/hedgewars/uMisc.pas	Fri Apr 17 17:01:58 2009 +0000
+++ b/hedgewars/uMisc.pas	Fri Apr 17 17:02:24 2009 +0000
@@ -452,8 +452,11 @@
 
 procedure FreeTexture(tex: PTexture);
 begin
-glDeleteTextures(1, @tex^.id);
-dispose(tex)
+if tex <> nil then
+	begin
+	glDeleteTextures(1, @tex^.id);
+	dispose(tex)
+	end
 end;
 
 function DecodeBase64(s: shortstring): shortstring;