hedgewars/uTextures.pas
changeset 6380 1ff5ad1d771b
parent 6305 5f7480c2a08d
child 6390 3807d4cad077
--- a/hedgewars/uTextures.pas	Mon Nov 14 17:56:44 2011 -0500
+++ b/hedgewars/uTextures.pas	Mon Nov 14 18:08:36 2011 -0500
@@ -207,7 +207,7 @@
 procedure FreeTexture(tex: PTexture);
 begin
     if tex <> nil then
-    begin
+        begin
         if tex^.NextTexture <> nil then
             tex^.NextTexture^.PrevTexture:= tex^.PrevTexture;
         if tex^.PrevTexture <> nil then
@@ -216,7 +216,7 @@
             TextureList:= tex^.NextTexture;
         glDeleteTextures(1, @tex^.id);
         Dispose(tex);
-    end
+        end
 end;
 
 procedure initModule;