# HG changeset patch
# User nemo
# Date 1321479377 18000
# Node ID 3807d4cad077c979cf898d7a74f801bedeefcf80
# Parent  9acbf54e9379f399cf0f14212466f04f85ac17c5
This should have been added before. add log spew if this ever happens.  We should hopefully identify the various circumstances and make sure it is all cleaned up so the list becomes unnecessary.

diff -r 9acbf54e9379 -r 3807d4cad077 hedgewars/uTextures.pas
--- a/hedgewars/uTextures.pas	Wed Nov 16 15:16:17 2011 -0500
+++ b/hedgewars/uTextures.pas	Wed Nov 16 16:36:17 2011 -0500
@@ -226,7 +226,12 @@
 
 procedure freeModule;
 begin
-    while TextureList <> nil do FreeTexture(TextureList);
+    if TextureList <> nil then AddFileLog('FIXME FIXME FIXME. App shutdown without full cleanup of texture list.');
+    while TextureList <> nil do 
+        begin
+        AddFileLog('Texture not freed: width='+inttostr(LongInt(TextureList^.w))+' height='+inttostr(LongInt(TextureList^.h))+' priority='+inttostr(round(TextureList^.priority*1000)));
+        FreeTexture(TextureList);
+        end
 end;
 
 end.