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;