equal
deleted
inserted
replaced
29 |
29 |
30 procedure initModule; |
30 procedure initModule; |
31 procedure freeModule; |
31 procedure freeModule; |
32 |
32 |
33 implementation |
33 implementation |
34 uses GLunit, uUtils, uVariables, uConsts, uDebug; |
34 uses GLunit, uUtils, uVariables, uConsts, uDebug, uConsole; |
35 |
35 |
36 var TextureList: PTexture; |
36 var TextureList: PTexture; |
37 |
37 |
38 |
38 |
39 procedure SetTextureParameters(enableClamp: Boolean); |
39 procedure SetTextureParameters(enableClamp: Boolean); |
224 TextureList:= nil; |
224 TextureList:= nil; |
225 end; |
225 end; |
226 |
226 |
227 procedure freeModule; |
227 procedure freeModule; |
228 begin |
228 begin |
229 if TextureList <> nil then AddFileLog('FIXME FIXME FIXME. App shutdown without full cleanup of texture list.'); |
229 if TextureList <> nil then WriteToConsole('FIXME FIXME FIXME. App shutdown without full cleanup of texture list; read game0.log and please report this problem'); |
230 while TextureList <> nil do |
230 while TextureList <> nil do |
231 begin |
231 begin |
232 AddFileLog('Texture not freed: width='+inttostr(LongInt(TextureList^.w))+' height='+inttostr(LongInt(TextureList^.h))+' priority='+inttostr(round(TextureList^.priority*1000))); |
232 AddFileLog('Texture not freed: width='+inttostr(LongInt(TextureList^.w))+' height='+inttostr(LongInt(TextureList^.h))+' priority='+inttostr(round(TextureList^.priority*1000))); |
233 FreeTexture(TextureList); |
233 FreeTexture(TextureList); |
234 end |
234 end |