diff -r 8ad0e23e6d63 -r d1e2d82d9ccc hedgewars/uTextures.pas --- a/hedgewars/uTextures.pas Tue Feb 01 15:30:08 2011 +0100 +++ b/hedgewars/uTextures.pas Tue Feb 01 19:49:10 2011 +0100 @@ -159,6 +159,8 @@ SetTextureParameters(enableClamp); end; +// deletes texture and frees the memory allocated for it. +// if nil is passed nothing is done procedure FreeTexture(tex: PTexture); begin if tex <> nil then @@ -184,4 +186,4 @@ while TextureList <> nil do FreeTexture(TextureList); end; -end. \ No newline at end of file +end.