hedgewars/uTextures.pas
changeset 6394 f0a9042e7387
parent 6390 3807d4cad077
child 6467 090269e528df
--- a/hedgewars/uTextures.pas	Thu Nov 17 23:14:24 2011 +0300
+++ b/hedgewars/uTextures.pas	Fri Nov 18 00:32:52 2011 +0100
@@ -31,7 +31,7 @@
 procedure freeModule;
 
 implementation
-uses GLunit, uUtils, uVariables, uConsts, uDebug;
+uses GLunit, uUtils, uVariables, uConsts, uDebug, uConsole;
 
 var TextureList: PTexture;
 
@@ -226,7 +226,7 @@
 
 procedure freeModule;
 begin
-    if TextureList <> nil then AddFileLog('FIXME FIXME FIXME. App shutdown without full cleanup of texture list.');
+    if TextureList <> nil then WriteToConsole('FIXME FIXME FIXME. App shutdown without full cleanup of texture list; read game0.log and please report this problem');
     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)));