--- 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.